version 1.39, 2003/10/20 17:39:30
|
version 1.41, 2004/01/08 19:50:47
|
Line 39 Content-type: text/html
|
Line 39 Content-type: text/html
|
<html> |
<html> |
<head><title>Bad Cookie</title></head> |
<head><title>Bad Cookie</title></head> |
<body> |
<body> |
Your cookie information is incorrect. What\'s up with that? |
Your cookie information is incorrect. |
</body> |
</body> |
</html> |
</html> |
END |
END |
Line 48 END
|
Line 48 END
|
|
|
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
#### my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); |
|
|
|
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
my $texfile = $ENV{$identifier.'.file'}; |
my $texfile = $ENV{'cgi.'.$identifier.'.file'}; |
my $laystyle = $ENV{$identifier.'.layout'}; |
my $laystyle = $ENV{'cgi.'.$identifier.'.layout'}; |
my $numberofcolumns = $ENV{$identifier.'.numcol'}; |
my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'}; |
my $selectionmade = $ENV{$identifier.'.selection'}; |
my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; |
|
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
|
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
|
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
|
|
my $advans_role=0; |
|
if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;} |
|
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
my $duefile = $texfile; |
my $duefile = $texfile; |
Line 70 my $selectionmade = $ENV{$identifier.'.s
|
Line 70 my $selectionmade = $ENV{$identifier.'.s
|
my $noteps; |
my $noteps; |
foreach $not_eps (@content_of_file) { |
foreach $not_eps (@content_of_file) { |
if ($not_eps ne '') { |
if ($not_eps ne '') { |
|
$not_eps=~s|\/\.\/|\/|g; |
my $eps_f = $not_eps; |
my $eps_f = $not_eps; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$eps_f =~ s/\.[^.]*$/\.eps/i; |
$_ = $eps_f; |
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) { |
m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/; |
$eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$eps_f; |
|
} else { |
|
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
|
$eps_f = '/home/httpd/prtspool/'.$1; |
|
} |
my $path=$eps_f; |
my $path=$eps_f; |
$path=~s/\/([^\/]+)\.eps$//; |
$path=~s/\/([^\/]+)\.eps$//; |
File::Path::mkpath($path,0,0777); |
File::Path::mkpath($path,0,0777); |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
Line 105 my $selectionmade = $ENV{$identifier.'.s
|
Line 110 my $selectionmade = $ENV{$identifier.'.s
|
my $path_file = $1.'/'; |
my $path_file = $1.'/'; |
chdir $path_file; |
chdir $path_file; |
system("latex $name_file 1>/dev/null 2>/dev/null"); |
system("latex $name_file 1>/dev/null 2>/dev/null"); |
if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents |
if ($tableofcontents eq 'yes') { |
|
system("latex $name_file 1>/dev/null 2>/dev/null"); |
|
} #to create table of contents |
my $idxname=$name_file; |
my $idxname=$name_file; |
$idxname=~s/\.tex$/\.idx/; |
$idxname=~s/\.tex$/\.idx/; |
if ($selectionmade>=100) { |
if ($tableofindex eq 'yes') { |
system("makeindex $idxname"); |
system("makeindex $idxname"); |
system("latex $name_file 1>/dev/null 2>/dev/null"); |
system("latex $name_file 1>/dev/null 2>/dev/null"); |
} #to create index |
} #to create index |