 |
0 :םויה תוסינכ
49 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
 |
|
CGIב םיטפירקס
|
|
שופיח עונמ
|
רוד ןתמ :רבחמה םש
www.eskimo.co.il :תיב-רתא
:תורעה\תויחנה
תויעב םנשי םע רשק יתיא ורצ אנ
:דוק
|
#! /usr/local/bin/perl
$list ='list_site.txt';
$urlsearch = '';
$email = 'dor44@netvision.net.il';
$cgidir = '';
sub sresult
{
print "Content-type:text/html\n\n" ;
print ("
<html>
<head>
<META CHARSET=windows-1255>
<title>כל בו סיון</title>
</head>
<body background=\"../img/background.gif\" vlink=\"#000000\" alink=\"#000000\">
<STYLE type=text/css>
A:link { COLOR: #000000; TEXT-DECORATION: none}
A:hover { COLOR: #FF3300; TEXT-DECORATION: none}
A:visited { TEXT-DECORATION: none}
A:active { TEXT-DECORATION: none}
.text { FONT-SIZE: small}
</STYLE>
<table width=\"640\" align=center>
<tr>
<td width=20%><img src=\"../img/avi2.gif\" width=\"63\" height=\"90\" border=\"1\"></td>
<td width=50%><center><img src=\"../img/logo.gif\"><br>
<div align=\"right\"><img src=\"../img/blouline.gif\"></div><img src=\"../img/logo_down.gif\"></center></td>
<td width=30%><div align=\"right\"><b>
<font size=\"2\">
בעל התחנה דור אבי<br>
,ניסיון של 20 שנה<br>
במילוי שיטות ממוחשבות<br>
.זכיות לרוב, והמון הצלחות<br>
</b></font>
<img src=\"../img/nober1.gif\">
<center><a href=\"http://go.to/kolbo\" onClick=\"this.style.behavior='url(#default#homepage)';this.setHomePage('http://go.to/kolbo');\"><b><u>הפוך את האתר<br>
!לדף הבית שלך</u></b></center></a>
</div></td>
</tr>
</table><br>
"); }
# Displays bottom of Return
sub nsite
{
print("
<p align=\"center\"><font size=\"2\" face=\"Arial\"></font>
<div align=\"center\">
<center><form action=\"search.pl\" method=\"POST\">
<input type=\"text\" size=\"18\" name=\"keyword\" value=\"$FORM{'keyword'}\"></font>
<input type=\"submit\" value=\" חפש \"></font>
</form></center></div>
<center>כל הזכויות שמורות לכל בו סיון © 2000 <a href=\"mailto:$email\">עיצוב ובניה: מתן דור</a></center>
</body>
</html>
")
}
# Error Sub
sub error
{
&sresult;
print ("<p><H3><center>$FORM{'keyword'} :לא נמצא תוצאות מתאימות למילה</center></H3><p>");
&nsite;
exit;
}
# Get Variables
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
# Get Form Information
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
# Bad Search String Message
if ($FORM{'keyword'} eq "" | $FORM{'keyword'} =~ /^ /)
{
&sresult;
print ("<center>");
if ($FORM{'keyword'} eq "")
{
print "<H2>!שדה ריק";
}
else
{
print "!החיפוש שלך מתחיל ברווח";
}
print '<p>';
print '!נסה לחפש שנית<p></H2>';
print ".אם אתה צריך עזרה או סיוע<p><br></H2>";
print "<a href=\"mailto:$email\">$email</a> ,בבקשה צור קשר עם מנהל האתר ";
print ("</center>");
&nsite;
exit 0;
}
#
# Start the Display of the Search
#######################################################
unless (open (TBASE,"$list")) {die (&error);}
@input = <TBASE>;
&sresult;
#Display Search Stats
$listings = @input;
print ("<ul>");
#
# Display Search String Stats
#######################################################
$dddda = 0;
until ($dddda == $listings) {
#
#
#######################################################
if ($input[$dddda] =~ /$FORM{'keyword'}/g){
@data = split (/::/,$input[$dddda]);
#
#
#######################################################
print ("
<table width=\"604\" align=\"center\">
<tr>
<td width=\"30%\" bgcolor=\"#999999\"><div align=\"right\"><center>[$data[9]] [$data[8]]</center></div></td>
<td width=\"70%\" bgcolor=\"#999999\"><div align=\"right\">שם האתר: <a href=\"$data[1]\">$data[0]</a></div></td>
</tr>
</table>
<table width=\"600\" align=\"center\" bgcolor=\"#CCCCCC\">
<tr>
<td><div align=right>$data[3]<br>$data[4]<br>$data[5]<br>$data[6]</div></td>
</tr>
</table>
<table width=\"604\" align=\"center\">
<tr>
<td bgcolor=\"#999999\"><div align=\"right\"><a href=\"$data[1]\" target=\"_blank\">פתח בחלון חדש</a> קטגוריה: $data[7]<br></div>
</tr>
</table>
<hr width=\"604\" noshade>
");
}
++$dddda;
}
&nsite;
|
|
|
|
הרזח >>
|
... |
