Do some work to get show_package.pl to work -- not completed yet

diff --git a/cgi-bin/index.php b/cgi-bin/index.php
index 5e9809da4e5889453229b1e99514834589f82b63..006db80e09d43d9ae609c2bcc40e4dc4e5f63cc1 100644 (file)
--- a/cgi-bin/index.php
+++ b/cgi-bin/index.php
@@ -25,7 +25,7 @@ function go($script)
 $SUITES = array('oldstable', 'stable', 'testing', 'unstable', 'experimental');
 $pi = substr($_SERVER["PATH_INFO"], 1);
 $elems = explode('/', $pi);
-if (!$elems) {
+if ($pi == "") {
        readfile("index.html");
        exit;
 } elseif ($pi == 'search') {

diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index 260d5cee36d9535459989bb0b49768c1f6c84929..bfcb9057c021c74a89a53b0ca9f84bd4502ab070 100755 (executable)
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -26,6 +26,7 @@ use lib "../lib";
 use Deb::Versions;
 use Packages::Search qw( :all );
 use Packages::HTML ();
+use Packages::Page ();
 
 my $HOME = "http://www.debian.org";
 my $ROOT = "";
@@ -42,7 +43,6 @@ my %ARCHIVES = map { $_ => 1 } @ARCHIVES;
 my %ARCHITECTURES = map { $_ => 1 } @ARCHITECTURES;
 
 
-
 $ENV{PATH} = "/bin:/usr/bin";
 
 # Read in all the variables set by the form
@@ -111,10 +111,15 @@ if $format eq 'html';
 }
 while (<C>) {
     $topdir = $1 if (/^\s*topdir="?(.*)"?\s*$/);
+    $ROOT = $1 if /^\s*root="?(.*)"?\s*$/;
 }
 close (C);
 
 my $DBDIR = $topdir . "/files/db";
+my $DL_URL = "$package/download";
+my $FILELIST_URL = "$package/files";
+my $DDPO_URL = "http://qa.debian.org/developer.php?email=";
+
 
 my $obj1 = tie my %packages, 'DB_File', "$DBDIR/packages_small.db", O_RDONLY, 0666, $DB_BTREE
     or die "couldn't tie DB $DBDIR/packages_small.db: $!";
@@ -158,6 +163,8 @@ for my $entry (@results) {
 
 sub showpackage {
     my ( $pkg ) = @_;
+
+    my $env;
     
     my $name = $pkg->get_name;
     
@@ -194,8 +201,6 @@ sub showpackage {
                || $env->{db}->is_translated( $name, $d->{version},
                                              ${$versions{v2a}{$d->{version}}}[0],
                                              $lang )) {
-           $files->delete_file( $filename )
-               if $files->file_exists( $filename );
            next;
        }
        progress() if $env->{opts}{progress};
@@ -350,11 +355,6 @@ sub showpackage {
        }
        $package_page .= trailer( '../..', $name, $lang, @tr_langs );
        
-       #
-       # write file
-       #
-       $files->update_file( $filename, $package_page );
-       
        #
        # create data sheet
        #