#!/usr/local/bin/perl $member=$ENV{'QUERY_STRING'}; if ($member) { @pairs=split(/&/,$member); foreach $item(@pairs) { ($name,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; } else { $INPUT{$name} = $content; } } } $header="; close (LST); print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; open (HDR,$header); @hdr_array = ; close (HDR); foreach $line(@hdr_array) { print $line."\n"; } $filename="proxies.lst"; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks)= stat($filename); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =gmtime($mtime); $eng_mon_str="January|February|March|April|May|June|July|August|September|October|November|December"; $rus_mon_str="Января|Февраля|Марта|Апреля|Мая|Июня|Июля|Августа|Сентября|Октября|Ноября|Декабря"; if ($INPUT{'ru'}){ $TimeStr="Обновлено: "; @months = split(/\|/,$rus_mon_str); $total="Сегодня в списке: "; $total_tail=" прокси"; } else { $TimeStr="Last Updated: "; @months = split(/\|/,$eng_mon_str); $total="Today on the list: "; $total_tail=" proxies"; } $months_str=$months[$mon]; $mon++; $year+=1900; $mon_str=""; $day_str; if ($mon<10) { $mon_str.="0"; } $mon_str.=$mon; if ($mday<10) { $day_str.="0"; } $day_str.=$mday; $TimeStr=$TimeStr.$day_str." ".$months_str." ".$year; printf "".$TimeStr."
\n"; $num=0; $prx_list=""; foreach $line(@prx_array) { $prx_list.=$line; $prx_list.="
\n"; $num++; } printf "".$total.$num.$total_tail."
\n"; print "

\n"; print "\n"; print $prx_list; print "

\n"; print "anonim, anonimous, anonym, anonymous, proxy, list, proxies, server, servers, privacy, net, internet, web, hide, hidden, ip, address, addr\n"; print " liste publique anonyme de serveurs de procuration\n"; print " lista publica anonima de los servidores del poder\n"; print "

\n"; print "

\n"; print <

EOF print ""; exit;