richter at apache
Apr 12, 2006, 1:06 PM
Post #1 of 1
(1085 views)
Permalink
|
|
svn commit: r393588 - /perl/embperl/trunk/eg/web/header.epl
|
|
Author: richter
Date: Wed Apr 12 13:06:17 2006
New Revision: 393588
URL: http://svn.apache.org/viewcvs?rev=393588&view=rev
Log:
website updates
Modified:
perl/embperl/trunk/eg/web/header.epl
Modified: perl/embperl/trunk/eg/web/header.epl
URL: http://svn.apache.org/viewcvs/perl/embperl/trunk/eg/web/header.epl?rev=393588&r1=393587&r2=393588&view=diff
==============================================================================
--- perl/embperl/trunk/eg/web/header.epl (original)
+++ perl/embperl/trunk/eg/web/header.epl Wed Apr 12 13:06:17 2006
@@ -30,6 +30,11 @@
</td>
<td align="right" valign="middle">
+[.-
+$site = 'www.ecos.de' ;
+$site = $1 if ($ENV{HTTP_USER_AGENT} =~ /^search:(.*?)$/) ;
+-]
+
<!-- SiteSearch Google -->
<form method="get" action="http://www.google.de/custom" target="_top">
<table border="0" bgcolor="#ffffff">
@@ -38,12 +43,12 @@
<img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img></a>
</td>
<td nowrap="nowrap">
-<input type="hidden" name="domains" value="www.ecos.de"></input>
+<input type="hidden" name="domains" value="[+ $site +]"></input>
<input type="text" name="q" size="31" maxlength="255" value=""></input>
<input type="radio" name="sitesearch" value="" checked="checked"></input>
<font size="-1" color="#000000">Web</font>
-<input type="radio" name="sitesearch" value="www.ecos.de"></input>
-<font size="-1" color="#000000">www.ecos.de</font>
+<input type="radio" name="sitesearch" value="[+ $site +]"></input>
+<font size="-1" color="#000000">[+ $site +]</font>
<input type="hidden" name="client" value="pub-6848064800813254"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="ie" value="ISO-8859-1"></input>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
