Puma Server Pages Error :
Illegal character in prototype for Puma::ServerPages::Tag::_render : $&,$& at /home/groups/p/pu/puma/puma//Puma/ServerPages/Tag.pm line 48.
1: use Puma::ServerPages::Session; my $session = new Puma::ServerPages::Session( Location => "/home/groups/p/pu/puma/state", Context => "session", UseCookie => 'Global', Server => $server, ); use Puma::ServerPages::User; my $user = new Puma::ServerPages::User( Location => "/home/groups/p/pu/puma/state", Context => "user", UseCookie => 'Global30d', Server => $server, );
2: use lib qw(/home/groups/p/pu/puma/htdocs/lib);
3: my $psp = $server->getConfig()->{psp};use Puma::ServerPages::Global; use strict;
4:
5: do {
6: my $include;
7: $include->{title} = qq(Current Project Work);
8:
9: use WebTools;
10:
11: # --- default/touch all params to eliminate strict errors ---
12: $include->{title} ||= 'Perl Universal Markup';
13: $include->{javascript} ||= '';
14:
15: my $title = join(' ', split(//, $include->{title}));
16:
17: print qq(
18: <html><head>
19: <title>$include->{title}</title>
20:
21: );
22: do {
23: my $include;
24:
25: print qq[<style type="text/css">
26:
27: a {
28: font-weight: bold;
29: }
30:
31: a.black {
32: color: #000000;
33: text-decoration: none;
34: }
35:
36: body {
37: // background: white url(];
38: print(iurl('/images/PumaWatermark.gif') );
39: print qq[) no-repeat;
40: // background-position: 0 75;
41: font-family: sans-serif;
42: }
43:
44: div.title {
45: font-size: 24pt;
46: font-weight: bold;
47: color: #009999;
48: font-variant: small-caps;
49: }
50: font.tagline {
51: font-size: 90%;
52: font-weight: bold;
53: color: #009999;
54: font-variant: small-caps;
55: }
56:
57: div.leftfloat {
58: float: left;
59: background-color: #99ffff;
60: padding: 6px;
61: }
62: div.rightfloat {
63: float: right;
64: background-color: #99ffff;
65: padding: 6px;
66: }
67:
68: div.main-head {
69: font-size: 120%;
70: font-weight: bold;
71: font-variant: small-caps;
72: margin-bottom: 0.2em;
73: }
74: font.main-date {
75: font-weight: normal;
76: font-variant: normal;
77: font-size: 60%;
78: }
79: div.main-desc {
80: text-indent: 1.5em;
81: }
82:
83: ul {
84: margin-top: .2em;
85: margin-bottom: .2em;
86: margin-left: 2em;
87: margin-right: .5em;
88: }
89:
90: </style>
91: ];
92: };
93: print qq(
94:
95: );
96: if ($include->{javascript}) { print qq(
97: <script language="javascript">
98: $include->{javascript}
99: </script>
100: );
101: } print qq(
102: </head><body>
103:
104: );
105: if ($server->param('Printable')) { print qq(
106: <div align=right>
107: <font size=2><a href="$ENV{PATH_INFO}">Return</a></font>
108: </div>
109: );
110: } else { print qq(
111: <table width="100%" class="dark"><tr>
112: <td align="center" width="220" rowspan="2">
113: <div class="title">
114: Puma
115: </div>
116: <!--
117: <img src=");
118: print(iurl('/images/PumaLogo.jpg') );
119: print qq(">
120: <br>
121: -->
122: <nobr>
123: <font class="tagline">$title</font>
124: </nobr>
125: </td><td align="right" valign="top">
126: <a href="http://sourceforge.net"><img src="http://sourceforge.net/sflogo.php?group_id=8002&type=2" width="125" height="37" border="0" alt="SourceForge.net Logo"></a>
127: <br>
128: </td>
129: </tr><tr>
130: <td valign=bottom>
131: );
132: if (defined $include->{printable}) { print qq(
133: <div align="right">
134: <font size="2"><a href="?Printable=yes">
135: Click here for a printer-friendly version of this page
136: </a>
137: </div>
138: );
139: } print qq(
140: </td>
141: </tr></table>
142: <hr>
143: <table width="100%" class="dark"><tr>
144: <td valign="top" rowspan="2"><nobr>
145: );
146: print(sideMenu(ifile('/include/menu.xml')) );
147: print qq(
148: </nobr></td><td valign="top">
149: );
150: } print qq(
151: );
152: };
153: print qq(
154:
155: );
156: use MySite::Project;my $current = new MySite::Project('File'=>ifile('/project/current.xml'),Server=>$server);
157: print qq(
158:
159: <div class="main-head">
160: Current Project Work
161: </div>
162:
163: <br>
164: <div class="main-desc">
165: This page contains a list of stuff currently being worked on
166: or in the queue to be done shortly.
167: </div>
168: <br>
169:
170: <table><tr><td width="22"> </td><td>
171: );
172: $current->_render( sub { $current->anchors() }, sub {
173: });
174: print qq(
175: </td></tr></table>
176:
177: );
178: $current->_render( sub { $current->table() }, sub {
179: });
180: print qq(
181:
182: );
183: do {
184: my $include;
185:
186: unless ($server->param('Printable')) { print qq(
187: </td></tr></table>
188: );
189: } print qq(
190: </body></html>
191: );
192: };
193: print qq(
194: );
195: $session->save();
196: $user->save();