[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.118 and 1.119

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;
Removed from v.1.118  
changed lines
  Added in v.1.119

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>