From: Jeroen van Wolffelaar <jeroen@wolffelaar.nl>
Date: Mon, 6 Feb 2006 00:16:40 +0000 (+0000)
Subject: Fix several minor issues, mostly configuration-like stuff
X-Git-Tag: switch-to-templates~169
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=264b1245548e5c5494778a813e5e48897168b008;p=deb%2Fpackages.git

Fix several minor issues, mostly configuration-like stuff
---

diff --git a/bin/daily b/bin/daily
index 0d5afb4..e432593 100755
--- a/bin/daily
+++ b/bin/daily
@@ -19,7 +19,7 @@
 # Should run after the mirror pulse.  The mirror tends to finish by
 # the ctime of rsync.log.* in ~archvsync.
 
-topdir=/org/packages.debian.org
+source config.sh
 files=$topdir/files
 logs=$files/logs
 log=$logs/cron.log
diff --git a/cgi-bin/search_packages.pl b/cgi-bin/search_packages.pl
index 22e9495..5a31a1c 100755
--- a/cgi-bin/search_packages.pl
+++ b/cgi-bin/search_packages.pl
@@ -12,6 +12,7 @@
 # see http://www.fsf.org/copyleft/gpl.html for a copy of the license
 
 use strict;
+use lib '../lib';
 use CGI qw( -oldstyle_urls );
 use CGI::Carp qw( fatalsToBrowser );
 use POSIX;
diff --git a/cgi-bin/show_package.pl b/cgi-bin/show_package.pl
index 53d0f7b..a98337a 100755
--- a/cgi-bin/show_package.pl
+++ b/cgi-bin/show_package.pl
@@ -13,6 +13,7 @@
 # see http://www.fsf.org/copyleft/gpl.html for a copy of the license
 
 use strict;
+use lib '../lib';
 use CGI qw( -oldstyle_urls );
 use CGI::Carp qw( fatalsToBrowser );
 use POSIX;
diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index cac499f..b2b261d 100644
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -30,6 +30,9 @@ sub debug {
 sub msg {
     push @msgs, $_[0];
 }
+sub note {
+    push @notes, $_[0];
+}
 sub notes {
     push @notes, [ @_ ];
 }
diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 826461a..7493971 100644
--- a/lib/Packages/HTML.pm
+++ b/lib/Packages/HTML.pm
@@ -144,7 +144,7 @@ sub pmoreinfo {
 	$str .= " <a href=\"/$path/source/$source\">$source</a>, ".
 	    gettext( "Download" ).":\n";
 
-	unless (@$files) {
+	unless (defined($files) and @$files) {
 	    $str .= gettext( "Not found" );
 	} else {
 	    foreach( @$files ) {
diff --git a/lib/Packages/Page.pm b/lib/Packages/Page.pm
index 550b989..b00eefb 100644
--- a/lib/Packages/Page.pm
+++ b/lib/Packages/Page.pm
@@ -6,7 +6,6 @@ use warnings;
 use Data::Dumper;
 use Deb::Versions;
 use Packages::CGI;
-use IO::String;
 
 our $ARCHIVE_DEFAULT = '';
 our $SECTION_DEFAULT = 'main';