package CGI::FileManager::Templates; use strict; use warnings; =head1 CONTENT css file and HTML::Template files hard coded in the application =cut our %tmpl; our $css = < BODY { FONT-SIZE: 14px; COLOR: #a5a5a5; FONT-FAMILY: Verdana; BACKGROUND-COLOR: lightblue; TEXT-DECORATION: none } .error { color: red; } .mybutton { color: #4a4d4a; background-color:#8080FF; font-size:12px; font-weight:bold; /* FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none */ } .choosebutton { color: #4a4d4a; font-size:12px; font-weight:bold; /* FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none */ } A:link { FONT-SIZE: 12px; COLOR: #339900; FONT-FAMILY: verdana; TEXT-DECORATION: none } A:visited { FONT-SIZE: 12px; COLOR: #996600; FONT-FAMILY: Verdana; TEXT-DECORATION: none } A:hover { FONT-SIZE: 12px; COLOR: #cc9900; FONT-FAMILY: Verdana; TEXT-DECORATION: none } A:active { FONT-SIZE: 12px; COLOR: #000033; FONT-FAMILY: Verdana; TEXT-DECORATION: none } .files TABLE { cell-spacing: 1; cell-padding: 0; border: 1; align: middle; } .files TH { background-color: #8080FF; } TD { FONT-SIZE: 13px; COLOR: #4a4d4a; FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none } TH { FONT-SIZE: 13px; COLOR: #4a4d4a; FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none } .even TD { FONT-SIZE: 13px; COLOR: #4a4d4a; FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none; background-color: #CCFF99; } .odd TD { FONT-SIZE: 13px; COLOR: #4a4d4a; FONT-FAMILY: Verdana,arial; TEXT-DECORATION: none; background-color: #AAFF99; } CSS $tmpl{message} = < CGI::FileManager CSS_STYLE_SHEET

Message

ENDHTML $tmpl{login} = < CGI::FileManager CSS_STYLE_SHEET








Login failed
Login form
Username:
Password:
ENDHTML $tmpl{list_dir} = < CGI::FileManager - Directory Listing CSS_STYLE_SHEET

oddeven">
name type date size
delete rename


You are using CGI::FileManager Version:
For help contact Gabor Szabo
ENDHTML $tmpl{logout} = < CGI::FileManager - Good bye CSS_STYLE_SHEET

You were successfully logged out.

ENDHTML $tmpl{rename_form} = < CGI::FileManager - Rename <TMPL_VAR filename> CSS_STYLE_SHEET
Rename to
ENDHTML our $cgi = q(#!/usr/bin/perl -wT use strict; $ENV{PATH}= ""; use lib "../lib"; use CGI::FileManager; my $fm = CGI::FileManager->new( PARAMS => { AUTH => { PASSWD_FILE => "../data/authpasswd", }, TMPL_PATH => "../templates", } ); $fm->run; ); sub _get_template { my $name = shift; $tmpl{$name} =~ s/CSS_STYLE_SHEET/$css/; return $tmpl{$name}; } 1;