happyslacker
New Member
От: Проблеми с Genbucks ?
Сайта им вече е онлайн, обаче не може да се логва:
Сайта им вече е онлайн, обаче не може да се логва:
HTML:
<form action="" method="post">
<form action="" method="post">
добре си викам и аз да пренасоча блоговете към кешбърнърите ама ме е страх да не пада в позициите ако мине бота и види че е друг сайта
<script type="text/javascript" src="script.js"></script>
#!/usr/bin/perl
use locale;
use encoding 'utf8';
use utf8;
use URI::Escape;
use strict;
use POSIX;
sub convert_unicode_to_html {
my $code=$_[0];
my $char;
my $rezult;
my @chars = split(//, $code);
my $ordchar;
foreach $char (@chars) {
$ordchar=ord($char);
if ($ordchar < 128) { $rezult=$rezult.$char; }
else { $rezult=$rezult."&#".$ordchar.";"; }
}
return $rezult;
}
binmode(STDIN,':utf8'); # четене на файл с кодиране Уникод UTF-8
binmode(STDERR,':utf8'); # запис на файл с кодиране Уникод UTF-8
binmode(STDOUT,':utf8'); # запис на файл с кодиране Уникод UTF-8
my $line;
while (defined($line = <STDIN>)) {
print "document.write(unescape('".uri_escape(convert_unicode_to_html($line), "\0-\377")."'));\n";
}
cat ads.html | html2js.pl > script.js
Ако някой иска да прави сериозен КЕШ от сериозни партнери да се насочки към LeadingEdgeCash