version 1.5, 2001/09/18 21:08:47
|
version 1.6, 2001/10/02 14:09:25
|
Line 51 ENDMENUOUT
|
Line 51 ENDMENUOUT
|
} |
} |
|
|
|
|
|
|
sub output_data { |
sub output_data { |
my $r = shift; |
my $r = shift; |
$r->print(<<ENDPART); |
$r->print(<<ENDPART); |
Line 65 ENDPART
|
Line 66 ENDPART
|
my $choice = $ENV{'form.choice'}; |
my $choice = $ENV{'form.choice'}; |
my $result = ''; |
my $result = ''; |
my %mystyle; |
my %mystyle; |
|
my $filename; |
# my $ere; |
|
# foreach $ere (%ENV) { |
|
# $r->print(' SS '.$ere.' => '.$ENV{$ere}.' FF '); |
|
# } |
|
|
|
|
|
if ($choice eq 'Standard LaTeX output for current document') { |
if ($choice eq 'Standard LaTeX output for current document') { |
Line 80 ENDPART
|
Line 77 ENDPART
|
|
|
{ |
{ |
my $temp_file; |
my $temp_file; |
my $filename = "/home/httpd/prtspool/$ENV{'environment.firstname'}temp$ENV{'user.login.time'}.tex"; |
$filename = "/home/httpd/prtspool/$ENV{'environment.firstname'}$ENV{'environment.lastname'}temp$ENV{'user.login.time'}.tex"; |
unless ($temp_file = Apache::File->new('>'.$filename)) { |
unless ($temp_file = Apache::File->new('>'.$filename)) { |
$r->log_error("Couldn't open $filename for output $!"); |
$r->log_error("Couldn't open $filename for output $!"); |
return SERVER_ERROR; |
return SERVER_ERROR; |
Line 88 ENDPART
|
Line 85 ENDPART
|
print $temp_file $result; |
print $temp_file $result; |
} |
} |
|
|
|
|
|
|
|
|
|
|
} elsif ($choice eq 'Standard LaTeX output for the whole sequence') { |
} elsif ($choice eq 'Standard LaTeX output for the whole sequence') { |
Line 104 ENDPART
|
Line 100 ENDPART
|
|
|
|
|
|
|
|
|
} |
} |
|
|
|
|
$r->print(<<FINALEND); |
$r->print(<<FINALEND); |
|
<meta http-equiv="Refresh" content="0; url=http://bistromath.lite.msu.edu/cgi-bin/printout.pl?$filename"> |
</body> |
</body> |
</html> |
</html> |
FINALEND |
FINALEND |
} |
} |
|
|
|
|
|
|
|
|
sub content_map { |
sub content_map { |
#-- find a list of files to publish |
#-- find a list of files to publish |
my $map_string = shift; |
my $map_string = shift; |
Line 170 sub handler {
|
Line 172 sub handler {
|
#-- core part |
#-- core part |
if ($ENV{'form.phase'} eq 'two') { |
if ($ENV{'form.phase'} eq 'two') { |
&output_data($r); |
&output_data($r); |
|
|
} |
} |
return OK; |
return OK; |
|
|
Line 177 sub handler {
|
Line 180 sub handler {
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
# my $ere; |
|
# foreach $ere (%ENV) { |
|
# $r->print(' SS '.$ere.' => '.$ENV{$ere}.' FF '."\n\n"); |
|
# } |