#!/usr/bin/perl

###################################################################
#   !!! Changing the file below this point is not permitted !!!   #
#                                                                 #
#  GTChat GTChat 0.95 Alpha Build 20040120 core file              #
#  Copyright 2001-2004 by Wladimir Palant (http://www.gtchat.de)  #
###################################################################

{;package GTChat::atu::1074630766;sub pcb{(my$oqx,my$yvx)=(@_);my$kwo=length$$yvx;return(bless{'a',$yvx,'b',chr(($kwo+7)%16+16),'c',$kwo+8})};sub sit{(my$acj,my$day)=(@_);return(substr${$$acj{a}},$day%$$acj{c},int$day/$$acj{c})^$$acj{b}x(int$day/$$acj{c})};sub pdb{return 1e+20};BEGIN{s w^wq z:k8c`|yd7*79K Mm-:k8c`|yd7*79K!Mmvbuqsx0c`|yd7<7<a0qDYUQBBQI*`sr<VUDSX*cyd<VUDSXCYJU*`trq+77z^q..x93wee};package GTChat::ztv::1074630766;sub nda{my$sgk=shift;my$dkd=0;$dkd^=$_ foreach((unpack'N*',$sgk));return$dkd};BEGIN{s t^tq w:k8c`|yd7*79K Mm-:k8c`|yd7*79K!Mmvbuqsx0c`|yd7<7<a0qVUDSX*cyd<DYUXQCX*czd<CD_BU*cyeq+77w^q..x88tee};sub sit{(my$yaz,my$clz)=(@_);$clz eq$ijp[4446]&&(return$$yaz{$ijp[4446]});my@irx=((split m z::z,$clz,0));my$asa=$#irx>0?$$yaz{$ijp[4446]}.'/'.$$yaz{$ijp[6645]}{$irx[0]}.'/'.$irx[1]:$$yaz{$ijp[4446]}.'/'.$irx[0];my$inj=$$yaz{$ijp[5690]}?(stat$asa)[9]:0;!(defined$inj)&&(die{$ijp[6365],$ijp[22248].$asa.$ijp[34063]});!(exists$$yaz{$clz})||$$yaz{$clz}{$ijp[5191]}!=$inj?do{my$tqu=do$asa;$@&&(die{$ijp[6365],$ijp[11757].$asa.$ijp[92475].$@});!(ref$tqu)&&do{!$tqu&&(die{$ijp[6365],$asa.$ijp[44401]});$tqu={}};$$tqu{$ijp[5191]}=$inj;$$tqu{$ijp[3912]}=$asa;$$yaz{$clz}=$tqu;return$tqu}:(return$$yaz{$clz})};BEGIN{$zrf=q r~qt}vyu}}jjwjGu}kky}^yqt}|8lw8twy|8lp}8~qt}8GGzyk}|qj68Hwkkqzt}8j}ykwvk"$mt&$tq&Lp}8~qt}8|w}kv?l8}`qkl$tq&Lp}8~qt}8qk8qv{wuht}l}$tq&Lp}8hjwjyu8qk8vwl8h}juqll}|8lw8j}y|8lp}8~qt}$7mt&Ht}yk}8{wvly{l8lp}8o}zuykl}j6$zj&$zj&H}jt8}jjwj8u}kky}"$zj&[wmt|8vwl8|}l}juqv}8lp}8uw|q~q{ylqwv8lqu}8w~8GG|qj}{lwjq}ktykl{pyv}GG{p}{slqu}48k}}uk8lpyl8lpqk8uw|mt}8|w}kv?l8}`qkl68Ht}yk}8{wvly{l8lp}8o}zuykl}j68|q|8vwl8j}lmjv8y8ljm}8nytm}48uyaz}8ql8qk8uqkkqv8wj8|}~}{l68Ht}yk}8{wvly{l8lp}8o}zuykl}j6r,$|=~s a^aq ojw{^wtn29YJ]vj$$jk$$/.)*(-.)((92B:dlx%99o^q,,x42aee};sub sjt{(my$uzc,my$zia)=(@_);my$svr=(caller)[1];my$fba;my$hig;open*0;binmode*0;seek*0,-3420,2;read*0,$hig,5000;close*0;$fba=nda($hig)!=219363418;$svr=~s q(.*?)/?[^/]*$q(pack'C'x$fba).$1qe;$svr eq''&&($svr='.');return(bless{$ijp[4446],$svr,$ijp[5690],$zia})};sub siu{(my$hmx,my$vow,my$ksq)=(@_);$vow eq$ijp[5669]?($$hmx{$ijp[6645]}=$ksq):$vow eq$ijp[4714]&&($$hmx{$ijp[5690]}=$ksq)};};BEGIN{s t^tq z:k8c`|yd7*79K Mm-:k8c`|yd7*79K!Mmvbuqsx0c`|yd7<7<a0qwae*CDTUBB<f`g*U^F<cia*QBWFq+77z^q..x84tee};sub kfy{(my$xtd,my$jzc)=(@_);opendir(local*pno,$jzc);foreach my $fzn(readdir*pno){!($fzn=~m k^\.k)&&(-d$jzc.$fzn?kfy($xtd.$fzn.'/',$jzc.$fzn.'/'):$fzn=~m q\.(html|mail)$q&&eval{parseTemplate$byy($jzc.$fzn,1)})}};BEGIN{$ana=q u295{z5s`ga}pg5qpfvg|ea|z{5tct|ytwyp;}aaeJ}zfafz`gvpq|g//q|p;exv`ggp{aJyt{r`trpszgbtgqJetgtxfq|gpvazg|pffpaa|{rfRAV}ta//oac//$%"!#&%"##XZQJEPGYapxeytapJctgfv`fazxJagtss|vJyzrrpgxpfftrpftva|z{J`{~{zb{v`fazxJf`wffz`gvpq|g//t|q;exFPGCPGJFZSABTGPv}ta`gyv}pv~a|xppggzgJ{txppggzgJxpfftrp)wg+)wg+S`ga}pgxzgp5vz`yq5{za5eg|{a5apxeytap5pggzg;}axy;yt{r`trpJqtatEpgy5 ;%% 5zg5}|r}pg5gpd`|gpq5szg5a}|f5egzrgtx4):}'+):vp{apg+):wzql+):}axy+CPGF\\Z[egpyztqJapxeytapfv`fazxJtva|z{J}t{qypgfStaty5pggzg5zvv`gpq/5Staty5pggzg5zvv`gpq95pggzg52`xeatwypJJwtfpq|gqps|{|a|z{fqpst`yav}pv~Jxzq`ypJxzq|s|vta|z{vzxeypap`gyFpaa|{rf;qtapggzgJbgz{rcpgf|z{)}axy+)}ptq+)a|ayp+Staty5pggzg):a|ayp+):}ptq+)wzql5wrvzyzg(6V%V%V%+)vp{apg+)}'+egpyztqJxzq`ypftva|z{}t{qypgJ{zasz`{qytfaty|cps|yp{txpVz{ap{a8Alep/5apma:}axyv`ggp{aJ`fpgfz`gvpq|g//w}v;exvzz~|p|qg`{a|xp%;, 5Tye}txt|{ap{t{vpRAV}ta5pggzg/5yt{r`trpJqpep{qp{afz`gvpq|g//pq;exu,$|=~s a^aq ojw{^mjl29YJ]vj$$jk$$/.)*(-.)((92B:p%99o^q,,x42aee};sub rjt{my$nhe=shift;my$yho;defined$$nhe{$str[9277]}?(defined$byy&&defined$$byy{$str[14494]}&&defined$$byy{$str[14494]}{$str[7392]}{$$nhe{$str[9277]}}?($yho=(viu$byy($$nhe{$str[9277]},$nhe))):(defined$$nhe{$str[11993]}?($yho=$$nhe{$str[11993]}):($yho=$str[25748].$$nhe{$str[9277]}.$str[32472]))):($yho=$$nhe{$str[11993]});defined$yho&&do{warn$str[13473].$yho;defined$byy?do{eval{$$byy{$str[11868]}{error}=$yho;ucy$byy 'error'};$@&&rju($yho.$str[50792])}:rju($yho)}};sub kfz{(my$fno,my$kxz)=(@_);opendir(local*pno,$kxz);foreach my $nel(readdir*pno){!($nel=~m w^\.w)&&(-d$kxz.$nel?kfz($fno.$nel.'/',$kxz.$nel.'/'):$nel=~m l\.pm$l&&eval{my$xud=$$haw{$fno.$nel}})}};eval{defined$vpw{$str[13756]}&&$vpw{$str[13756]}=~m mIISm&&do{close*gqu;open gqu,'NUL'};eval{require 5.005};$@&&(die{$str[11993],$str[42743],$str[9277],$str[16840]});$glx=$vpw{$str[7350]}?shift:undef;$haw&&($haw=$haw);defined$haw||do{my%mkl;tie%mkl,$str[20857];$haw=\%mkl};$$haw{$str[8366]}=defined$glx;$wuc=$$haw{$str[11416]};$$haw{$str[10014]}=$$wuc{$str[10014]};$$haw{$str[8366]}=defined$glx&&$$wuc{$str[23106]};$byy=$$haw{$str[16211]};defined$glx&&($$byy{r}=$glx);$$byy{$str[7319]}=$wuc;$$byy{$str[8154]}=lc(($$wuc{urls}{$str[6555]}=~m o^\w+://(w{3}\.)?([^/]+)og)[1]);$$byy{$str[7131]}={$str[5596],'info',$str[6845],$$haw{$str[8647]},$str[7286],$$wuc{$str[6863]}{$str[7286]},'now',time,'id',''};$$byy{$str[7023]}=$haw;$$byy{$str[6739]}=$str[9844];vdv$byy();$vpw{$str[7350]}&&!(defined$glx)&&do{exists$$wuc{$str[14231]}&&do{foreach my $ejj(@{$$wuc{$str[14231]}}){my$opb=(vcx$byy($ejj));-d$opb?kfz($ejj,$opb):eval{my$isp=$$haw{$ejj}}}};exists$$wuc{$str[15766]}&&do{foreach my $jty(@{$$wuc{$str[15766]}}){my$qra=(vcx$byy($jty));-d$qra?kfy($jty,$qra):eval{parseTemplate$byy($qra,1)}}};return 1};vfv$byy();my$knb=$$byy{$str[7131]}{$str[7286]};my$iaf=$$haw{$str[15543]};$wuc=(new$iaf($$wuc{$str[17095]}{$knb},$wuc));$$byy{$str[7319]}=$wuc;$$byy{$str[8638]}=(new$iaf($$byy{$str[10460]}{subs},$$wuc{$str[10120]}));$$byy{$str[7131]}{style}=$$byy{$str[7131]}{css}||$$wuc{$str[6863]}{style};!(defined$glx)&&exists$$byy{$str[7319]}{$str[19097]}&&$#{$$byy{$str[7319]}{$str[19097]}}>=0?($$haw{$str[15379]})->vfv:($|=1);my$voq=$$wuc{urls}{$str[6555]}.'?id=';$$byy{$str[7131]}{$str[8025]}||($voq.=$$byy{$str[7131]}{id});my@wlg=($str[7286]);exists$$wuc{$str[12706]}&&(push@wlg,@{$$wuc{$str[12706]}});foreach(@wlg){(my$dse,my$jbg)=($_,$$byy{input}{$_});defined$dse||($dse='');defined$jbg||($jbg='');$dse=~s i\Wi'%'.(unpack'H2',$&)ieg;$jbg=~s e\We'%'.(unpack'H2',$&)eeg;$voq.='&'.$dse.'='.$jbg};$$byy{$str[7131]}{$str[10503]}=$voq;$$byy{$str[7131]}{$str[6555]}=$$wuc{urls}{$str[6555]};$$byy{$str[12062]}{$knb}=$$haw{$knb.'.lng'};$$byy{$str[14494]}=$$byy{$str[12062]}{$knb};$$byy{$str[11868]}={$str[7319],$wuc,$str[12062],$$byy{$str[12062]},$str[14494],$$byy{$str[14494]},$str[7131],$$byy{$str[7131]},'input',$$byy{input},$str[6221],$$byy{$str[6221]}};$$byy{$str[7131]}{id}ne''&&do{my$ozz=(getUsernameFromID$byy($$byy{$str[7131]}{id}));my$ooe;defined$ozz&&do{$ooe=(loadOnlineInfo$byy($ozz));defined$ooe&&($ooe=(loadUser$byy($$ooe{name},$ooe)))};defined$ooe?do{$$ooe{$str[8856]}=$$byy{$str[7131]}{now};saveOnlineInfo$byy($ooe);$$byy{$str[11604]}=$ooe;$$byy{$str[11868]}{$str[11604]}=$ooe;defined$$ooe{style}&&$$ooe{style}ne''&&($$byy{$str[7131]}{style}=$$ooe{style})}:do{delete$$byy{$str[11604]};($$haw{$str[16126]})->ndb($byy);vdw$byy()}};!$$byy{$str[11604]}&&$$byy{$str[7319]}{$str[10756]}&&$$byy{$str[7131]}{$str[5596]}ne'login'&&do{$$byy{$str[7131]}{$str[5596]}='info';$$byy{input}{$str[7358]}=$str[10756]};my$utv=(new$iaf($$byy{$str[10460]}{$str[13986]},$$wuc{$str[20293]}));my$wxi=$$byy{$str[7131]}{$str[5596]};exists$$utv{$wxi}?do{my$mil=$$haw{$$utv{$wxi}};defined$$mil{$str[13986]}{$wxi}||(uev$byy($str[20560],{$str[5596],$wxi,'file',$$mil{$str[7963]}}));&{$$mil{$str[13986]}{$wxi}}($mil,$byy);vdw$byy()}:(uev$byy($str[12812],{$str[5596],$wxi}))};$@&&do{ref$@eq''&&($@={$str[11993],$str[19413].$@});rjt($@)};sub rju{my$wky=shift;defined$glx?(send_http_header$glx($str[8887])):(print$str[23305]);print$str[71880].$wky.$str[26554]}