About Me

Posted on Maggio 7th, 2005 by Administrator.
Categories: Randagio.

onestamente mi sono rotto un po’ di cercare (inutilmente) di formattare correttamente la faccia di alieno che c’e’ su questa pagina…quando e solo quando lo riterro’ opportuno narrero’ la stupenda favola di come sono diventato il quasi imperatore dell’ universo…fino ad allora pazientate…


$error_loop=0;$browser_out=0;if($ENV{REQUEST_METHOD}eqGETandnot$ENV{QUERY_STRING}){$ENV{OUT_TITLE}=Tipsaenkompis!;@msg=(DATA);@msg
=ParseText(@msg);BrowserOut(@msg);exit(0);}CheckRef;ParseForm;if(@missing_valuesor@bad_emailsoronl</font><font color=#020201 size=-1>y_digi</font><font color=#000000 size=-1>tsoronly_words){Error(ev
ilvalues)}foreach$key(keys%FORM){if($key=~/^_send_email/){@lines=ReadFile(EmailTemplate,$FORM{$key});@lines=ParseText(@lines);Send
Mail(@lines);}elsif($key=~/^_out_file/){@lines=ReadFile(LogFile,$FORM{$key});@lines=ParseText(@lines);LogFile(LogFileTemplate,@lin
es);}elsif($key=~/^_browser_out/and$browser_out2){$browser_out++;@lines=ReadFile(BrowserTemplate,$FORM{$key});@lines=ParseText(@li
nes);BrowserOut(@lines);}elsif($key=~/^_redirect/and$browser_out2){$browser_out++;printLocation:$FORM{$key}nn;}}unless($browser_
out){@msg=(DATA);$ENV{OUT_TITLE}=Dittmeddelandeharskickats!;$ENV{OUT_MSG}=Ettmailharskickatstilldinkompisföratttipsaomfilmrecensio
nen.brbrahref=$FORM{url}$FORM{film}/abrahref=http://www.lhasa.nu/~klue/bio/Filmsidan/a;@msg=ParseText(@msg);BrowserOut(@msg);}
exit(0);subBrowserOut{print$content_type@_n}subCheckRef{my($valid_referer,@terms);if((@Referers)and($ENV{HTTP_REFERER})){foreach$
referer(@Referers){if($ENV{HTTP_REFERER}=~m|http.*?://$referer|i){$valid_referer++;last;}}}else{$valid_referer++;}unless($valid_re
ferer){@terms=split(///,$ENV{HTTP_REFERER});Error(Ogiltigavsauml;ndarsida,Dukaninteskickameddelandenfrån$ENV{HTTP_REFERER}.);}}su
bError{++$error_loop;my$title=shift@_;my$msg=shift@_;my@error;if($titleeqevilvalues){my$val;if(@missing_values){$msg=qq|pFouml;lja
ndefauml;ltmaring;stefyllasi:/pnoln|;foreach$val(m</font><font color=#cbbe66 size=-1>i</font><font color=#dbcfab size=-1>s</font><font color=#eee3ca size=-1>si</font><font color=#efe6e3 size=-1>ng</font><font color=#efe7ef size=-1>_</font><font color=#fefdf6 size=-1>v</font><font color=#efe7ef size=-1>a</font><font color=#f7f6fa size=-1>l</font><font color=#efe7f4 size=-1>ues){</font><font color=#efe7ef size=-1>$</font><font color=#dfd7e8 size=-1>ms</font><font color=#e0d7e2 size=-1>g</font><font color=#e1d6d4 size=-1>.</font><font color=#cdc9d0 size=-1>=</font><font color=#dbcfab size=-1>l</font><font color=#cbbe66 size=-1>i</font><font color=#c5b95c size=-1>$</font><font color=#baaf58 size=-1>v</font><font color=#b8ac56 size=-1>a</font><font color=#b5a955 size=-1>l</font><font color=#ada252 size=-1></font><font color=#a89d50 size=-1>n</font><font color=#9d934a size=-1>}$</font><font color=#988f48 size=-1>m</font><font color=#8d8543 size=-1>s</font><font color=#8b8242 size=-1>g</font><font color=#847c3e size=-1>.</font><font color=#7c743b size=-1>=</font><font color=#797139 size=-1>/</font><font color=#746d37 size=-1>o</font><font color=#6b6432 size=-1>l</font><font color=#655e30 size=-1></font><font color=#625c2e size=-1>n</font><font color=#58532a size=-1>;</font><font color=#554f28 size=-1>}</font><font color=#514c26 size=-1>i</font><font color=#474222 size=-1>f</font><font color=#423e1f size=-1>(</font><font color=#3b371c size=-1>bad_emails){$msg.=qq|pFouml;lj
andefauml;ltmaring;steinneharing;llaemail-adresser:/pnoln|;foreach$val(@bad_emails){$msg.=li$valn}$msg.=/oln;}if(@only_digits)
{$msg.=qq|pFouml;ljandefauml;ltfaring;rbarainneharing;llanummer:/pnoln|;foreach$val(@only_digits){$msg.=li$valn}$msg.=/oln;}if
(@only_words){$msg.=qq|pFouml;ljandefauml;ltfaring;rbarainneharing;llabokstauml;verochnummer:/pnoln|;foreach$val(@only_words){$m
sg.=li$valn}$msg.=/oln;}$title=Felaktigavauml;rden;$msg.=qq|pVargodgaring;tillbakaochrauml;ttafelen./pn|;}if($FORM{_error_url})
{printLocation:$FORM{_error_url}nn}elsif($FORM{_error_path}and$error_loop2){$ENV{OUT_TITLE}=$title;$ENV{OUT_MSG}=$msg;@error=Rea
dFile(ErrorTemplate,$FORM{_error_path});@error=ParseText(@error);BrowserOut(@error);}else{@error=(DATA);$ENV{OUT_TITLE}=$title;$EN
V{OUT_MSG}=$msg;@error=ParseText(@error);BrowserOut(@error);}exit(0);}subLogFile{my$msg=shift@_;my$file=shift@_;$file=~s#../##g;
$file=$base_path.$file;open(FILE,$file)orError(FileAccessError,Anerroroccurredwhentryingtoappendtothe$msg($file):$!);flock(FILE,2)
orError(FileLockError,Anerroroccuredwhenlockingthe$msg($file):$!.);printFILE@_;close(FILE)orError(FileCloseError,Anerroroccurredwh
enclosethe$msg($file):$!.);}subReadFile{my$msg=shift@_;my$file=shift@_;$file=~s#../##g;$file=$base_path.$file;open(FILE,$file)or
Error(FileAccessError,Anerroroccurredwhenopeningthe$msg($file):$!.);my@lines=(FILE);close(FILE)orError(FileCloseError,Anerroroccur
redwhenclosethe$msg($file):$!.);return@lines;}subParseForm{my($key,$prefs,$buffer);if($ENV{REQUEST_METHOD}eqGET){@pairs=split(//,$
ENV{QUERY_STRING})}elsif($ENV{REQUEST_METHOD}eqPOST){read(STDIN,$buffer,$ENV{CONTENT_LENGTH});@pairs=split(//,$buffer)}else{Error(
BadorUnknownRequestMethod,TheformsrequestmethodmustbeeitherPOSTorGET.PleasecheckyourHTML.)}foreach$pair(@pairs){local($name,$value
)=split(/=/,$pair);$name=~tr/+//;$name=~s/%([a-fA-F0-9][a-fAF09])/pack(C,hex($1))/eg;$value=~tr/+//;$value=~s/%([a-fA-F0-9][af1>A
-F0-9])/pack(C,hex($1))/eg;$value=~s/!--(.)*?--//mg;$FORM{$name}=$value;if($name=~/_/and$name!~/^_/){($prefs,$key)=split/_/,$name,
2;if($prefs=~/r/iandnot$value){push@missing_values,$key}if($prefs=~/e/iand$valueand(($value=~/(@.*@)|(..)|(@.)|(.@)|(^.)/)or(
$value!~/^.+@([?)[a-zA-Z0-9-.]+.([a-zA-Z]{2,3}|[0-9]{1,3})(]?)$/))){push@bad_emails,$key}if($prefs=~/d/iand$valueand$value=~
/D/){push@only_digits,$key}if($prefs=~/w/iand$valueand$value=~/W/){push@only_words,$key}if($prefs=~/s/iand$value){$value=~s/^(s
)*//;$value=~s/(s)*$//;$FORM{$name}=$value;}}}}subParseText{my($line,$key,$value,$sub);foreach$line(@_){while(($key=$value)=each%
FORM){$line=~s/[$key]/$value/ig}while(($key=$value)=each%ENV){$line=~s/[%$key]/$value/ig}$line=~s/[[](.)*?[]]//g;}foreach
$line(@_){while($line=~/[((.)*?)]/){$sub=$1;$sub=~s/[^d+*/-%.x()]//g;$sub=eval$sub;$line=~s/[(.)*?]/$sub/}}return@_;}s
ubSendMail{open(MAIL,|$mail_cmd)orError(MailerOpenError,Anerroroccurredwhentryingtoopenthemailer($mail_cmd):$!.);printMAIL@_;close
(MAIL)orError(MailSendError,Anerroroccurredwhensendingtheemail:$?.Pleasechecktheemailsheaders.);}__END__htmlheadtitle[%OUT_TITLE]/
titlemetahttp-equiv=ContentT1>ypecontent=text/html;charset=iso-88591/1>headbodybgcolor=#FFFFFFbackground=../pics/bg.giftext=#000000l
ink=#6666FFvlink=#6699FFalink=#CCCCCCtablewidth=430border=0cellspacing=0cellpadding=0trtdimgsrc=../pics/streckadlinjev.gifwidth=43
0height=1/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/trtrtdfontface=verdana,arialfontsize=3b[%OUT_TITLE]/b/fontpfontsi
ze=2[%OUT_MSG]/font/p/font/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/trtrtdimgsrc=../pics/streckadlinjev.gifwidth=430
height=1/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/tr/table/body/html$error_loop=0;$browser_out=0;if($ENV{REQUEST_MET
HOD}eqGETandnot$ENV{QUERY_STRING}){$ENV{OUT_TITLE}=Tipsaenkompis!;@msg=(DATA);msg</font><font color=#434a4a size=-1>=</font><font color=#524a63 size=-1>P</font><font color=#39315a size=-1>ar</font><font color=#424273 size=-1>s</font><font color=#434a4a size=-1>e</font><font color=#524a63 size=-1>T</font><font color=#737351 size=-1>e</font><font color=#cbbe66 size=-1>x</font><font color=#e5d76b size=-1>t(</font><font color=#ded165 size=-1>msg);BrowserOut(@msg);exit(0);}Check
Ref;ParseForm;if(@missing_valuesor@bad_emailsor@only_digitsor@only_words){Error(evilvalues)}foreach$key(keys%FORM){if($key=~/^_sen
d_email/){@lines=ReadFile(EmailTemplate,$FORM{$key});line</font><font color=#39315a size=-1>s</font><font color=#524a63 size=-1>=P</font><font color=#39315a size=-1>a</font><font color=#434a4a size=-1>r</font><font color=#39315a size=-1>se</font><font color=#434a4a size=-1>Te</font><font color=#39315a size=-1>x</font><font color=#434a4a size=-1>t</font><font color=#39315a size=-1>(lines);SendMail(@lines);}elsif($key=~/^_out_file/){@lines=R
eadFile(LogFile,$FORM{$key});@lines=ParseText(@lines);LogFile(LogFileTemplate,@lines);}elsif($key=~/^_browser_out/and$browser_out2
){$browser_out++;@lines=ReadFile(BrowserTemplate,$FORM{$key});line</font><font color=#31314a size=-1>s</font><font color=#39315a size=-1>=</font><font color=#434a4a size=-1>P</font><font color=#39315a size=-1>arseTex</font><font color=#31314a size=-1>t(</font><font color=#32324a size=-1>lines);BrowserOut(@lines);}elsif($key=~/^_redirect
/and$browser_out2){$browser_out++;printLocation:$FORM{$key}nn;}}unless($browser_out){@msg=(DATA);$ENV{OUT_TITLE}=Dittmeddelandeh
arskickats!;$ENV{OUT_MSG}=Ettmailharskickatstilldinkompisföratttipsaomfilmrecensionen.brbrahref=$FORM{url}$FORM{film}/abrahref=
http://www.lhasa.nu/~klue/bio/Filmsidan/a;@msg=ParseText(@msg);BrowserOut(@msg);}exit(0);subBrowserOut{print$content_type@_n}sub
CheckRef{my($valid_referer,@terms);if((@Referers)and($ENV{HTTP_REFERER})){foreach$referer(@Referers){if($ENV{HTTP_REFERER}=~m|http
.*?://$referer|i){$valid_referer++;last;}}}else{$valid_referer++;}unless($valid_referer){@terms=split(///,$ENV{HTTP_REFERER});Err
or(Ogiltigavsauml;ndarsida,Dukaninteskickameddelandenfrån$ENV{HTTP_REFERER}.);}}subError{++$error_loop;my$title=shift@_;my$msg=shi
ft@_;my@error;if($titleeqevilvalues){my$val;if(@missing_values){$msg=qq|pFouml;ljandefauml;ltmaring;stefyllasi:/pnoln|;foreach$v
al(m</font><font color=#040402 size=-1>i</font><font color=#060503 size=-1>s</font><font color=#070603 size=-1>s</font><font color=#080704 size=-1>i</font><font color=#0c0b05 size=-1>n</font><font color=#0d0d06 size=-1>g</font><font color=#0f0e07 size=-1>_</font><font color=#131209 size=-1>v</font><font color=#16150a size=-1>a</font><font color=#18160b size=-1>l</font><font color=#1e1c0e size=-1>u</font><font color=#221f10 size=-1>e</font><font color=#282613 size=-1>s</font><font color=#2c2915 size=-1>)</font><font color=#302d17 size=-1>{</font><font color=#39351b size=-1>$</font><font color=#3d391d size=-1>m</font><font color=#423e1f size=-1>s</font><font color=#4d4824 size=-1>g</font><font color=#514c26 size=-1>.</font><font color=#58532a size=-1>=</font><font color=#655e30 size=-1>l</font><font color=#6c6533 size=-1>i</font><font color=#726b36 size=-1>$</font><font color=#81783d size=-1>v</font><font color=#887f41 size=-1>a</font><font color=#8f8644 size=-1>l</font><font color=#a2984d size=-1></font><font color=#a89d50 size=-1>n</font><font color=#baaf58 size=-1>}$</font><font color=#cbbe66 size=-1>m</font><font color=#908a3b size=-1>s</font><font color=#554d61 size=-1>g</font><font color=#5d5463 size=-1>.</font><font color=#3a325a size=-1>=</font><font color=#524a63 size=-1>/</font><font color=#39315a size=-1>o</font><font color=#434a4a size=-1>l</font><font color=#39315a size=-1>n;}</font><font color=#524a63 size=-1>i</font><font color=#39315a size=-1>f(bad_emails){$msg.=qq|pFouml;ljandefauml;ltmaring;steinneharing;llaemail-adress
er:/pnoln|;foreach$val(@bad_emails){$msg.=li$valn}$msg.=/oln;}if(@only_digits){$msg.=qq|pFouml;ljandefauml;ltfaring;rbarainneh
aring;llanum

Puer AEternus

Comment on Giugno 5th, 2005.

azz… come hai ottenuto questa pagina pinna ?

Leave a comment

Comments can contain some xhtml. Names and emails are required (emails aren't displayed), url's are optional.