svn commit: r393588 - /perl/embperl/trunk/eg/web/header.epl

[richter]

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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]