 |
1 :םויה תוסינכ
30 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
 |
|
CGIב םיטפירקס
|
|
םירתא תמישר
|
ירמוע :רבחמה םש
:תורעה\תויחנה
םשב ץבוקה תא ךופהל שי :תורעה
addxoox.pl
\טפירקסה אצמנ םשש רתאה תבותכhttp://
addxoox.pl?action=showxoox
טפירקסה תיתחתב םושרש המ תונשל ןיא
___________________________________
:דוק
|
#!/usr/bin/perl
print "Content-type:text/html\n\n" ;
$buffer = $ENV{'QUERY_STRING'} ;
if ($buffer eq "") { $buffer = <STDIN>}
@indata = split (/&/, $buffer) ;
foreach $field (@indata) {
($name, $value) = split (/=/, $field) ;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value ;
}
if ($FORM{'action'} eq 'joinxoox') { ShowTheForm() }
elsif ($FORM{'action'} eq 'add_entry') { AddDataToFile() }
elsif ($FORM{'action'} eq 'showxoox') { DisplayBookToHTML() }
else {
print "<h2><center> -=> Error www.XooX.co.il = שגיעה<=-</h2>";
}
#end program
sub ShowTheForm {
print <<endForm
<font face="Arial (Hebrew)">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255">
<title>XooX</title>
</head>
<body bgcolor="#9AD1F0" link="#FF0000" vlink="#FF0000">
<STYLE type="text/css">
<p>A { COLOR: navy } A:visited { COLOR: darkred } A:hover { COLOR:
blue } a1:hover { COLOR: blue } a1:visited { COLOR: navy } </STYLE> </p>
<center>
<p align="center"><font size="3" face="Arial (Hebrew)"><strong>בבקשה מלאו את כל הטופס ולחצו על "שגר"</strong></font></p><BR>
<form action="addxoox.pl" method="post">
<input type="hidden" name="action" value="add_entry"><div
align="center"><center><table border="1" cellpadding="0"
cellspacing="0">
<tr>
<td width="400" bgcolor="#066398"><p align="right"><font
color="#FFFF00" size="2" face="Arial (Hebrew)"><strong>שם
האתר<br>
</strong></font><font size="2" face="Arial (Hebrew)"><input
type="text" size="28" name="name"
dir="rtl"
style="BACKGROUND-COLOR: lightgoldenrodyellow"><br>
</font><font color="#FFFF00" size="2"
face="Arial (Hebrew)"><strong>כתובת האתר<br>
</strong></font><font size="2" face="Arial (Hebrew)"><input
type="text" size="40" name="addxoox"
value="http://"
style="BACKGROUND-COLOR: lightgoldenrodyellow"><br>
</font><font color="#FFFF00" size="2"
face="Arial (Hebrew)"><strong>פירוט על
האתר<br>
</strong></font><font size="2" face="Arial (Hebrew)"><input
type="text" size="40" name="freeline"
dir="rtl"
style="BACKGROUND-COLOR: lightgoldenrodyellow"><br>
</font><font color="#FFFF00" size="2"
face="Arial (Hebrew)"><strong>שפת האתר<br>
</strong></font><font size="2" face="Arial (Hebrew)"><strong><select
name="safa" size="1" style="BACKGROUND-COLOR: lightgoldenrodyellow">
<option value="עברית">עברית</option>
<option value="אנגלית">אנגלית</option>
<option>רוסית</option>
<option>ערבית</option>
<option>אחר</option>
</select></strong></font><font color="#FFFF00"
size="2" face="Arial (Hebrew)"><strong><br>
קטגוריית האתר<br>
</strong></font><font size="2" face="Arial (Hebrew)"><strong><select
name="indexoox" size="1" style="BACKGROUND-COLOR: lightgoldenrodyellow">
<option
value="מנועי חיפוש ופורטלים">מנועי חיפוש ופורטלים</option>
<option value="מחשבים ואינטרנט">מחשבים ואינטרנט</option>
<option value="משחקים">משחקים</option>
<option value="תוכנה">תוכנה</option>
<option value="Music-מוזיקה">Music-מוזיקה</option>
<option value="חדשות ועיתונים">חדשות ועיתונים</option>
<option value="מגזיני מחשבים">מגזיני מחשבים</option>
<option value="לוחות">לוחות</option>
<option value="ספרים">ספרים</option>
<option value="מידע">מידע</option>
<option value="כלכלה ובנקים">כלכלה ובנקים</option>
<option value="ערוצי טלוויזיה">ערוצי טלוויזיה</option>
<option
value="סרטי תוכניות טלוויזיה">סרטי תוכניות טלוויזיה</option>
<option value="הכרויות">הכרויות</option>
<option value="בדיחות \ צחוקים">בדיחות \ צחוקים</option>
<option value="קניות">קניות</option>
<option value="ספורט">ספורט</option>
<option value="שירותי חינם">שירותי חינם</option>
<option value="לילדים בלבד">לילדים בלבד</option>
<option value="למבוגרים בלבד">למבוגרים בלבד</option>
<option>אחר</option>
</select></strong></font></p>
<p align="right"><font size="2" face="Arial (Hebrew)"><br>
</font><input type="submit" value="שגר"></p>
<p align="right"><input type="reset"
value="מחק את כל מה שכתבתי בטופס"></p>
</td>
</tr>
</table>
</center></div>
</form>
<hr size="1" color="#FF0000">
<p align="center"><font color="#000080" size="2" face="Arial (Hebrew)"><strong> B y : </strong></font><font color="#FFFF00" size="2" face="Arial (Hebrew)"><strong>S h l o m i R a b i a </strong></font><font color="#000080" size="2" face="Arial (Hebrew)"><strong> w w w .X o o X . c o . i l </strong></font></p>
<p>
<BR>
<p align="right"><font size="2" face="Arial (Hebrew)"><strong>ניבנה
ע"י אתר האיטרנט <br>
</strong></font><a href="http://www.xoox.co.il"><font size="2"
face="Arial (Hebrew)"><strong>www.XooX.co.il</strong></font></a></p>
</body>
</html>
endForm
;
}
sub AddDataToFile {
if ($FORM{'addxoox'} eq "") {
ShowTheForm() ;
exit ;
}
$OutString .= "$FORM{'name'}|" ;
$OutString .= "$FORM{'addxoox'}|" ;
$OutString .= "$FORM{'freeline'}|" ;
$OutString .= "$FORM{'safa'}|" ;
$OutString .= "$FORM{'indexoox'}|" ;
$OutString .= "\n" ;
open (OUTF, ">>addxoox.data") ;
print OUTF $OutString ;
close (OUTF) ;
DisplayBookToHTML () ;
}
sub DisplayBookToHTML {
open (INF, "addxoox.data") ;
@datafile = <INF> ;
close (INF) ;
@datafile = reverse(@datafile) ;
print <<endHead
<html dir="rtl">
<font face="Arial (Hebrew)">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1255">
<title>XooX</title>
</head>
<body bgcolor="#9AD1F0" link="#FF0000" vlink="#FF0000">
<STYLE type="text/css">
<p>A { COLOR: navy } A:visited { COLOR: darkred } A:hover { COLOR:
blue } a1:hover { COLOR: blue } a1:visited { COLOR: navy } </STYLE> </p>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="92%"
bgcolor="#004080">
<tr>
<td><p align="center"><font color="#FFFFFF" size="3"
face="Arial (Hebrew)"><strong>רשימת האתרים
המומלצים ע"י הגולשים</strong></font></p>
</td>
</tr>
</table>
<p align="center"><a href="addxoox.pl?action=joinxoox"><font
size="2" face="Arial (Hebrew)"><strong>הוסף אתר
לרשימת<br>
האתרים של האתר שלי</strong></font></a></p><p align="center">
endHead
;
$items_per_page = 25;
$number_of_items = scalar(@datafile);
$current_page = 0;
if (exists $FORM{'page'}) {
$current_page = $FORM{'page'};
}
$start = $items_per_page * $current_page;
$end = $items_per_page * ($current_page + 1);
for ($item = $start; $item < $end && $item < $number_of_items; $item++ ) {
$i = $datafile[$item];
chomp ($i) ;
($name, $addxoox, $freeline, $safa, $indexoox) = split (/\|/, $i) ;
if ($freeline eq "") { print "<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"300\"><tr bgcolor=\"#C0FFFF\"><td><div align=\"center\"><center><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"290\"><tr><TD><center><font size=\"2\" face=\"Arial (Hebrew)\"><strong>שם האתר: </strong>$name<BR><strong>כתובת האתר:</strong><p align=\"right\"><a href=\"$addxoox\"><font size=\"2\" face=\"Arial (Hebrew)\">$addxoox</td></tr></table></center></div></td></tr><tr><td bgcolor=\"#FFFFC0\"><p align=\"center\"><font size=\"2\" face=\"Arial (Hebrew)\"> $name </p></td></tr></table><BR>\n" }
else { print "<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"300\"><tr bgcolor=\"#C0FFFF\"><td><div align=\"center\"><center><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"290\"><tr><TD><center><font size=\"2\" face=\"Arial (Hebrew)\"><p align=\"right\"><strong>שם האתר: </strong>$name<BR><strong>כתובת האתר:</strong><a href=\"$addxoox\"><font size=\"2\" face=\"Arial (Hebrew)\">$addxoox</td></tr></table></center></div></td></tr><tr><td bgcolor=\"#FFFFC0\"><p align=\"right\"><font size=\"2\" face=\"Arial (Hebrew)\"><strong>שפת האתר:</strong> $safa<br><strong>נושא האתר:</strong> $indexoox</strong><br><strong>מה יש באתר?</strong><BR>$freeline <BR><a href=\"$addxoox\" target=\"_linkxoox\">כניסה לאתר בחלון חדש</a></p></td></tr></table><BR>\n" }
}
use integer;
$number_of_pages = $number_of_items / $items_per_page
+ (($number_of_items % $items_per_page) != 0);
no integer;
for ($count = 0; $count < $number_of_pages; $count++) {
if ($count == $current_page) {
print "[", ($count + 1), "] ";
} else {
print "[<font size=\"2\" face=\"Arial (Hebrew)\"><strong><a href='addxoox.pl?action=showxoox&page=$count'>", ($count + 1) ,"</a>] ";
}
}
print "";
print <<endFoot
<p align="center"><font color="#000080" size="2" face="Arial (Hebrew)"><strong> B y : </strong></font><font color="#FFFF00" size="2" face="Arial (Hebrew)"><strong>S h l o m i R a b i a </strong></font><font color="#000080" size="2" face="Arial (Hebrew)"><strong> w w w .X o o X . c o . i l </strong></font></p>
<p>
<BR>
<p align="right"><font size="2" face="Arial (Hebrew)"><strong>ניבנה
ע"י אתר האיטרנט <br>
</strong></font><a href="http://www.xoox.co.il"><font size="2"
face="Arial (Hebrew)"><strong>www.XooX.co.il</strong></font></a></p>
</body>
</html>
endFoot
;
}
|
|
|
|
הרזח >>
|
... |
