;close(AC);close(AD);}sub
kz{my($eh)=$_[0];my($dx,$al,$ei,@ej,$ek,%dv);my($ds,$ea,$el);
my($em);binmode(STDIN);if($eh&&($ENV{$z[229]}||length$ENV{$z[230]})
>$eh){die($z[231]."$eh bytes\n");}($em)=$ENV{$z[232]}=~/boundary=(?:"?)(\S+?)(?:"?)$/;
if($ENV{$z[233]}eq$z[234]&&$ENV{$z[232]}=~m|^multipart/form-data|)
{my$ek;read(STDIN,$ek,$ENV{$z[229]});foreach(split(/\n/,$ek))
{if(/^--$em--/){$ek.="--$em";last;}else{$ek.=$_;}}@ej=split(/--$em/,$ek);
foreach$ei(@ej){unless($ei=~/^(\r\n|\n)Content-Disposition/)
{next;}($dx,$al)=$ei=~/^(?:\r\n|\n)(.*?)(?:\r\n|\n){2}(.*?)(?:\r\n|\n)$/s;
($ea)=$dx=~/filename="([^"]+)"/;($dx)=$dx=~/name="([^"]+)"/;
($ds)=$ea=~/([^\/\\]+)$/;($el)=$ea=~/\.(\w+)$/;if(!$ea){$dx
=~s/\r\n/\n/g;$al=~s/\r\n/\n/g;$dx=~s/\x00//g;$al=~s/\x00//g;
}$dv{$dx}=$al;$dv{$dx.$z[235]}=$ea;$dv{$dx.$z[236]}=$ds;$dv{$dx.$z[237]}
=$el;}}else{if($ENV{$z[233]}eq$z[234]){read(STDIN,$ek,$ENV{$z[229]});
}elsif($ENV{$z[233]}eq$z[238]){$ek=$ENV{$z[230]};}@ej=split(/&/,
$ek);foreach$ei(@ej){($dx,$al)=split(/=/,$ei);$dx=~tr/+/ /;
$al=~tr/+/ /;$dx=~s/%([A-F0-9]{2})/pack($z[145],hex($1))/egi;
$al=~s/%([A-F0-9]{2})/pack($z[145],hex($1))/egi;$dx=~s/\r\n/\n/g;
$al=~s/\r\n/\n/g;$dx=~s/\x00//g;$al=~s/\x00//g;if($dx=~/_multi$/)
{push@{$dv{$dx}},$al;}else{$dv{$dx}=$al;}}}foreach(keys%dv)
{if(/^(.*)(\.x|\.y)$/){$dv{$1}=$z[239];}}return%dv;}sub lx{
my($en)=$_[0];my($eo,$ep)=split(/@/,$en);if($en eq''){return
0;}if($en=~/[^A-Za-z0-9-_\.\@]/){return 0;}if($eo!~/^([\w\-]+[\w\-.])*[\w\-]+$/)
{return 0;}if($ep!~/^([\w\-]+[\w\-.])*[\w\-]+\.[A-Za-z]{2,8}$/)
{return 0;}return 1;}sub ly{my($eq,$er)=@_;unless($eq eq$z[240]
||$eq eq$z[241]||$eq eq$z[242]||$eq eq$z[243]){return undef;
}$er=~s/[^\d]//g;my@es=split//,$er;unless(($eq eq$z[240]&&$es[0]
==4)||($eq eq$z[241]&&$es[0]==5)||($eq eq$z[242]&&$es[0]==3)
||($eq eq$z[243]&&$es[0]==6)){return undef;}unless(($eq eq$z[240]
&&($#es==12||$#es==15))||($eq eq$z[241]&&$#es==15)||($eq eq
$z[242]&&$#es==14)||($eq eq$z[243]&&$#es==15)){return undef;
}my$et;for(my$dw=($#es+1)% 2;$dw<=$#es;$dw+=2){if($es[$dw]<
5){$es[$dw]*=2;}else{$es[$dw]=($es[$dw]* 2)-9}}foreach(@es)
{$et+=$_;}unless($et% 10==0){return undef;}return 1;}sub ab
{local(*AA);my($ds,%dv,$eu,$ev);%dv=%{$_[1]}if$_[1];my%ew;%ew
=($z[244]=>0,$z[245]=>0,$z[246]=>0,$z[247]=>0);foreach(split(/ /,$_[2]))
{if(undef$ew{$_}){die($z[248]."'$_'\n");}$ew{$_}=1;}if(!$_[0])
{die$z[249]."\n";}if(ref($_[1])ne$z[139]){die$z[250]."\n";}
if((!$ew{$z[245]}||!$au{$z[251]}{$z[245]}{$_[0]})){if(-e"$_[0]")
{$ds=$_[0];}else{foreach(grep/^templatedir/,sort keys%au){if
(-e"$au{$_}/$_[0]"){$ds="$au{$_}/$_[0]";last;}}if(!$ds){die
$z[252]."'$_[0]'".$z[253]."\n";}}}if($ew{$z[245]}&&$au{$z[251]}{$z[245]}{$_[0]})
{$eu=$au{$z[251]}{$z[245]}{$_[0]};}else{open(AA,"<$ds")||die
$z[254]."$ds! $!\n";binmode(AA)if($ds=~/gif$/i||$ds=~/jpg$/i);
read(AA,$eu,-s AA);close(AA);}if($ew{$z[246]}){return$eu;}if
($ew{$z[247]}){$au{$z[255]}||=$ENV{$z[256]};$au{$z[255]}||die("Template: webroot isn't defined!
\n");
while($eu=~//g){my$ex=$1;if(($ex
=~m!^/!)||(!$_[3])){$ex="$au{'webroot'}/$ex";}else{my@ey=split
$z[257],$ds;my$ey=join$z[257],@ey[0..$#ey-1];$ex="$ey/$ex";
}my$ez=&ab($ex,$_[1],$_[2],$z[258]);$eu=~s//$ez/;
}}if(!$ew{$z[245]}||!$au{$z[251]}{$z[245]}{$_[0]}){foreach$ev
($eu=~m//g){$au{$z[251]}{$z[259]}{$1}=$2
if($eu=~m/(?:\r\n|\n)?(.*?)/is);
}$eu=~s/(?:\r\n|\n)?(.*?)//gis;
if($ew{$z[245]}){$au{$z[251]}{$z[245]}{$_[0]}=$eu;}}$eu=~s//$1/gi;
$eu=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$al=defined$ad{$1}
?$ad{$1}:$dv{$1};if($2 eq$z[260]){$al=&fa($al);}if($2 eq$z[261])
{$al=&at($al);}if($2 eq$z[262]){$al=&at($al);$al=~s/ / /g;
}if($2 eq$z[263]){$al=&fb($al);}$al;]ge;return$eu;}sub ae{if
(!$_[0]){die$z[264]."\n";}if(!defined$au{$z[251]}{$z[259]}{$_[0]})
{die$z[265]."'$_[0]'".$z[266]."\n";}if(ref($_[1])ne"HASH"){
die$z[267]."\n";}local(*AA);my(%dv);%dv=%{$_[1]}if$_[1];my($eu)
=$au{$z[251]}{$z[259]}{$_[0]};$eu=~s/(?:\r\n|\n)?(.*?)//gs;
$eu=~s//$1/gi;$eu=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][
my$al=defined$ad{$1}?$ad{$1}:$dv{$1};if($2 eq$z[260]){$al=&fa($al);
}if($2 eq$z[261]){$al=&at($al);}if($2 eq$z[262]){$al=&at($al);
$al=~s/ / /g;}if($2 eq$z[263]){$al=&fb($al);}$al;]ge;return
$eu;}sub lz{my($af)=$_[0];my(@fc)=(($z[242]..$z[268],$z[269]..$z[270],0..9),$z[271],$z[257]);
my($an)=unpack($z[272],$af);$an=~s/(\d{6}|\d+$)/$fc[ord(pack$z[272],"00$1")]/ge;
while(length($an)%4){$an.=$z[218];}return$an;}sub ma{my($af)
=$_[0];my(%fc);my($an);my$bz;for(($z[242]..$z[268],$z[269]..$z[270],0..9),$z[271],$z[257]){
$fc{$_}=$bz++}$af=$_[0]||return$z[273];$af=~s/[^A-Za-z0-9+\/]//g;
$af=~s/[A-Za-z0-9+\/]/unpack'B*',chr($fc{$&})/ge;$af=~s/\d\d(\d{6})/$1/g;
$af=~s/\d{8}/$an.=pack($z[272],$&)/ge;return$an;}sub fa{my($fd)
=$_[0];$fd=~s/([^A-Za-z0-9\*\.\@\_\-])/uc sprintf($z[274],ord($1))/egx;
$fd=~tr/ /+/;return$fd;}sub fv{my($fd)=$_[0];$fd=~tr/+/ /;$fd
=~s/%([A-F0-9]{2})/pack($z[145],hex($1))/egi;return$fd;}sub
kg{my($fe);my($dx,$al,$ff,$ea,$fg,$fh)=@_;my($fi);if($dx eq
''){die($z[275]."\n");}if($ff&&$ff ne int($ff)){die($z[276]."\n");
}$aw{$dx}=$al;if($ff){my($fj,$fk,$fl,$fm,$fn,$fo,$fp,$fq)=gmtime($ff);
($fj,$fk,$fl,$fm)=map{$_<10?$z[277].$_:$_}($fj,$fk,$fl,$fm);
$fi=join('',(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[$fp],", $fm-",(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$fn],$z[155],1900+$fo,
" $fr$fs$fj GMT");}if($dx){$dx=&fa($dx);}if($al){$al=&fa($al);
}if($ff){$fe.=$z[278]."$fi; ";}if($ea){$fe.=$z[279]."$ea; ";
}if($fg){$fe.=$z[280]."$fg; ";}if($fh){$fe.=$z[281];}print$z
[282]."$dx=$al; $fe\n";}sub la{my($ft,$dx,$al,%fu);foreach$ft
(split(/; /,$ENV{$z[283]})){($dx,$al)=split(/=/,$ft);foreach($dx,$al)
{$_=&fv($_);}$fu{$dx}=$al;}return%fu;}sub mb{my$fw=$_[0]||die("DateString: The first parameter must be a date or time format string\n");
$fw=~/\%/||die("DateString: The first parameter must contain a date format marker '%'\n");
my$fx=$_[1];my($fo,$fn,$fm,$fy,$fk,$fj,$fp,$fq);my@fz=(0,0,1,0,0,0);
my$ga=$_[-1]=~/^GMT$/i;pop(@_)if$ga;if(scalar(@_)>=3){die("DateString: Too many arguments\n")
if scalar(@_)>7;my$gb;foreach$gb(1..scalar(@_)-1){$fz[$gb-1]
=$_[$gb];}($fo,$fn,$fm,$fy,$fk,$fj)=@fz;if($fm>28){($fo,$fn,
$fm)=&gc($fo,$fn,$fm);}$fx=$ga?&gd($fj,$fk,$fy,$fm,$fn,$fo)
:&ge($fj,$fk,$fy,$fm,$fn,$fo);}else{}($fj,$fk,$fy,$fm,$fn,$fo,
$fp,$fq)=($ga?gmtime($fx):localtime($fx));my$gf;if(exists($au{DateString}{rhNames}))
{$gf=$au{DateString}{rhNames};}else{$gf={$z[284]=>exists($av{$z[285]}{ampm})
?[split(/,/,$av{$z[285]}{ampm})]:[qw(AM PM)],$z[286]=>exists($av{$z[285]}{ordinals})
?[split(/,/,$av{$z[285]}{ordinals})]:[$z[287],$z[288],$z[289],
$z[290],$z[291],$z[292],$z[293],$z[294],$z[295],$z[296],$z[297],
$z[298],$z[299],$z[300],$z[301],$z[302],$z[303],$z[304],$z[305],
$z[306],$z[307],$z[308],$z[309],$z[310],$z[311],$z[312],$z[313],
$z[314],$z[315],$z[316],$z[317],$z[318]],$z[319]=>exists($av{$z[285]}{week_full})
?[split(/,/,$av{$z[285]}{week_full})]:[qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)],
$z[320]=>exists($av{$z[285]}{week_abbr})?[split(/,/,$av{$z[285]}{week_abbr})]
:[qw(Sun Mon Tue Wed Thu Fri Sat)],$z[321]=>exists($av{$z[285]}{month_full})
?[split(/,/,$av{$z[285]}{month_full})]:[qw(January February March April May June July August September October November December)],
$z[322]=>exists($av{$z[285]}{month_abbr})?[split(/,/,$av{$z[285]}{month_abbr})]
:[qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)],};$au{DateString}{rhNames}
=$gf;}my($gg,$gh)=(0,1);my$gi={$z[323]=>$z[323],$z[269]=>$gf->{week_abbr}[$fp],
$z[242]=>$gf->{week_full}[$fp],$z[324]=>$gf->{month_abbr}[$fn],
$z[325]=>$gf->{month_full}[$fn],$z[326]=>$z[327],$z[145]=>$z[328],
$z[329]=>sprintf($z[330],$fm),$z[243]=>$z[331],$z[332]=>sprintf($z[333],
$fm),$z[334]=>$gf->{month_abbr}[$fn],$z[335]=>sprintf($z[330],
$fy),$z[336]=>sprintf($z[330],$fy% 12||12),$z[337]=>sprintf($z[338],$fq
+1),$z[339]=>sprintf($z[333],$fy),$z[340]=>sprintf($z[333],
$fy% 12||12),$z[341]=>sprintf($z[330],$fn+1),$z[241]=>sprintf($z[330],
$fk),$z[154]=>"\n",$z[342]=>$gf->{ordinals}[$fm],$z[343]=>$gf->{ampm}[$fy
>=12?1:0],$z[344]=>lc($gf->{ampm}[$fy>=12?1:0]),$z[345]=>int($fn
/3)+1,$z[346]=>$z[347],$z[348]=>$z[349],$z[350]=>$fx,$z[351]
=>sprintf($z[330],$fj),$z[352]=>"\t",$z[353]=>$z[354],$z[355]
=>&gj($gg,$fp,$fq),$z[356]=>$fp,$z[357]=>&gj($gh,$fp,$fq),$z[358]
=>$z[331],$z[359]=>$z[354],$z[360]=>sprintf($z[330],$fo% 100),
$z[361]=>sprintf($z[362],$fo+1900),$z[268]=>'',$z[270]=>'',
};$fw=&gk($gi,$fw);return$fw;}sub gk{my($gi,$fw)=@_;$fw=~s/%(O?[%a-zA-Z])/&gl($gi,
$1)/sgeox;return$fw;}sub gl{my$gm=$_[1];return(exists($_[0]->{$gm}))
?($_[0]->{$gm}=~/\%/&&$gm ne$z[323]?&gk($_[0],$_[0]->{$gm})
:$_[0]->{$gm}):"\%$gm";}sub gj{my($gn,$fp,$fq)=@_;$fp=($fp+
7-$gn)% 7;return int(($fq-$fp+13)/7-1);}sub gc{my($fo,$fn,$go)
=@_;return@_ if$go<=28;my$gp;if($fn==1){if(($fo% 4==0)&&(!($fo
% 100==0)||($fo% 400==0))){$gp=29;}else{$gp=28;}}elsif($fn==
3||$fn==5||$fn==8||$fn==10){$gp=30;}else{$gp=31;}return($fo,
$fn,$go<$gp?$go:$gp);}sub mc{my$gq=$_[0];my$gr=$_[1]||die("DateString: The second argument must time()\n");
my$AE=$_[2];if($gr ne int($gr)){die($z[363]."\n");}my($fj,$fk,$fl,$go,$fn,$fo,$fp);
if($AE){($fj,$fk,$fl,$go,$fn,$fo,$fp)=gmtime($gr);}else{($fj,$fk,$fl,$go,$fn,$fo,$fp)
=localtime($gr);}if($gr=~tr/://){($fo,$fn,$go,$fl,$fk,$fj,$fp)
=split(/:/,$gr);$fo-=1900;$fn-=1;foreach($fo,$fn,$go,$fl,$fk,$fj,$fp)
{$_||=0;}}my(%fp,%gs,%fn,%gt);my@fn=($z[364],$z[365],$z[366],$z[367],$z[368],$z[369],$z[370],$z[371],$z[372],$z[373],$z[374],$z[375]);
my@gt=($z[376],$z[377],$z[378],$z[379],$z[368],$z[380],$z[381],$z[382],$z[383],$z[384],$z[385],$z[386]);
my@fp=($z[387],$z[388],$z[389],$z[390],$z[391],$z[392],$z[393]);
my@gs=($z[394],$z[395],$z[396],$z[397],$z[398],$z[399],$z[400]);
foreach(@fp){$fp{lc$_}++;}foreach(@gs){$gs{lc$_}++;}foreach
(@fn){$fn{lc$_}++;}foreach(@gt){$gt{lc$_}++;}$gq=~s/\b[A-Za-z]{3,9}\b/
if($fp{lc$&}){if(uc($&)eq$&){uc$fp[$fp];}elsif(lc($&)eq$&){
lc$fp[$fp];}else{ucfirst lc$fp[$fp];}}elsif($gs{lc$&}){if(uc($&)
eq$&){uc$gs[$fp];}elsif(lc($&)eq$&){lc$gs[$fp];}else{ucfirst
lc$gs[$fp];}}elsif($fn{lc$&}){if(uc($&)eq$&){uc$fn[$fn];}elsif
(lc($&)eq$&){lc$fn[$fn];}else{ucfirst lc$fn[$fn];}}elsif($gt{lc
$&}){if(uc($&)eq$&){uc$gt[$fn];}elsif(lc($&)eq$&){lc$gt[$fn];
}else{ucfirst lc$gt[$fn];}}else{$&;}/ge;$gq=~s/\d{1,4}\b/if
(length$&==4){$fo+1900;}elsif(length$&<=2){if(substr($&,0,1)
eq 0){sprintf($z[330],$go);}else{$go;}}else{$&;}/ge;$gq=~s/(\d{1,2})(st|nd|rd|th)/
if($go==1||$go==21||$go==31){$go.$z[401];}elsif($go==2||$go
==22){$go.$z[402];}elsif($go==3||$go==23){$go.$z[403];}else
{$go.$z[404];}/gei;$gq=~s/YYYY/sprintf($z[362],$fo+1900)/gei;
$gq=~s/YY/sprintf($z[330],$fo%100)/gei;$gq=~s/MO\b/sprintf($z[330],$fn+1)/gei;
$gq=~s/DD/sprintf($z[330],$go)/gei;$gq=~s/SS/sprintf($z[330],$fj)/gei;
$gq=~s/MM/sprintf($z[330],$fk)/gei;$gq=~s/HH/sprintf($z[330],$fl)/gei;
return$gq;}sub cd{my($gu,$cc,$arrayref_nopack)=@_;my(@f_nopack,$cb,$gv,
$gw,$gx,$bz);my($bx,$by);$bz=0;foreach(split(/ /,$cc)){if(s/\#//g)
{$bx=1;}elsif(s/n//g){$bx=1;}else{$bx=0;}if(s/\-//g){$by=$z[405];
}elsif(s/\+//g){$by='';}else{$by='';}s/[^0-9]//gs;push(@f_nopack,$_);
if($bx){$cb+=15;$gw.=$z[406];$gx.=qq|$by sprintf('%015s',int(substr(\$str[$bz]*100,0,15))),|;
}else{$cb+=50;$gw.=$z[407];$gx.="$by substr(\$str[$bz],0,50),";
}$bz++;}$gv.=qq|return map { substr(\$_,$cb) } sort map {\n|;
$gv.=qq| my \@str = (split(/\\$gu/,lc \$_))[\@f_nopack];\n|;
$gv.=qq| sprintf("$gw\%s" ,$gx\$_);\n|;$gv.=qq| } \@\$arrayref_nopack;\n|;
eval$gv;}sub fb{my$gy=shift;$gy=~s/\\/\\\\/g;$gy=~s/'/\\'/g;
$gy=~s/\n/\\n/g;$gy=~s/\r/\\r/g;$gy=~s/\000//g;$gy=~s/-->/--'+'>/g;
$gy=~s!!!g;return$gy;}sub at{my$gz=shift;
$gz=~s/&/&/g;$gz=~s/"/"/g;$gz=~s//>/g;
return$gz;}sub md{my$ha=shift;my%hb=map{$_,1}@_;return join($z[225],
map{$hb{$_}?():&fa($_).$z[218].&fa($ha->{$_})}keys%{$ha});}
sub me{my$ha=shift;my%hb=map{$_,1}@_;return join("\n",map{$hb{$_}
?():$z[408].&at($_).$z[409].&at($ha->{$_}).$z[410]}keys%{$ha});
}sub mf{$_=$_[0];/\.gif$/i&&return(&hc($_[0]));(/\.jpeg$/i||
/\.jpg$/i)&&return(&hd($_[0]));/\.png$/i&&return(&he($_[0]));
undef;}sub he{my($hf)=@_;my($hg);open(PNG,$hf)||return(undef,
undef,"PNG - Couldn't Open $hf");binmode(PNG);seek(PNG,12,0);
read(PNG,$hg,4);if($hg ne"IHDR"){close PNG;return(undef,undef,
"PNG - Missing Image Header - $hg");}read(PNG,$hg,8);close
PNG;return unpack("NN",$hg);}sub hd{my($hf)=@_;my($hg,$hh,$hi,
$hj,$hk);open(JPEG,$hf)||return(undef,undef,"JPEG - Couldn't Open $hf");
binmode(JPEG);read(JPEG,$hg,2);while(1){read(JPEG,$hh,4);($hi,
$hj,$hk)=unpack("a a n",$hh);if($hi ne"\xFF"){close JPEG;return(undef,
undef,"JPEG - Marker not Found");}if((ord($hj)>=0xC0)&&(ord($hj)
<=0xC3)){read(JPEG,$hg,5);close(JPEG);my($hl,$hm)=unpack("xnn",
$hg);return($hm,$hl);}else{read(JPEG,$hg,$hk-2);}}}sub hu{my
($hn,$ho)=@_;my($hp);read($hn,$hp,$ho);while(1){if(eof($hn))
{close AF;return(undef);}read($hn,$hp,1);last if ord($hp)==
0;read($hn,$hp,ord($hp));}1;}sub hc{my($hf)=@_;my($hg,$eb,$hq,
$hr,$hm,$hs,$hl,$ht);open(AF,$hf)||return(undef,undef,"GIF - Couldn't Open $hf");
binmode(AF);read(AF,$eb,6);read(AF,$hg,7);if(length($hg)!=7)
{close AF;return(undef,undef,"GIF - Corrupted Header");}($hm)
=unpack("x4 C",$hg);if($hm&0x80){$hq=3*(2**(($hm&0x07)+1));
read(AF,$hr,$hq);if(!$hr){close AF;return(undef,undef,"GIF - Corrupted Colour Map");
}}while(1){if(eof(AF)){close AF;return(undef,undef,"GIF - EOF at BlockStart");
}read(AF,$hg,1);($hm)=unpack("C",$hg);if($hm==0x2c){read(AF,
$hg,8);if(length($hg)!=8){close AF;return(undef,undef,"GIF - Missing Image Header");
}($hm,$hs,$hl,$ht)=unpack("x4 C4",$hg);close(AF);return($hm
+$hs* 256,$hl+$ht* 256);}if($hm==0x21){read(AF,$hg,1);($hm)
=unpack("C",$hg);if($hm==0xF9){read(AF,$hg,6);}elsif($hm==0xFE)
{&hu(\*AF,0)||return(undef,undef,"GIF - Bad Block - skip=0");
}elsif($hm==0x01){&hu(\*AF,13)||return(undef,undef,"GIF - Bad Block - skip=13");
}elsif($hm==0xFF){&hu(\*AF,12)||return(undef,undef,"GIF - Bad Block - skip=12");
}else{close AF;return(undef,undef,"GIF - Unknown Block Extension");
}}else{close AF;return(undef,undef,"GIF - Unknown Block Type");
}}}sub mg{return($_[0]=~/(.+)/s)[0]||$_[0];}sub mh{my$hv;foreach
(split/\n/,shift){s!\\!\\\\!g;s!\"!\\\"!g;s!$ic){$ia=1;}push(@{$hz[$ia]},$_);}if(defined$hy){
foreach(0..$#hz){while(scalar@{$hz[$_]}<$hx){push(@{$hz[$_]},
$hy);}}}shift@hz;return@hz;}sub mj{my($id,%ie,$AG);$id=$_[0];
%ie=%{$_[1]};$AG="\x0D\x0A";local(*AH);if(!defined&if){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_parseheader'\n");
}if(!defined&ig){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_debug'\n");
}if(!defined&ih){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_readline'\n");
}if(!defined&ii){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_pop3auth'\n");
}if(!defined&ij){die("SMTP_sendmail: Couldn't find required subroutine 'FH_readline'\n");
}if(!defined&ik){die("SMTP_sendmail: Couldn't find required subroutine 'FH_can_read'\n");
}foreach(keys%{$au{$z[411]}}){defined$ie{$_}&&next;$ie{$_}=
$au{$z[411]}{$_};}my($ep,$il,$im,$in,$dr);$ep=$ie{$z[412]};
$il=$ie{$z[413]}||25;$im=$ie{$z[414]}||$z[415];$in=$ie{$z[416]}
||30;$dr=$ie{$z[417]}||0;$in+=time()if$in<10**8&&$in>0;if($ep
=~s/:(\d+)//){$il=$1;}if(!$ep){$au{$z[418]}="No SMTP host specified.\n";
return 0;}if(!$il){$au{$z[418]}="No SMTP port specified.\n";
return 0;}my($io,@ip)=&if($id);$id=~tr/\r//d;$id=~s/\n/\r\n/gs;
$id=~s/^\s*bcc\s*:.*\n//mgi;if($ie{$z[419]}){&ii(\%ie)||return
0;}my($iq)=gethostbyname($ep)||do{$au{$z[418]}="Could not connect to SMTP server. Unknown host $ep\n";
return 0;};socket(AH,PF_INET,SOCK_STREAM,0)||do{$au{$z[418]}
="Could not connect to SMTP server. No Socket: $!\n";return
0;};connect(AH,pack"SnA4x8",PF_INET,$il,$iq)||do{if($!eq"Unknown error")
{$au{$z[418]}="Could not connect to SMTP server. SMTP server does not exist or is not responding.\n";
return 0;}else{$au{$z[418]}="Could not connect to SMTP server. Connect failed: $!\n";
return 0;}};select(AH);$|=1;select(STDOUT);binmode(AH);my$ir
=&ih(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"220"){$au{$z[418]}
="An unknown error occured. Server response: $ir\n";return
0;}print AH"HELO $im",$AG;if($dr){&ig("HELO $im",$AG);}$ir=
&ih(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"250"){$au{$z[418]}
="An unknown error occured. Server response: $ir\n";return
0;}print AH"MAIL FROM:<$io>",$AG;if($dr){&ig("MAIL FROM:<$io>",
$AG);}$ir=&ih(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"250"){$au{$z[418]}
="An unknown error occured. Server response: $ir\n";return
0;}my$ip;foreach$ip(@ip){print AH"RCPT TO:<$ip>",$AG;if($dr)
{&ig("RCPT TO:<$ip>",$AG);}$ir=&ih(\*AH,$in)||do{$au{$z[418]}
="Timed out waiting for SMTP server to respond.\n";return 0;
};if($dr){&ig($ir);}if(substr($ir,0,2)eq"55"){$au{$z[418]}=
"The server won't accept mail for '$ip'. Server response: $ir\n";
return 0;}if(substr($ir,0,2)ne"25"){$au{$z[418]}="An unknown error occured. Server response: $ir\n";
return 0;}}print AH"DATA",$AG;if($dr){&ig("DATA",$AG);}$ir=
&ih(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"354"){$au{$z[418]}
="An unknown error occured. Server response: $ir\n";return
0;}$id=~s/^\./\.\./gm;print AH$id,$AG;if($dr){&ig($id,$AG);
}print AH".",$AG;if($dr){&ig(".",$AG);}$ir=&ih(\*AH,$in)||do
{$au{$z[418]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"250"){$au{$z[418]}
="An unknown error occured. Server response: $ir\n";return
0;}print AH"QUIT",$AG;if($dr){&ig("QUIT",$AG);}close(AH);return
1;}sub if{my($id,$is,$it,$iu,$cz);$id=$_[0];$id=~tr/\r//d;$is
=$z[420];$is.=$z[421];if($id=~m/^(.*?)\n\n(.*)$/s){($it,$iu)
=($1,$2);}else{die("SMTP_parseheader: couldn't find email header!\n");
}my($io,@ip);foreach$cz(split(/\n/,$it)){foreach(qw(from to cc bcc))
{if($cz=~/^\s*$_\s*:/i){my$iv=$_;foreach($cz=~m/($is)/g){if
($iv eq$z[422]){$io=$_;}else{push@ip,$_;}}}}}$io||die("SMTP_parseheader: couldn't find from: address in mail header\n");
$#ip>=0||die("SMTP_parseheader: couldn't find to: address in mail header\n");
return($io,@ip);}sub ih{my$AI=$_[0];my$in=int($_[1]);if(!$in)
{die("SMTP_readline: no timeout value specified!\n");}if($in
<10**8){die("SMTP_readline: timeout value must be in time() format!\n");
}fileno($AI)||die("SMTP_readline: invalid filehandle or filehandle not open!\n");
my($cz,$iw);while(!$cz||substr($cz,3,1)eq$z[155]){$cz=&ij($AI,$in);
$iw.=$cz;}return$iw;}sub ig{my$ix=join'',@_;$ix=~s/\s+$//m;
my$iy=localtime();local*AJ;if(!$ix){$iy="";$ix="\n";}if($ix
=~/^From:/i){$ix="[email content]";}if($ix=~/^PASS /i){$ix=
"PASS (not shown)";}$ix=~s//>/g;$ix=~s/\r\n|\n/
\n/g;
print"$ix
\n\n";}sub ii{my($id,%ie,$AG);%ie=%{$_[0]};
$AG="\x0D\x0A";local(*AH);if(!$ie{$z[423]}){die("SMTP_pop3auth: POP3 username not defined'\n");
}if(!$ie{$z[424]}){die("SMTP_pop3auth: POP3 password not defined'\n");
}if($au{$z[425]}{$z[426]}){return 1;}my($ep,$il,$eo,$iz,$in,$dr);
$ep=$ie{$z[427]}||$ie{$z[412]};$il=$ie{$z[428]}||110;$eo=$ie{$z[423]};
$iz=$ie{$z[424]};$in=$ie{$z[429]}||$ie{$z[416]}||30;$dr=$ie{$z[417]}
||0;$in+=time()if$in<10**8&&$in>0;if($ep=~s/:(\d+)//){$il=$1;
}my($iq)=gethostbyname($ep)||do{$au{$z[418]}="Could not connect to POP3 server. Unknown host $ep\n";
return 0;};socket(AH,PF_INET,SOCK_STREAM,0)||do{$au{$z[418]}
="Could not connect to POP3 server. No Socket: $!\n";return
0;};connect(AH,pack"SnA4x8",PF_INET,$il,$iq)||do{if($!eq"Unknown error")
{$au{$z[418]}="Could not connect to POP3 server. POP3 server does not exist or is not responding.\n";
return 0;}else{$au{$z[418]}="Could not connect to POP3 server. Connect failed: $!\n";
return 0;}};select(AH);$|=1;select(STDOUT);binmode(AH);my$ir
=&ij(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dr){&ig($ir);}if(uc(substr($ir,0,3))ne"+OK")
{$au{$z[418]}="An unknown error occured. Server response: $ir\n";
return 0;}print AH"USER $eo",$AG;if($dr){&ig("USER $eo",$AG);
}$ir=&ij(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"+OK"){$au{$z[418]}
="The server didn't accept the login info for '$eo'. Server response: $ir\n";
return 0;}print AH"PASS $iz",$AG;if($dr){&ig("PASS $iz",$AG);
}$ir=&ij(\*AH,$in)||do{$au{$z[418]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dr){&ig($ir);}if(substr($ir,0,3)ne"+OK"){$au{$z[418]}
="The server didn't accept the login info for '$eo'. Server response: $ir\n";
return 0;}print AH"QUIT",$AG;if($dr){&ig("QUIT",$AG);}close(AH);
$au{$z[425]}{$z[426]}=1;return 1;}sub ik{my$AI=$_[0];my$in=
$_[1]||$z[277];my($ja,$jb,$jc,$jd,$je,$jf,$jg);fileno($AI)||
die("fh_can_read: invalid filehandle or filehandle not open!\n");
vec($ja,fileno($AI),1)=1;$jg=select($jb=$ja,undef,undef,$in);
return vec($jb,fileno($AI),1);}sub ij{my$AI=$_[0];my$in=int($_[1]);
if(!$in){die("FH_readline: no timeout value specified!\n");
}if($in<10**8){die("FH_readline: timeout value must be in time() format!\n");
}fileno($AI)||die("FH_readline: invalid filehandle or filehandle not open!\n");
my($cz,$jh);while($in>=time()){&ik(\*AH,0.25)||next;sysread(\*AH,$jh,
1)||last;$cz.=$jh;if($jh eq"\x0A"){last;}}return$cz;}sub mk
{my$ea=shift;$ea=~s|\\|/|g;if($ea=~m|^/|){return$ea;}if($ea
=~m|^\w:/|){return$ea;}return&ji($au{$z[430]}.$z[257].$ea);
}sub ji{my$ea=shift;$ea=~s|\\|/|g;1 while$ea=~s|[^/]*/\.\./||;
return$ea;}1;;sub ml{$ad{$z[431]}=int sprintf($z[432],&jj($ac{$z[433]}));
$au{$z[434]}=&jk();if($ENV{$z[230]}eq$z[346]){&jl;}if($ac{$z[329]})
{&jm($z[435]);}my$jn=$z[436].$z[437].$z[438].$z[439];("9854568155555555555555555555555531775865555555555555555555555555528996:255555555555555555555555555523999955555555555555555555555555","12565429793352482114085871111")
-$au{$z[434]}&&&jm(pack($z[272],$jn));if(!$ac{$z[440]}){&jo;
}if(!$ad{$z[431]}){die("Invalid Product ID number $ac{'reg3'}\n");
}my($jp);($jp=lc$au{$z[430]})=~s/[^a-z0-9]//g;if($ac{$z[326]}
!=unpack$z[441],pack$z[442],$jp){$ac{$z[326]}=unpack$z[441],
pack$z[442],$jp;&cy($ar{$z[113]},\%ac,1);&jl;}if(&jj&&int(rand(50)+1)==1)
{print$z [443],"\n\n";exit;}}sub jo{&ab($z[444],{});my@jq=(
undef,\&jr,\&js,\&jt,\&ju,\&jv,\&jw,\&jx,);if($ac{$z[445]}&&
$ac{$z[446]}&&$ac{$z[433]}&&&jj($ac{$z[433]})){if($af{$z[447]})
{&jy;}if($af{$z[448]}){&jz($z[449]);}if($af{$z[450]}){&jz($z[451]);
}}my$ka=int($af{$z[452]})||1;if($ka>$#jq){die("Install: Invalid step number!\n");
}$ad{$z[453]}=$ka;if(!$af{$z[454]}&&$ka==1){&{$jq[1]};}else
{&{$jq[$ka]}($z[454]);$ad{$z[453]}=$ka+1;&{$jq[$ka+1]};}}sub
jr{my$kb=shift;if(!$kb){print"Content-type: text/html\n\n";
foreach($z[455],$z[456],$z[457]){print&ae($_,{});}&kc();exit;
}undef;}sub js{my$kb=shift;if(!$kb){print"Content-type: text/html\n\n";
foreach($z[455],$z[458],$z[457]){print&ae($_,{});}&kc();exit;
}if($af{$z[459]}){return;}else{print"Location: http://www.interactivetools.com/\n\n";
&kc();exit;}}sub jt{my$kb=shift;if(!$kb){$ad{$z[460]}||=$ENV{$z[461]}
||$ENV{$z[462]};print"Content-type: text/html\n\n";foreach($z[455],$z[463],$z[457])
{print&ae($_,{});}&kc();exit;}$af{$z[433]}=~s/\s+//g;if(!&jj($af{$z[433]}))
{$ad{$z[418]}=$z[464];}if(!$af{$z[433]}){$ad{$z[418]}=$z[465];
}if(!$af{$z[446]}){$ad{$z[418]}=$z[466];}if(!$af{$z[445]}){
$ad{$z[418]}=$z[467];}if($ad{$z[418]}){print"Content-type: text/html\n\n";
foreach($z[445],$z[446],$z[433]){$ad{$z[468].$_}=$af{$_};}foreach
($z[455],$z[463],$z[457]){print&ae($_,{});}&kc();exit;}&aq($ar{$z[113]},
\%ac,1);foreach($z[445],$z[446],$z[433]){$ac{$_}=$af{$_};}$ac{$z[4]}
=$au{$z[46]};&cy($ar{$z[113]},\%ac,1);}sub ju{my$kb=shift;if
(!$kb){$ad{$z[469]}=$ac{$z[469]};$ad{$z[469]}||=(&kd($z[470]))[0];
print"Content-type: text/html\n\n";foreach($z[455],$z[471],$z[457])
{print&ae($_,{});}&kc();exit;}&aq($ar{$z[113]},\%ac,1);$ac{$z[469]}
=$af{$z[469]};if($ac{$z[469]}!~/\/$/){$ac{$z[469]}.=$z[257];
}&cy($ar{$z[113]},\%ac,1);}sub jy{my$kb=shift;$ad{$z[472]}=
$af{$z[473]};if($ad{$z[472]}!~/\/$/){$ad{$z[472]}.=$z[257];
}$ad{$z[474]}=$z[475];print"Content-type: text/html\n\n";foreach
($z[455],$z[447],$z[457]){print&ae($_,{});}&kc();exit;}sub
jv{my$kb=shift;if(!$kb){($ad{$z[476]},$ad{$z[477]})=($ac{$z[476]},
$ac{$z[477]});unless($ad{$z[476]}||$ad{$z[477]}){($ad{$z[476]},
$ad{$z[477]})=&kd($z[478]);}($ad{$z[2]},$ad{$z[479]})=($ac{$z[2]},
$ac{$z[479]});unless($ad{$z[2]}||$ad{$z[479]}){($ad{$z[2]},
$ad{$z[479]})=&kd($z[480]);}$ad{$z[481]}=$ac{$z[481]};unless
($ad{$z[481]}){$ad{$z[481]}=$ENV{$z[482]};$ad{$z[481]}=~s|/[^/]+$|/search.cgi|;
$ad{$z[481]}=~s|^/||;$ad{$z[481]}=$z[483].($ENV{$z[461]}||$ENV{$z[462]}
||$ENV{$z[484]}).$z[257].$ad{$z[481]};}$ad{$z[485]}=$ac{$z[485]};
unless($ad{$z[485]}){$ad{$z[485]}=$ENV{$z[482]};$ad{$z[485]}
=~s|/[^/]+$|/view.cgi|;$ad{$z[485]}=~s|^/||;$ad{$z[485]}=$z[483].($ENV{$z[461]}
||$ENV{$z[462]}||$ENV{$z[484]}).$z[257].$ad{$z[485]};}print
"Content-type: text/html\n\n";foreach($z[455],$z[486],$z[457])
{print&ae($_,{});}&kc();exit;}foreach(keys%af){if(/^dir_/||
/^url_/){if(!$af{$_}){next;}$af{$_}=~tr|\\|/|;if(/^url_/&&index($af{$_},$z[487])
>=0){next;}if(/^url_/&&index($af{$_},$z[488])>=0){next;}if(substr($af{$_},-1,1)
ne$z[257]){$af{$_}.=$z[257];}}}&aq($ar{$z[113]},\%ac,1);$ac{$z[481]}
=$af{$z[481]};$ac{$z[485]}=$af{$z[485]};$ac{$z[476]}=$af{$z[476]};
$ac{$z[2]}=$af{$z[2]};$ac{$z[477]}=$af{$z[477]};$ac{$z[479]}
=$af{$z[479]};&cy($ar{$z[113]},\%ac,1);}sub jw{my$kb=shift;
if(!$kb){print"Content-type: text/html\n\n";foreach($z[455],$z[489],$z[457])
{print&ae($_,{});}&kc();exit;}my%ke;if(!$af{$z[490]}||!$af{$z[491]})
{$ad{$z[418]}=$z[492];}elsif(&kf($ar{$z[106]},\%ke,$z[493],
$af{$z[490]})){if($ke{$z[494]}eq$af{$z[491]}){return;}$ad{$z[418]}
=$z[495];}if($ad{$z[418]}){print$z [496]."\n\n";foreach($z[455],$z[489],$z[457])
{print&ae($_,\%af);}&kc();exit;}my%eo=($z[497]=>$^T,$z[498]
=>$^T,$z[36]=>$af{$z[490]},$z[493]=>$af{$z[490]},$z[494]=>$af{$z[491]},
$z[499]=>$z[500]);&dc($ar{$z[106]},\%eo);}sub jx{if(!&jj($ac{$z[433]}))
{print"Location: $au{'cgiurl'}?step=1\n\n";exit;}if(!$ac{$z[433]})
{print"Location: $au{'cgiurl'}?step=1\n\n";exit;}if(!$ac{$z[446]})
{print"Location: $au{'cgiurl'}?step=1\n\n";exit;}if(!$ac{$z[445]})
{print"Location: $au{'cgiurl'}?step=1\n\n";exit;}my($jp);($jp
=lc$au{$z[430]})=~s/[^a-z0-9]//g;&aq($ar{$z[113]},\%ac,1);$ac{$z[326]}
=unpack$z[441],pack$z[442],$jp;$ac{$z[440]}=1;&cy($ar{$z[113]},
\%ac,1);&kg($z[493],'');undef$aw{$z[493]};&kg($z[494],'');undef
$aw{$z[494]};&jl;}sub kd{&dr("guess_url_and_dir(@_)");my$kh
=shift;$kh=~s|^/||;(my$ki=$kh)=~s|/[^/]+$|/|;(my$kj=$ENV{$z[482]})
=~s|/[^/]+$|/|;$kj=~s|^/||;$kj=$z[483].($ENV{$z[461]}||$ENV{$z[462]}
||$ENV{$z[484]}).$z[257].$kj;my$kk=$au{prog_name2};my@kl=qw( htdocs httpd www web html );
my@km;push@km,[$z[501],$z[501]];push@km,[$z[502].$kk.$z[257],
$z[502].$kk.$z[257]];foreach(@kl){push@km,[$z[502].$kk.$z[257],
$z[502].$_.$z[257].$kk.$z[257]];}foreach(@kl){push@km,[$z[502],
$z[502].$_.$z[257]];}push@km,[$z[502],$z[502]];foreach(@km)
{my($kn,$ko)=@$_;&dr($z[503]."$au{'cgidir'}/$ko$kh
");if
(-e"$au{'cgidir'}/$ko$kh"){return(&kp("$kj$kn$ki"),&kp("$au{'cgidir'}/$ko$ki"));
}}return(&kp("$kj../$ki"),&kp("$au{'cgidir'}/../$ki"));}sub
kp{my$ea=shift;1 while($ea=~s|/[^/]+/\.\.||);return$ea;}sub
jj{my($ac,$bz,$kq,$kr,@ks)=(shift,(undef)x3,265,193);my%kt=map
{$_,$bz++}split(//,$z[504]);$ac=~s/-//g;my@ac=split(//,$ac);
for(0,1){my$ku;for(0..7){$ku*=33;$ku+=$kt{shift@ac}}$kq=$ku/($au{$z[52]}*
shift(@ks))-1261;($kq-int$kq||$kq<1||($kr&&$kq!=$kr))?return
undef:($kr=$kq)}$kq}sub jl{&dr("sub _register
");my($kv);
my$ep=$ENV{$z[461]}||$ENV{$z[462]}||$ENV{$z[484]};my$ea=$ENV{$z[482]}
||$ENV{$z[505]};$kv.=$z[506].&fa($ac{$z[445]});$kv.=$z[507]
.&fa($ac{$z[446]});$kv.=$z[508].&fa($ad{$z[431]});$kv.=$z[509]
.&fa($au{$z[48]});$kv.=$z[510].&fa($au{$z[50]});$kv.=$z[511]
.&fa("$ep$ea");$kv.=$z[512].&fa($au{$z[434]});&dr($kv);my$iq
=gethostbyname($z[513])||return;local(*AH);socket(AH,&PF_INET,
&SOCK_STREAM,0)||die("No Socket: $!");connect(AH,pack"SnA4x8",
&PF_INET,80,$iq)||return;select(AH);$|=1;select(STDOUT);print
AH"GET /register/register.cgi?$kv HTTP/1.0\n";print AH"Referer: $ENV{'HTTP_REFERER'}\n";
print AH"User-Agent: itools_software\n\n";my$kw=join("",);
close(AH);if($kw=~/itools\.license\.invalid/){$ac{$z[329]}=
1;}if($kw=~/itools\.license\.valid/){$ac{$z[329]}=0;}&dr($kw);
&cy($ar{$z[113]},\%ac,1);if($ac{$z[329]}){&jm($z[435]);}}sub
jk{local(*AA);open(AA,"<$au{'cgidir'}/$au{'cgifile'}");;
binmode(AA);my$iw.=join'',;close(AA);$iw=~tr/\r\n//d;$au{$z[434]}
=unpack$z[441],$iw;}1;;%av=&kx("$bb/config.ini");$ad{$z[514]}
=$av{$z[515]}{$z[516]}||"#336699";$au{$z[190]}=$av{$z[190]}
||$z[517];$au{$z[188]}=$av{$z[188]}||$z[518];$au{$z[519]}=$av{$z[515]}{$z[519]}
||$z[520];$au{$z[521]}=$av{$z[515]}{$z[521]}||$z[522];$au{$z[523]}
=$av{$z[515]}{$z[523]}||$z[354];&ay("macftp")if$z[524]ne"\xA1";
&ay($z[525])if$ENV{$z[526]}&&!$av{$z[527]};%au=(%au,$z[430]
=>$bb,$z[528]=>$az,$z[529]=>$az,$z[530]=>$z[531],$z[532]=>$z[533],
$z[534]=>$z[535],$z[536]=>0,);foreach(qw(datadir filelock templatedir1 templatedir2 templatedir3 archive))
{if(ref($au{$_})){next;}$au{$_}="$bb/$au{$_}"if(index($au{$_},$z[537])
==0);$au{$_}=~s|\\|/|g;1 while$au{$_}=~s|/[^/]+/\.\./|/|;}&aq($ar{$z[113]},
\%ac,1);if(!$ac{$z[440]}){&ay($z[538]);}foreach(grep/^dir_/,
keys%ac){$ac{$_}="$au{'cgidir'}/$ac{$_}"if index($ac{$_},$z[537])
==0;$ac{$_}=~tr|\\|/|;1 while$ac{$_}=~s|/[^/]+/\.\.||;}if(!$ENV{$z[482]})
{if($ARGV[0]=~/^publish$/i){&ky();}print$z [539],"\n\n";exit;
}foreach(qw(prog_name prog_name2 prog_ver cgidir cgiurl)){$ad{$z[468].$_}
=$au{$_};}foreach(qw(url_help reg1 reg2 reg3)){$ad{$z[468].$_}
=$ac{$_};}$ad{$z[540]}=$ac{$z[469]};$ad{$z[541]}=join$z[542],
grep{$_}$au{$z[46]},$ac{$z[4]};$ad{$z[543]}||=$ac{$z[4]};%af
=&kz;%aw=&la;}sub ay{my($lb)=$ad{$z[544]};my($eb,$lc,$ld)=@_;
my(%le,$lf,$lg);$lc=&at($lc);$ad{$z[514]}||="#336699";%le=($z[545]
=>[("Can't find record # $lc","The program can't find the specified record number in the database. This is usually because the record has already been erased. Reload the record list and try again.")],
$z[189]=>[("Warning: File/Directory not writeable!","This web application needs to be able to create and update it's data files. Please ask your server administrator to make the following files and directories writeable:$lc")],
$z[188]=>[("Warning: Persistent Filelock!","This web application uses temporary 'file locks' to ensure than only one user can update data at a time. The program was halted while in the middle of writing data and the file lock will need to be removed manually to avoid data corruption. Please ask your server administrator to remove the following directory:
$lc")],
$z[191]=>[($z[546],$z[547])],$z[548]=>[("Warning: Program corrupted during upload!",
"This is usually caused by Mac FTP clients that have an \"Translate ISO characters\" setting enabled.
If you are using a Mac, try disabling this setting and re-uploading all the files, otherwise, contact support for assistance. ")],
$z[549]=>[("Publishing Error","The program cannot create or write to the file:
$lc
Please ask your server administrator to make sure the publish directory and publish file(s) are writable.")],
$z[525]=>[("Program doesn't support mod_perl","Your server is running $ENV{MOD_PERL}
This program doesn't support mod_perl. Please ask your server administrator to disable mod_perl for this program.")],
$z[550]=>[($z[551],$z[552])],$z[553]=>[("No such file or directory",
"The program can't find the file or directory it's looking for. Please make sure the following file or directory exists:
$lc")],
$z[554]=>[("Permission denied","The program doesn't have permission to access a required file. Please make sure the program has read and write access to the following directories and files:
$lc")],
);my($lh)=$ad{$z[541]}||$le{$eb}[0]||"Program Message";if($le{$eb}[0])
{$lg=$le{$eb}[0];}elsif($lc&&$eb){$lg=&at($eb);}else{$lg="Program Message";
}$lf=$le{$eb}[1]||$lc||&at("@_");if(!$le{$eb}[1]){$lf=~s/\n/
\n/g;
}if(!$ENV{$z[482]}){$lf=~s/(<.*?>)+/\n/g;print"\n\nFatal Error: $lg\n\n$lf\n\n";
exit;}if($au{$z[417]}){$lf.="
Stack Trace
";$lf
.="
";
my$bz=0;while(my($ds,$cz,$ee)=(caller($bz++))[1,2,3]){$ds=~
s/^.*[\/\\]//;$ee=~s/^main:://;unless($ee=~s/__ANON__/(anonymous)/)
{$ee=$z[225].$ee;}$lf.=qq!| $ds | !;
$lf.=qq! ($cz) | !;
$lf.=qq! | !;
$lf.=qq! called $ee | !;
$lf.=qq!\n |
!;}$lf.="
";
}if(!$au{$z[536]}++){print"Cache-Control: no-cache\nPragma: no-cache\nExpires: -1\n";
print"Content-type: text/html\n\n";}my$li=$z[555]if$ld;print
qq|\n\n \n $lh\n \n \n \n\n\n|
;if($au{$z[417]}&&$au{$z[226]}){print"";
print"$au{'debug_output'}"if($au{$z[226]});print"";
}if($au{$z[187]}){rmdir($au{$z[188]})&&undef$au{$z[187]};}printf($z[556]."\n",time()-$^T);
print$z [557]."\n\n";exit;}sub ah{my$lj=shift;my$bv=sub{my$ap
=shift;my$am=($lj==$ap->{$z[558]})?$z[24]:'';$ad{$z[559]}.=
qq|\n|;
};&lk($ar{$z[35]},$bv);}sub mm{my$ll=shift;foreach(grep/^templatedir/,
sort keys%au){if(-e"$au{$_}/$ll"){return 1;}}return 0;}sub
mn{my($ev,$ha,@lm)=@_;my$ln;foreach$ln(@lm){if(defined$au{$z[251]}{$z[259]}{$ev
.$ln}){$ev.=$ln;}else{last;}}&ae($ev,$ha);}sub ag{%as=($z[560]
=>$z[561],$z[562]=>$z[563],$z[564]=>$z[565],$z[566]=>$z[567],
$z[568]=>$z[569],$z[570]=>$z[571],);%ai=&kx("$au{'cgidir'}/../templates/syndicate/styles.ini");
$ai{$z[21]}={$z[15]=>$z[572],$z[573]=>$z[239],$z[574]=>$z[575],
$z[37]=>$z[560],$z[576]=>$z[577],$z[578]=>$z[579],$z[580]=>
$z[575],$z[581]=>$z[575],$z[582]=>$z[575],$z[38]=>$z[560],$z[583]
=>$z[584],$z[585]=>$z[586],$z[587]=>$z[575],$z[588]=>$z[575],
$z[589]=>$z[575],$z[39]=>$z[560],$z[590]=>$z[577],$z[591]=>
$z[586],$z[516]=>$z[592],};}sub ak{my$lo=shift;foreach(keys
%{$lo}){if(!/\W/&&$lo->{$_}!~/\W/){$lo->{$_.$z[468].$lo->{$_}.$z[593]}
=$z[594];$lo->{$_.$z[468].$lo->{$_}.$z[595]}=$z[596];}}return
$lo;}sub ao{my%an;foreach(keys%{$ai{$z[21]}}){$an{$_}=$ai{$z[21]
}{$_};}if(defined$af{$z[19]}&&$af{$z[19]}ne$z[20]){$an{$z[19]}
=$af{$z[19]};foreach(keys%{$ai{$af{$z[19]}}}){$an{$_}=$ai{$af{$z[19]}}{$_};
}}else{$an{$z[19]}=$z[20];foreach(keys%{$ai{$z[21]}}){if($af{$_})
{$an{$_}=$af{$_};}elsif(defined$af{$_.$z[22]}){$an{$_}=$af{
$_.$z[22]};}}}foreach($z[8],$z[7],$z[597],$z[598],$z[599]){
if($af{$_}){$an{$_}=$af{$_};}elsif(defined$af{$_.$z[22]}){$an{$_}
=$af{$_.$z[22]};}}return%an;}sub aj{my($ef)=@_;my$lp={};my$lq;
foreach$lq(keys%$ef){$lp->{$lq}=&at($ef->{$lq});}return$lp;
}
# ----------------------------------------------------------------------------
# Programming by interactivetools.com, inc.