X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;ds=inline;f=cgi-bin%2Fshow_package.pl;h=bfcb9057c021c74a89a53b0ca9f84bd4502ab070;hb=5182ae034dddba23fe956fbfc373829e6574b88e;hp=260d5cee36d9535459989bb0b49768c1f6c84929;hpb=1a910dd8949a5a4ce3c93fa581a1f70fe5675997;p=deb%2Fpackages.git

diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index 260d5ce..bfcb905 100755
--- 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
 	#