version 1.270, 2003/08/11 20:05:53
|
version 1.271, 2003/08/13 14:23:37
|
Line 69 use Safe::Hole();
|
Line 69 use Safe::Hole();
|
use Math::Cephes(); |
use Math::Cephes(); |
use Math::Random(); |
use Math::Random(); |
use Opcode(); |
use Opcode(); |
|
use POSIX qw(strftime); |
|
|
|
|
sub register { |
sub register { |
Line 1137 sub storefile {
|
Line 1138 sub storefile {
|
if (my $fh=Apache::File->new('>'.$file)) { |
if (my $fh=Apache::File->new('>'.$file)) { |
print $fh $contents; |
print $fh $contents; |
$fh->close(); |
$fh->close(); |
|
return 1; |
} else { |
} else { |
&warning("Unable to save file $file"); |
&warning("Unable to save file $file"); |
|
return 0; |
} |
} |
} |
} |
|
|
Line 1242 sub handler {
|
Line 1245 sub handler {
|
# |
# |
unless ($ENV{'request.state'} eq 'published') { |
unless ($ENV{'request.state'} eq 'published') { |
if (($ENV{'form.savethisfile'}) || ($ENV{'form.attemptclean'})) { |
if (($ENV{'form.savethisfile'}) || ($ENV{'form.attemptclean'})) { |
&storefile($file,$ENV{'form.filecont'}); |
if (&storefile($file,$ENV{'form.filecont'})) { |
|
$request->print("<font COLOR=\"#0000FF\">Updated: ". strftime("%d %b %H:%M:%S",localtime())." </font>"); |
|
} |
} |
} |
} |
} |
my %mystyle; |
my %mystyle; |