X-Git-Url: https://git.deb.at/?a=blobdiff_plain;ds=sidebyside;f=lib%2FPackages%2FHTML.pm;h=65a13f406e9b75ba2e9ad039d28a14a800881973;hb=05a0c58e9b554213e2b99c0d3f19cfb1e59880e7;hp=1003949ff07ba3b12de4446c50292e84e328e148;hpb=e41d34b008ea4b4ad09b5eea457d7523c7ef2fa3;p=deb%2Fpackages.git

diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 1003949..65a13f4 100644
--- a/lib/Packages/HTML.pm
+++ b/lib/Packages/HTML.pm
@@ -6,11 +6,15 @@ use warnings;
 use URI::Escape;
 use HTML::Entities;
 
-use Packages::Util;
-use Packages::I18N::Locale;
-use Packages::I18N::Languages;
-use Packages::I18N::LanguageNames;
-use Generated::Strings qw( gettext dgettext );
+#use Packages::Util;
+#use Packages::I18N::Locale;
+#use Packages::I18N::Languages;
+#use Packages::I18N::LanguageNames;
+#use Generated::Strings qw( gettext dgettext );
+
+# dummy routines
+sub get_charset { return "utf-8" };
+sub gettext { return $_[0]; };
 
 our @ISA = qw( Exporter );
 our @EXPORT = qw( header title trailer file_changed time_stamp
@@ -19,15 +23,17 @@ our @EXPORT = qw( header title trailer file_changed time_stamp
 		  pdeplegend pkg_list pmoreinfo );
 
 our $HOME = "http://www.debian.org";
+our $ROOT = "http://merkel.debian.org/~jeroen/pdo"; # <-- config.sh?!
 our $CONTACT_MAIL = 'debian-www@lists.debian.org';
 our $WEBMASTER_MAIL = 'webmaster@debian.org';
-our $SEARCH_PAGE = "http://packages.debian.org/";
-our $CGI_ROOT = "http://packages.debian.org/cgi-bin";
+our $SEARCH_PAGE = "$ROOT/";
+our $SEARCH_CGI = "$ROOT/search";
+our $CGI_ROOT = "$ROOT/cgi-bin";
 our $CN_HELP_URL = "${HOME}/intro/cn";
 our $CHANGELOG_URL = '/changelogs';
 our $COPYRIGHT_URL = '/changelogs';
-our $SEARCH_URL = '/cgi-bin/search_packages.pl?searchon=names&amp;version=all&amp;exact=1&amp;keywords=';
-our $SRC_SEARCH_URL = '/cgi-bin/search_packages.pl?searchon=sourcenames&amp;version=all&amp;exact=1&amp;keywords=';
+our $SEARCH_URL = "$ROOT/search/";
+our $SRC_SEARCH_URL = "$SEARCH_CGI?searchon=sourcenames&amp;version=all&amp;exact=1&amp;keywords=";
 our $BUG_URL = 'http://bugs.debian.org/';
 our $SRC_BUG_URL = 'http://bugs.debian.org/src:';
 our $QA_URL = 'http://packages.qa.debian.org/';
@@ -288,7 +294,7 @@ sub header {
 				 sourcenames => "", );
 	$checked_searchon{$values{searchon}} = "checked=\"checked\"";
 	$search_in_header = <<MENU;
-<form method="GET" action="$CGI_ROOT/search_packages.pl">
+<form method="GET" action="$SEARCH_CGI">
 <div id="hpacketsearch">
 <input type="hidden" name="suite" value="$values{suite}">
 <input type="hidden" name="subword" value="$values{subword}">