version 1.118, 2003/05/01 20:46:59
|
version 1.119, 2003/05/25 21:04:33
|
Line 1439 sub Get12Random {
|
Line 1439 sub Get12Random {
|
|
|
sub Include_virtual { |
sub Include_virtual { |
my ($fn, $output) = (@_, ''); |
my ($fn, $output) = (@_, ''); |
return "<!--#include virtual=\"$fn\"-->" if ($opt_z); |
return "\n<!--#include virtual=\"$fn\"-->\n" if ($opt_z); |
open F , $fn |
open F , $fn |
or return ""; #die "Can't open the file $fn: $!\n"; |
or return ""; #die "Can't open the file $fn: $!\n"; |
|
|
while (<F>) { |
while (<F>) { |
if (/<!--#include/o) { |
if (/<!--#include/o) { |
s/<!--#include virtual="\/(.*)" -->/&Include_virtual($1)/e; |
s/<!--#include virtual="\/?([^\/].*)" -->/&Include_virtual($1)/e; |
} |
} |
if (/<!--#exec/o) { |
if (/<!--#exec/o) { |
s/<!--#exec.*cmd\s*=\s*"([^"]*)".*-->/`$1`/e; |
s/<!--#exec.*cmd\s*=\s*"([^"]*)".*-->/`$1`/e; |
Line 1934 th {font-size: x-small; font-family : sa
|
Line 1934 th {font-size: x-small; font-family : sa
|
} |
} |
$tour = (param('tour')) ? param('tour') : 0; |
$tour = (param('tour')) ? param('tour') : 0; |
my $sth; |
my $sth; |
if ($tour !~ /^[0-9]*$/) { |
my $texttour=$tour; |
|
if ($tour !~ /^[0-9]*$/) { |
if ($tour=~/\./) |
if ($tour=~/\./) |
{ |
{ |
my ($fname,$n)= split /\./ , $tour; |
my ($fname,$n)= split /\./ , $tour; |
Line 2012 EOT
|
Line 2013 EOT
|
print "Content-Type: application/octet-stream\n"; |
print "Content-Type: application/octet-stream\n"; |
print "Content-Type: application/force-download\n"; |
print "Content-Type: application/force-download\n"; |
print "Content-Type: application/download\n"; |
print "Content-Type: application/download\n"; |
print "Content-Type: application/x-zip-compressed; name=db.zip\n"; |
print "Content-Type: application/x-zip-compressed; name=$texttour.zip\n"; |
print "Content-Disposition: attachment; filename=db.zip \n\n"; |
print "Content-Disposition: attachment; filename=$texttour.zip \n\n"; |
$tour ||= 0; |
$tour ||= 0; |
my (@files) = &PrintArchive($dbh, $tour); |
my (@files) = &PrintArchive($dbh, $tour); |
WriteFile($dbh,$_) foreach @files; |
WriteFile($dbh,$_) foreach @files; |