head	1.4;
access;
symbols
	RELEASE_7_2_0:1.3
	RELEASE_7_1_0:1.3
	RELEASE_6_4_0:1.3
	RELEASE_5_EOL:1.3
	RELEASE_7_0_0:1.3
	RELEASE_6_3_0:1.3
	PRE_XORG_7:1.3
	RELEASE_4_EOL:1.3
	RELEASE_6_2_0:1.3
	RELEASE_6_1_0:1.3
	RELEASE_5_5_0:1.3
	RELEASE_6_0_0:1.3
	RELEASE_5_4_0:1.3
	RELEASE_4_11_0:1.3
	RELEASE_5_3_0:1.3
	RELEASE_4_10_0:1.3
	RELEASE_5_2_1:1.3
	RELEASE_5_2_0:1.3
	RELEASE_4_9_0:1.3
	RELEASE_5_1_0:1.3
	RELEASE_4_8_0:1.3
	RELEASE_5_0_0:1.3
	RELEASE_4_7_0:1.3
	RELEASE_4_6_2:1.3
	RELEASE_4_6_1:1.3
	RELEASE_4_6_0:1.3
	RELEASE_5_0_DP1:1.3
	RELEASE_4_5_0:1.3
	RELEASE_4_4_0:1.3
	RELEASE_4_3_0:1.3
	RELEASE_4_2_0:1.3
	RELEASE_4_1_1:1.3
	RELEASE_4_1_0:1.3
	RELEASE_3_5_0:1.3
	RELEASE_4_0_0:1.3
	RELEASE_3_4_0:1.3
	RELEASE_3_3_0:1.3
	RELEASE_3_2_0:1.3
	RELEASE_3_1_0:1.3
	RELEASE_2_2_8:1.3
	ache_1_1:1.1.1.1
	ache:1.1.1;
locks; strict;
comment	@# @;


1.4
date	2009.07.08.02.35.36;	author pgollucci;	state dead;
branches;
next	1.3;

1.3
date	98.11.03.18.44.04;	author ache;	state Exp;
branches;
next	1.2;

1.2
date	98.11.02.20.04.29;	author ache;	state Exp;
branches;
next	1.1;

1.1
date	98.11.02.06.54.53;	author ache;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	98.11.02.06.54.53;	author ache;	state Exp;
branches;
next	;


desc
@@


1.4
log
@- patch file shuffle for my sanity
@
text
@--- cgi-bin/webglimpse-fullsearch.orig	Mon Jan 26 00:22:51 1998
+++ cgi-bin/webglimpse-fullsearch	Mon Nov  2 15:17:02 1998
@@@@ -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&#160;sensitive\n";
-print "<!-- SPACES -->&#160;&#160;&#160;\n";
-# print "<!-- SPACES -->&#160;&#160;&#160;&#160;&#160;&#160;&#160;\n";
-print "<INPUT NAME=whole TYPE=checkbox>Partial&#160;match\n";
-print "<!-- SPACES -->&#160;&#160;&#160;\n";
-print "<INPUT NAME=lines TYPE=checkbox>Jump&#160;to&#160;line\n";
-print "<!-- SPACES -->&#160;&#160;&#160;\n";
+print "<INPUT NAME=case TYPE=checkbox>Case&nbsp;sensitive\n";
+print "<!-- SPACES -->&nbsp;&nbsp;&nbsp;\n";
+# print "<!-- SPACES -->&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\n";
+print "<INPUT NAME=whole TYPE=checkbox>Partial&nbsp;match\n";
+print "<!-- SPACES -->&nbsp;&nbsp;&nbsp;\n";
+print "<INPUT NAME=lines TYPE=checkbox>Jump&nbsp;to&nbsp;line\n";
+print "<!-- SPACES -->&nbsp;&nbsp;&nbsp;\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&#160;allowed\n";
+print "misspellings&nbsp;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";
@


1.3
log
@narrow localization to LC_CTYPE only
@
text
@@


1.2
log
@Localize it
@
text
@d40 1
a40 1
+$ENV{LANG}=$locale if ($locale ne '');
@


1.1
log
@Initial revision
@
text
@d1 49
a49 3
--- cgi-bin/webglimpse-fullsearch.orig	Mon Nov  2 08:52:04 1998
+++ cgi-bin/webglimpse-fullsearch	Mon Nov  2 08:53:25 1998
@@@@ -159,19 +159,19 @@@@
d77 16
@


1.1.1.1
log
@WWW interface to Glimpse search engine
@
text
@@
