File Coverage

blib/lib/CGI/FileManager/Templates.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod n/a
total 8 12 66.6


line stmt bran cond sub pod time code
1             package CGI::FileManager::Templates;
2 3     3   33 use strict;
  3         10  
  3         120  
3 3     3   19 use warnings;
  3         5  
  3         1458  
4              
5              
6             =head1 CONTENT
7              
8             css file and HTML::Template files hard coded in the application
9              
10             =cut
11              
12             our %tmpl;
13              
14             our $css = <
15            
126             CSS
127              
128              
129             $tmpl{message} = <
130            
131            
132            
133             CGI::FileManager
134            
135             CSS_STYLE_SHEET
136            
137            
138            

Message

139            
140            
141            
142             ENDHTML
143              
144              
145             $tmpl{login} = <
146            
147            
148            
149             CGI::FileManager
150            
151             CSS_STYLE_SHEET
152            
153            
154            








155            
156            
Login failed
157            
158            
Login form
159            
Username:
160            
Password:
161            
162            
163            
164            
165             ENDHTML
166              
167             $tmpl{list_dir} = <
168            
169            
170            
171             CGI::FileManager - Directory Listing
172            
173             CSS_STYLE_SHEET
174            
175            

176            
177              
178            
179            
180             oddeven">
181            
182             name
183             type
184             date
185             size
186            
187            
188            
189            
190            
191            
192            
193            
194            
195            
196            
197            
198            
199            
200            
201            
202            
203            
204            
205            
206            
207            
208            
209            
210            
211             delete
212             rename
213            
214            
215            
216            
217            
218              
219            

220            
221            

222              
223            
224            
225            
226            
227            
228            
229            
230            
231            

232            
233              
234            
235            
236            
237            
238            
239            
240              
241            
242            

243            
244            
245            
246            
247            
248            
249            
250            
251            
252            
253            
254            
255            
256            
257            
258            
259            
260            
261            
262            
263            
264              
265            
266              
267            
268             You are using CGI::FileManager Version:
269            
270             For help contact Gabor Szabo
271            
272              
273            
274            
275            
276             ENDHTML
277              
278              
279              
280              
281             $tmpl{logout} = <
282            
283            
284            
285             CGI::FileManager - Good bye
286            
287             CSS_STYLE_SHEET
288            
289            
290            

291             You were successfully logged out.
292            

293            
294            
295            
296            
297            
298             ENDHTML
299              
300             $tmpl{rename_form} = <
301            
302            
303            
304             CGI::FileManager - Rename <TMPL_VAR filename>
305            
306             CSS_STYLE_SHEET
307            
308            
309            
310            
311            
312            
313            
314             Rename to
315            
316            
317            
318            
319            
320            
321             ENDHTML
322              
323              
324             our $cgi =
325             q(#!/usr/bin/perl -wT
326             use strict;
327              
328             $ENV{PATH}= "";
329             use lib "../lib";
330             use CGI::FileManager;
331             my $fm = CGI::FileManager->new(
332             PARAMS => {
333             AUTH => {
334             PASSWD_FILE => "../data/authpasswd",
335             },
336             TMPL_PATH => "../templates",
337             }
338             );
339             $fm->run;
340             );
341              
342              
343              
344              
345             sub _get_template {
346 0     0     my $name = shift;
347 0           $tmpl{$name} =~ s/CSS_STYLE_SHEET/$css/;
348 0           return $tmpl{$name};
349             }
350              
351              
352             1;
353              
354