diff options
Diffstat (limited to 'www/webglimpse/files/patch-cgi-bin__webglimpse-fullsearch')
| -rw-r--r-- | www/webglimpse/files/patch-cgi-bin__webglimpse-fullsearch | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/www/webglimpse/files/patch-cgi-bin__webglimpse-fullsearch b/www/webglimpse/files/patch-cgi-bin__webglimpse-fullsearch deleted file mode 100644 index 3cf2636c8570..000000000000 --- a/www/webglimpse/files/patch-cgi-bin__webglimpse-fullsearch +++ /dev/null @@ -1,92 +0,0 @@ ---- ./cgi-bin/webglimpse-fullsearch.orig 1998-01-25 16:22:51.000000000 -0500 -+++ ./cgi-bin/webglimpse-fullsearch 2009-07-07 22:30:26.511066587 -0400 -@@ -7,6 +7,9 @@ - # returns full search box (with preference to the referring page) - ######################################################################### - -+use POSIX qw(locale_h); -+use locale; -+ - # The following variables are changed by wginstall - $WEBGLIMPSE_HOME = "/usr/local/webglimpse"; - $CGIBIN = "cgi-bin/webglimpse"; -@@ -25,8 +28,18 @@ - # name of config file - $CONFIGFILE = "archive.cfg"; - -+$charset = ''; -+$locale = ''; -+$put_header = 0; -+ -+sub http_header { -+ -+return if ($put_header); -+$put_header = 1; -+ - # start the header --print "Content-type: text/html\n\n"; -+print "Content-type: text/html$charset\n\n"; -+} - - # ENV variables - # path info contains the archive directory -@@ -115,7 +128,14 @@ - &err_conf; - } - ($title, $archiveurl, $traverse_type, $explicit_only, $numhops, -- $nhhops, $local_limit, $remote_limit, $addboxes, @urllist) = ReadConfig($archivepwd); -+ $nhhops, $local_limit, $remote_limit, $addboxes, $vhost, $usemaxmem, $locale, $charset, @urllist) = ReadConfig($indexdir); -+ -+$ENV{LC_CTYPE}=$locale if ($locale ne ''); -+setlocale(LC_CTYPE, ""); -+ -+$charset = "; charset=$charset" if ($charset ne ''); -+ -+&http_header; - - # look for the title for this page - $thistitle = &lookup_title($file); -@@ -159,19 +179,19 @@ - print "<INPUT TYPE=submit VALUE=Submit>\n"; - print "<br>\n"; - print "<center>\n"; --print "<INPUT NAME=case TYPE=checkbox>Case sensitive\n"; --print "<!-- SPACES -->   \n"; --# print "<!-- SPACES -->       \n"; --print "<INPUT NAME=whole TYPE=checkbox>Partial match\n"; --print "<!-- SPACES -->   \n"; --print "<INPUT NAME=lines TYPE=checkbox>Jump to line\n"; --print "<!-- SPACES -->   \n"; -+print "<INPUT NAME=case TYPE=checkbox>Case sensitive\n"; -+print "<!-- SPACES --> \n"; -+# print "<!-- SPACES --> \n"; -+print "<INPUT NAME=whole TYPE=checkbox>Partial match\n"; -+print "<!-- SPACES --> \n"; -+print "<INPUT NAME=lines TYPE=checkbox>Jump to line\n"; -+print "<!-- SPACES --> \n"; - print "<SELECT NAME=errors align=right>\n"; - print "<OPTION>0\n"; - print "<OPTION>1\n"; - print "<OPTION>2\n"; - print "</SELECT>\n"; --print "misspellings allowed\n"; -+print "misspellings allowed\n"; - print "<br>\n"; - print "</center>\n"; - print "Return only files modified within the last <INPUT NAME=age size=5>\n"; -@@ -273,6 +293,7 @@ - - ######################################################################### - sub err_conf{ -+ &http_header; - print "<title>Cannot find archive</title>\n"; - print "</head><body>\n"; - print "<h1>Specified directory $archivepwd is not an archive directory.</h1>\n"; -@@ -283,6 +304,7 @@ - - sub err_file{ - local ($file) = @_; -+ &http_header; - print "<title>Can't read file</title>\n"; - print "</head><body>\n"; - print "<h1>Specified file $file is not readable.</h1>\n"; |