~;
if ($dirname) { print "$dirname"; }
else { print "Root"; }
print "";
if ($action) {
print qq~
Action:
$report~;
}
print "
\n~; }
&footer;
# Begin check file extension.
sub Check_Ext {
$ext_file = $_[0];
@ext_parts = split(/\./, $ext_file);
return($ext_parts[-1]);
}
# Begin edit text file procedure.
sub edit {
$filename = $FORM{'filename'};
$edit_file = "$data_path/$filename";
$report = &checkname($filename);
&header;
print "";
if ($report) {
$report = $report;
&list_files;
exit; }
if (-e $edit_file) { @LINES = `cat $edit_file`; }
else { @LINES = ''; $new = 'yes'; }
if ($new) {
$Ext = &Check_Ext($filename);
if ($Ext =~ /cgi|pl/i) {
$start_document = `cat default_cgi.txt`;
print qq~ This Is A New CGI File.
The Start Of A Perl Script Is Below For Your Convenience.
~; }
elsif ($Ext =~ /html|htm|shtml|shtm/i) {
$start_document = `cat default_html.txt`;
print qq~ This Is A New HTML File.
The Start Of An HTML Document Is Below For Your Convenience.
~; }
else {
print " This Is A New File, Enter Your Text Below.
"; }}
else {
if (-T $edit_file) {
print " Modify $filename as needed below:
"; }
else {
$report = "$filename is not a text file, only text can be edited.";
&list_files; }
print "
"; }
print qq~
NOTE! Search & replace is case sensitive!
Example: word is not the same as WORD
~;
&footer;
}
# Begin get file stats.
sub get_stats {
$filename = $_[0];
$type = $_[1];
if ($type eq "perms2") {
$mode = (stat($filename))[2];
$perms = sprintf "%3o", $mode & 07777;
$stat = $perms; }
if ($type eq "modtime") {
$stat = (stat($filename))[9]; }
return $stat;
}
# Begin time format.
sub FormatTime {
$thetime = $_[0];
@dow = qw(Sun Mon Tue Wed Thu Fri Sat);
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
($sec,$min,$hour,$day,$month,$year,$wday) = (localtime($thetime))[0,1,2,3,4,5,6];
if ($day == 1 || $day == 21 || $day == 31) { $end = 'st'; }
elsif ($day == 2 || $day == 22) { $end = 'nd'; }
elsif ($day == 3 || $day == 23) { $end = 'rd'; }
else { $end = 'th'; }
if ($year < 2000) { $year = $year + 1900; }
$min = sprintf("%02d", $min);
$sec = sprintf("%02d", $sec);
$FTime = "$dow[$wday], $months[$month] $day$end, $year $hour:$min:$sec";
}
# Begin list directories.
sub DirList {
$ls = `ls -R $Root`;
@pairs = split(/\n/,$ls);
@Dirs = ();
foreach (@pairs) {
if (m/$Root/) {
s#$Root/?(.)#$1#;
chop;
push(@Dirs, $_); }}
foreach $Dir (sort @Dirs) { $selected = '';
if ($Dir eq $dirname) { $selected = "selected"; }
print qq~