;close(AD);close(AE);}sub
ps{my($ep)=$_[0];my($ef,$am,$eq,@er,$es,%ed);my($ea,$ei,$et);
my($eu);binmode(STDIN);if($ep&&($ENV{$z[222]}||length$ENV{$z[223]})
>$ep){die($z[224]."$ep bytes\n");}($eu)=$ENV{$z[225]}=~/boundary=(?:"?)(\S+?)(?:"?)$/;
if($ENV{$z[226]}eq$z[227]&&$ENV{$z[225]}=~m|^multipart/form-data|)
{my$es;read(STDIN,$es,$ENV{$z[222]});foreach(split(/\n/,$es))
{if(/^--$eu--/){$es.="--$eu";last;}else{$es.=$_;}}@er=split(/--$eu/,$es);
foreach$eq(@er){unless($eq=~/^(\r\n|\n)Content-Disposition/)
{next;}($ef,$am)=$eq=~/^(?:\r\n|\n)(.*?)(?:\r\n|\n){2}(.*?)(?:\r\n|\n)$/s;
($ei)=$ef=~/filename="([^"]+)"/;($ef)=$ef=~/name="([^"]+)"/;
($ea)=$ei=~/([^\/\\]+)$/;($et)=$ei=~/\.(\w+)$/;if(!$ei){$ef
=~s/\r\n/\n/g;$am=~s/\r\n/\n/g;$ef=~s/\x00//g;$am=~s/\x00//g;
}$ed{$ef}=$am;$ed{$ef.$z[228]}=$ei;$ed{$ef.$z[229]}=$ea;$ed{$ef.$z[230]}
=$et;}}else{if($ENV{$z[226]}eq$z[227]){read(STDIN,$es,$ENV{$z[222]});
}elsif($ENV{$z[226]}eq$z[231]){$es=$ENV{$z[223]};}@er=split(/&/,
$es);foreach$eq(@er){($ef,$am)=split(/=/,$eq);$ef=~tr/+/ /;
$am=~tr/+/ /;$ef=~s/%([A-F0-9]{2})/pack($z[149],hex($1))/egi;
$am=~s/%([A-F0-9]{2})/pack($z[149],hex($1))/egi;$ef=~s/\r\n/\n/g;
$am=~s/\r\n/\n/g;$ef=~s/\x00//g;$am=~s/\x00//g;if($ef=~/_multi$/)
{push@{$ed{$ef}},$am;}else{$ed{$ef}=$am;}}}foreach(keys%ed)
{if(/^(.*)(\.x|\.y)$/){$ed{$1}=$z[232];}}return%ed;}sub qb{
my($ev)=$_[0];my($ew,$ex)=split(/@/,$ev);if($ev eq''){return
0;}if($ev=~/[^A-Za-z0-9-_\.\@]/){return 0;}if($ew!~/^([\w\-]+[\w\-\.])*[\w\-]+$/)
{return 0;}if($ex!~/^([\w\-]+[\w\-\.])*[\w\-]+\.[A-Za-z]{2,8}$/)
{return 0;}return 1;}sub qc{my($ey,$ez)=@_;unless($ey eq$z[233]
||$ey eq$z[234]||$ey eq$z[235]||$ey eq$z[236]){return undef;
}$ez=~s/[^\d]//g;my@fa=split//,$ez;unless(($ey eq$z[233]&&$fa[0]
==4)||($ey eq$z[234]&&$fa[0]==5)||($ey eq$z[235]&&$fa[0]==3)
||($ey eq$z[236]&&$fa[0]==6)){return undef;}unless(($ey eq$z[233]
&&($#fa==12||$#fa==15))||($ey eq$z[234]&&$#fa==15)||($ey eq
$z[235]&&$#fa==14)||($ey eq$z[236]&&$#fa==15)){return undef;
}my$fb;for(my$ee=($#fa+1)% 2;$ee<=$#fa;$ee+=2){if($fa[$ee]<
5){$fa[$ee]*=2;}else{$fa[$ee]=($fa[$ee]* 2)-9}}foreach(@fa)
{$fb+=$_;}unless($fb% 10==0){return undef;}return 1;}sub ac
{local(*AB);my($ea,%ed,$fc,$fd);%ed=%{$_[1]}if$_[1];my%fe;%fe
=($z[237]=>0,$z[238]=>0,$z[239]=>0,$z[240]=>0);foreach(split(/ /,$_[2]))
{if(undef$fe{$_}){die($z[241]."'$_'\n");}$fe{$_}=1;}if(!$_[0])
{die$z[242]."\n";}if(ref($_[1])ne$z[145]){die$z[243]."\n";}
if((!$fe{$z[238]}||!$av{$z[244]}{$z[238]}{$_[0]})){if(-e"$_[0]")
{$ea=$_[0];}else{foreach(grep/^templatedir/,sort keys%av){if
(-e"$av{$_}/$_[0]"){$ea="$av{$_}/$_[0]";last;}}if(!$ea){die
$z[245]."'$_[0]'".$z[246]."\n";}}}if($fe{$z[238]}&&$av{$z[244]}{$z[238]}{$_[0]})
{$fc=$av{$z[244]}{$z[238]}{$_[0]};}else{open(AB,"<$ea")||die
$z[247]."$ea! $!\n";binmode(AB)if($ea=~/gif$/i||$ea=~/jpg$/i);
read(AB,$fc,-s AB);close(AB);}if($fe{$z[239]}){return$fc;}if
(!$fe{$z[238]}||!$av{$z[244]}{$z[238]}{$_[0]}){foreach$fd($fc
=~m//g){$av{$z[244]}{$z[248]}{$1}=$2
if($fc=~m/(?:\r\n|\n)?(.*?)/is);
}$fc=~s/(?:\r\n|\n)?(.*?)//gis;
if($fe{$z[238]}){$av{$z[244]}{$z[238]}{$_[0]}=$fc;}}$fc=~s//$1/gi;
$fc=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$am=defined$ae{$1}
?$ae{$1}:$ed{$1};if($2 eq$z[249]){$am=&ff($am);}if($2 eq$z[250])
{$am=&fg($am);}if($2 eq$z[251]){$am=&fg($am);$am=~s/ / /g;
}if($2 eq$z[252]){$am=&fh($am);}$am;]ge;return$fc;}sub af{if
(!$_[0]){die$z[253]."\n";}if(!defined$av{$z[244]}{$z[248]}{$_[0]})
{die$z[254]."'$_[0]'".$z[255]."\n";}if(ref($_[1])ne"HASH"){
die$z[256]."\n";}local(*AB);my(%ed);%ed=%{$_[1]}if$_[1];my($fc)
=$av{$z[244]}{$z[248]}{$_[0]};$fc=~s/(?:\r\n|\n)?(.*?)//gs;
$fc=~s//$1/gi;$fc=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][
my$am=defined$ae{$1}?$ae{$1}:$ed{$1};if($2 eq$z[249]){$am=&ff($am);
}if($2 eq$z[250]){$am=&fg($am);}if($2 eq$z[251]){$am=&fg($am);
$am=~s/ / /g;}if($2 eq$z[252]){$am=&fh($am);}$am;]ge;return
$fc;}sub ks{my($ag)=$_[0];my(@fi)=(($z[235]..$z[257],$z[258]..$z[259],0..9),$z[260],$z[261]);
my($ao)=unpack($z[262],$ag);$ao=~s/(\d{6}|\d+$)/$fi[ord(pack$z[262],"00$1")]/ge;
while(length($ao)%4){$ao.=$z[211];}return$ao;}sub qd{my($ag)
=$_[0];my(%fi);my($ao);my$cb;for(($z[235]..$z[257],$z[258]..$z[259],0..9),$z[260],$z[261]){
$fi{$_}=$cb++}$ag=$_[0]||return$z[263];$ag=~s/[^A-Za-z0-9+\/]//g;
$ag=~s/[A-Za-z0-9+\/]/unpack'B*',chr($fi{$&})/ge;$ag=~s/\d\d(\d{6})/$1/g;
$ag=~s/\d{8}/$ao.=pack($z[262],$&)/ge;return$ao;}sub ff{my($fj)
=$_[0];$fj=~s/([^A-Za-z0-9\*\.\@\_\-])/uc sprintf($z[264],ord($1))/egx;
$fj=~tr/ /+/;return$fj;}sub gb{my($fj)=$_[0];$fj=~tr/+/ /;$fj
=~s/%([A-F0-9]{2})/pack($z[149],hex($1))/egi;return$fj;}sub
mi{my($fk);my($ef,$am,$fl,$ei,$fm,$fn)=@_;my($fo);if($ef eq
''){die($z[265]."\n");}if($fl&&$fl ne int($fl)){die($z[266]."\n");
}$ax{$ef}=$am;if($fl){my($fp,$fq,$fr,$fs,$ft,$fu,$fv,$fw)=gmtime($fl);
($fp,$fq,$fr,$fs)=map{$_<10?$z[267].$_:$_}($fp,$fq,$fr,$fs);
$fo=join('',(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[$fv],", $fs-",(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$ft],$z[158],1900+$fu,
" $fx$fy$fp GMT");}if($ef){$ef=&ff($ef);}if($am){$am=&ff($am);
}if($fl){$fk.=$z[268]."$fo; ";}if($ei){$fk.=$z[269]."$ei; ";
}if($fm){$fk.=$z[270]."$fm; ";}if($fn){$fk.=$z[271];}print$z
[272]."$ef=$am; $fk\n";}sub pt{my($fz,$ef,$am,%ga);foreach$fz
(split(/; /,$ENV{$z[273]})){($ef,$am)=split(/=/,$fz);foreach($ef,$am)
{$_=&gb($_);}$ga{$ef}=$am;}return%ga;}sub nj{my$gc=$_[0]||die("DateString: The first parameter must be a date or time format string\n");
$gc=~/\%/||die("DateString: The first parameter must contain a date format marker '%'\n");
my$gd=$_[1];my($fu,$ft,$fs,$ge,$fq,$fp,$fv,$fw);my@gf=(0,0,1,0,0,0);
my$gg=$_[-1]=~/^GMT$/i;pop(@_)if$gg;if(scalar(@_)>=3){die("DateString: Too many arguments\n")
if scalar(@_)>7;my$gh;foreach$gh(1..scalar(@_)-1){$gf[$gh-1]
=$_[$gh];}($fu,$ft,$fs,$ge,$fq,$fp)=@gf;if($fs>28){($fu,$ft,
$fs)=&gi($fu,$ft,$fs);}$gd=$gg?&gj($fp,$fq,$ge,$fs,$ft,$fu)
:&gk($fp,$fq,$ge,$fs,$ft,$fu);}else{}($fp,$fq,$ge,$fs,$ft,$fu,
$fv,$fw)=($gg?gmtime($gd):localtime($gd));my$gl;if(exists($av{DateString}{rhNames}))
{$gl=$av{DateString}{rhNames};}else{$gl={$z[274]=>exists($aw{$z[275]}{ampm})
?[split(/,/,$aw{$z[275]}{ampm})]:[qw(AM PM)],$z[276]=>exists($aw{$z[275]}{ordinals})
?[split(/,/,$aw{$z[275]}{ordinals})]:[$z[277],$z[278],$z[279],
$z[280],$z[281],$z[282],$z[283],$z[284],$z[285],$z[286],$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]=>exists($aw{$z[275]}{week_full})
?[split(/,/,$aw{$z[275]}{week_full})]:[qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)],
$z[310]=>exists($aw{$z[275]}{week_abbr})?[split(/,/,$aw{$z[275]}{week_abbr})]
:[qw(Sun Mon Tue Wed Thu Fri Sat)],$z[311]=>exists($aw{$z[275]}{month_full})
?[split(/,/,$aw{$z[275]}{month_full})]:[qw(January February March April May June July August September October November December)],
$z[312]=>exists($aw{$z[275]}{month_abbr})?[split(/,/,$aw{$z[275]}{month_abbr})]
:[qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)],};$av{DateString}{rhNames}
=$gl;}my($gm,$gn)=(0,1);my$go={$z[313]=>$z[313],$z[258]=>$gl->{week_abbr}[$fv],
$z[235]=>$gl->{week_full}[$fv],$z[314]=>$gl->{month_abbr}[$ft],
$z[315]=>$gl->{month_full}[$ft],$z[316]=>$z[317],$z[149]=>$z[318],
$z[319]=>sprintf($z[320],$fs),$z[236]=>$z[321],$z[322]=>sprintf($z[323],
$fs),$z[324]=>$gl->{month_abbr}[$ft],$z[325]=>sprintf($z[320],
$ge),$z[326]=>sprintf($z[320],$ge% 12||12),$z[327]=>sprintf($z[328],$fw
+1),$z[329]=>sprintf($z[323],$ge),$z[330]=>sprintf($z[323],
$ge% 12||12),$z[331]=>sprintf($z[320],$ft+1),$z[234]=>sprintf($z[320],
$fq),$z[157]=>"\n",$z[332]=>$gl->{ordinals}[$fs],$z[333]=>$gl->{ampm}[$ge
>=12?1:0],$z[334]=>lc($gl->{ampm}[$ge>=12?1:0]),$z[335]=>int($ft
/3)+1,$z[336]=>$z[337],$z[338]=>$z[339],$z[340]=>$gd,$z[341]
=>sprintf($z[320],$fp),$z[342]=>"\t",$z[343]=>$z[344],$z[345]
=>&gp($gm,$fv,$fw),$z[346]=>$fv,$z[347]=>&gp($gn,$fv,$fw),$z[348]
=>$z[321],$z[349]=>$z[344],$z[350]=>sprintf($z[320],$fu% 100),
$z[351]=>sprintf($z[352],$fu+1900),$z[257]=>'',$z[259]=>'',
};$gc=&gq($go,$gc);return$gc;}sub gq{my($go,$gc)=@_;$gc=~s/%(O?[%a-zA-Z])/&gr($go,
$1)/sgeox;return$gc;}sub gr{my$gs=$_[1];return(exists($_[0]->{$gs}))
?($_[0]->{$gs}=~/\%/&&$gs ne$z[313]?&gq($_[0],$_[0]->{$gs})
:$_[0]->{$gs}):"\%$gs";}sub gp{my($gt,$fv,$fw)=@_;$fv=($fv+
7-$gt)% 7;return int(($fw-$fv+13)/7-1);}sub gi{my($fu,$ft,$gu)
=@_;return@_ if$gu<=28;my$gv;if($ft==1){if(($fu% 4==0)&&(!($fu
% 100==0)||($fu% 400==0))){$gv=29;}else{$gv=28;}}elsif($ft==
3||$ft==5||$ft==8||$ft==10){$gv=30;}else{$gv=31;}return($fu,
$ft,$gu<$gv?$gu:$gv);}sub qe{my$gw=$_[0];my$gx=$_[1]||die("DateString: The second argument must time()\n");
my$AF=$_[2];if($gx ne int($gx)){die($z[353]."\n");}my($fp,$fq,$fr,$gu,$ft,$fu,$fv);
if($AF){($fp,$fq,$fr,$gu,$ft,$fu,$fv)=gmtime($gx);}else{($fp,$fq,$fr,$gu,$ft,$fu,$fv)
=localtime($gx);}if($gx=~tr/://){($fu,$ft,$gu,$fr,$fq,$fp,$fv)
=split(/:/,$gx);$fu-=1900;$ft-=1;foreach($fu,$ft,$gu,$fr,$fq,$fp,$fv)
{$_||=0;}}my(%fv,%gy,%ft,%gz);my@ft=($z[354],$z[355],$z[356],$z[357],$z[358],$z[359],$z[360],$z[361],$z[362],$z[363],$z[364],$z[365]);
my@gz=($z[366],$z[367],$z[368],$z[369],$z[358],$z[370],$z[371],$z[372],$z[373],$z[374],$z[375],$z[376]);
my@fv=($z[377],$z[378],$z[379],$z[380],$z[381],$z[382],$z[383]);
my@gy=($z[384],$z[385],$z[386],$z[387],$z[388],$z[389],$z[390]);
foreach(@fv){$fv{lc$_}++;}foreach(@gy){$gy{lc$_}++;}foreach
(@ft){$ft{lc$_}++;}foreach(@gz){$gz{lc$_}++;}$gw=~s/\b[A-Za-z]{3,9}\b/
if($fv{lc$&}){if(uc($&)eq$&){uc$fv[$fv];}elsif(lc($&)eq$&){
lc$fv[$fv];}else{ucfirst lc$fv[$fv];}}elsif($gy{lc$&}){if(uc($&)
eq$&){uc$gy[$fv];}elsif(lc($&)eq$&){lc$gy[$fv];}else{ucfirst
lc$gy[$fv];}}elsif($ft{lc$&}){if(uc($&)eq$&){uc$ft[$ft];}elsif
(lc($&)eq$&){lc$ft[$ft];}else{ucfirst lc$ft[$ft];}}elsif($gz{lc
$&}){if(uc($&)eq$&){uc$gz[$ft];}elsif(lc($&)eq$&){lc$gz[$ft];
}else{ucfirst lc$gz[$ft];}}else{$&;}/ge;$gw=~s/\d{1,4}\b/if
(length$&==4){$fu+1900;}elsif(length$&<=2){if(substr($&,0,1)
eq 0){sprintf($z[320],$gu);}else{$gu;}}else{$&;}/ge;$gw=~s/(\d{1,2})(st|nd|rd|th)/
if($gu==1||$gu==21||$gu==31){$gu.$z[391];}elsif($gu==2||$gu
==22){$gu.$z[392];}elsif($gu==3||$gu==23){$gu.$z[393];}else
{$gu.$z[394];}/gei;$gw=~s/YYYY/sprintf($z[352],$fu+1900)/gei;
$gw=~s/YY/sprintf($z[320],$fu%100)/gei;$gw=~s/MO\b/sprintf($z[320],$ft+1)/gei;
$gw=~s/DD/sprintf($z[320],$gu)/gei;$gw=~s/SS/sprintf($z[320],$fp)/gei;
$gw=~s/MM/sprintf($z[320],$fq)/gei;$gw=~s/HH/sprintf($z[320],$fr)/gei;
return$gw;}sub cf{my($ha,$ce,$arrayref_nopack)=@_;my(@f_nopack,$cd,$hb,
$hc,$hd,$cb);my($bz,$ca);$cb=0;foreach(split(/ /,$ce)){if(s/\#//g)
{$bz=1;}elsif(s/n//g){$bz=1;}else{$bz=0;}if(s/\-//g){$ca=$z[395];
}elsif(s/\+//g){$ca='';}else{$ca='';}s/[^0-9]//gs;push(@f_nopack,$_);
if($bz){$cd+=15;$hc.=$z[396];$hd.=qq|$ca sprintf('%015s',int(substr(\$str[$cb]*100,0,15))),|;
}else{$cd+=50;$hc.=$z[397];$hd.="$ca substr(\$str[$cb],0,50),";
}$cb++;}$hb.=qq|return map { substr(\$_,$cd) } sort map {\n|;
$hb.=qq| my \@str = (split(/\\$ha/,lc \$_))[\@f_nopack];\n|;
$hb.=qq| sprintf("$hc\%s" ,$hd\$_);\n|;$hb.=qq| } \@\$arrayref_nopack;\n|;
eval$hb;}sub fh{my$he=shift;$he=~s/\\/\\\\/g;$he=~s/'/\\'/g;
$he=~s/\n/\\n/g;$he=~s/\r/\\r/g;$he=~s/\000//g;$he=~s/-->/--'+'>/g;
$he=~s!!!g;return$he;}sub au{my$hf=shift;
$hf=~s/&/&/g;$hf=~s/"/"/g;$hf=~s//>/g;
return$hf;}sub fg{my$hf=shift;$hf=~s/&([^\w#]|$)/&$1/g;
$hf=~s/"/"/g;$hf=~s//>/g;return$hf;
}sub qf{my$hf=shift;$hf=~s//>/g;return$hf;
}sub qg{my$hg=shift;my%hh=map{$_,1}@_;return join($z[218],map
{$hh{$_}?():&ff($_).$z[211].&ff($hg->{$_})}keys%{$hg});}sub
qh{my$hg=shift;my%hh=map{$_,1}@_;return join("\n",map{$hh{$_}
?():$z[398].&au($_).$z[399].&au($hg->{$_}).$z[400]}keys%{$hg});
}sub qi{$_=$_[0];/\.gif$/i&&return(&hi($_[0]));(/\.jpeg$/i||
/\.jpg$/i)&&return(&hj($_[0]));/\.png$/i&&return(&hk($_[0]));
undef;}sub hk{my($dd)=@_;my($hl);open(PNG,$dd)||return(undef,
undef,"PNG - Couldn't Open $dd");binmode(PNG);seek(PNG,12,0);
read(PNG,$hl,4);if($hl ne"IHDR"){close PNG;return(undef,undef,
"PNG - Missing Image Header - $hl");}read(PNG,$hl,8);close
PNG;return unpack("NN",$hl);}sub hj{my($dd)=@_;my($hl,$hm,$hn,
$ho,$hp);open(JPEG,$dd)||return(undef,undef,"JPEG - Couldn't Open $dd");
binmode(JPEG);read(JPEG,$hl,2);while(1){read(JPEG,$hm,4);($hn,
$ho,$hp)=unpack("a a n",$hm);if($hn ne"\xFF"){close JPEG;return(undef,
undef,"JPEG - Marker not Found");}if((ord($ho)>=0xC0)&&(ord($ho)
<=0xC3)){read(JPEG,$hl,5);close(JPEG);my($hq,$hr)=unpack("xnn",
$hl);return($hr,$hq);}else{read(JPEG,$hl,$hp-2);}}}sub hz{my
($hs,$ht)=@_;my($hu);read($hs,$hu,$ht);while(1){if(eof($hs))
{close AG;return(undef);}read($hs,$hu,1);last if ord($hu)==
0;read($hs,$hu,ord($hu));}1;}sub hi{my($dd)=@_;my($hl,$ej,$hv,
$hw,$hr,$hx,$hq,$hy);open(AG,$dd)||return(undef,undef,"GIF - Couldn't Open $dd");
binmode(AG);read(AG,$ej,6);read(AG,$hl,7);if(length($hl)!=7)
{close AG;return(undef,undef,"GIF - Corrupted Header");}($hr)
=unpack("x4 C",$hl);if($hr&0x80){$hv=3*(2**(($hr&0x07)+1));
read(AG,$hw,$hv);if(!$hw){close AG;return(undef,undef,"GIF - Corrupted Colour Map");
}}while(1){if(eof(AG)){close AG;return(undef,undef,"GIF - EOF at BlockStart");
}read(AG,$hl,1);($hr)=unpack("C",$hl);if($hr==0x2c){read(AG,
$hl,8);if(length($hl)!=8){close AG;return(undef,undef,"GIF - Missing Image Header");
}($hr,$hx,$hq,$hy)=unpack("x4 C4",$hl);close(AG);return($hr
+$hx* 256,$hq+$hy* 256);}if($hr==0x21){read(AG,$hl,1);($hr)
=unpack("C",$hl);if($hr==0xF9){read(AG,$hl,6);}elsif($hr==0xFE)
{&hz(\*AG,0)||return(undef,undef,"GIF - Bad Block - skip=0");
}elsif($hr==0x01){&hz(\*AG,13)||return(undef,undef,"GIF - Bad Block - skip=13");
}elsif($hr==0xFF){&hz(\*AG,12)||return(undef,undef,"GIF - Bad Block - skip=12");
}else{close AG;return(undef,undef,"GIF - Unknown Block Extension");
}}else{close AG;return(undef,undef,"GIF - Unknown Block Type");
}}}sub qj{return($_[0]=~/(.+)/s)[0]||$_[0];}sub qk{my$ia;foreach
(split/\n/,shift){s!\\!\\\\!g;s!\"!\\\"!g;s!$ii){$ig=1;}push(@{$ie[$ig]},$_);}if(defined$id){
foreach(0..$#ie){while(scalar@{$ie[$_]}<$ic){push(@{$ie[$_]},
$id);}}}shift@ie;return@ie;}sub qm{my($ij,%ik,$AH);$ij=$_[0];
%ik=%{$_[1]};$AH="\x0D\x0A";local(*AI);if(!defined&il){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_parseheader'\n");
}if(!defined&im){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_debug'\n");
}if(!defined&in){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_readline'\n");
}if(!defined&io){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_pop3auth'\n");
}if(!defined&ip){die("SMTP_sendmail: Couldn't find required subroutine 'FH_readline'\n");
}if(!defined&iq){die("SMTP_sendmail: Couldn't find required subroutine 'FH_can_read'\n");
}foreach(keys%{$av{$z[401]}}){defined$ik{$_}&&next;$ik{$_}=
$av{$z[401]}{$_};}my($ex,$ir,$is,$it,$dx);$ex=$ik{$z[402]};
$ir=$ik{$z[403]}||25;$is=$ik{$z[404]}||$z[405];$it=$ik{$z[406]}
||30;$dx=$ik{$z[407]}||0;$it+=time()if$it<10**8&&$it>0;if($ex
=~s/:(\d+)//){$ir=$1;}$ex=&iu($ex);if(!$ex){$av{$z[408]}="No SMTP host specified.\n";
return 0;}if(!$ir){$av{$z[408]}="No SMTP port specified.\n";
return 0;}my($iv,@iw)=&il($ij);$ij=~tr/\r//d;$ij=~s/\n/\r\n/gs;
$ij=~s/^\s*bcc\s*:.*\n//mgi;if($ik{$z[409]}){&io(\%ik)||return
0;}my($ix)=gethostbyname($ex)||do{$av{$z[408]}="Could not connect to SMTP server. Unknown host $ex\n";
return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$av{$z[408]}
="Could not connect to SMTP server. No Socket: $!\n";return
0;};connect(AI,pack"SnA4x8",PF_INET,$ir,$ix)||do{if($!eq"Unknown error")
{$av{$z[408]}="Could not connect to SMTP server. SMTP server does not exist or is not responding.\n";
return 0;}else{$av{$z[408]}="Could not connect to SMTP server. Connect failed: $!\n";
return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$iy
=&in(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"220"){$av{$z[408]}
="An unknown error occured. Server response: $iy\n";return
0;}print AI"HELO $is",$AH;if($dx){&im("HELO $is",$AH);}$iy=
&in(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"250"){$av{$z[408]}
="An unknown error occured. Server response: $iy\n";return
0;}print AI"MAIL FROM:<$iv>",$AH;if($dx){&im("MAIL FROM:<$iv>",
$AH);}$iy=&in(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"250"){$av{$z[408]}
="An unknown error occured. Server response: $iy\n";return
0;}my$iw;foreach$iw(@iw){print AI"RCPT TO:<$iw>",$AH;if($dx)
{&im("RCPT TO:<$iw>",$AH);}$iy=&in(\*AI,$it)||do{$av{$z[408]}
="Timed out waiting for SMTP server to respond.\n";return 0;
};if($dx){&im($iy);}if(substr($iy,0,2)eq"55"){$av{$z[408]}=
"The server won't accept mail for '$iw'. Server response: $iy\n";
return 0;}if(substr($iy,0,2)ne"25"){$av{$z[408]}="An unknown error occured. Server response: $iy\n";
return 0;}}print AI"DATA",$AH;if($dx){&im("DATA",$AH);}$iy=
&in(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"354"){$av{$z[408]}
="An unknown error occured. Server response: $iy\n";return
0;}$ij=~s/^\./\.\./gm;print AI$ij,$AH;if($dx){&im($ij,$AH);
}print AI".",$AH;if($dx){&im(".",$AH);}$iy=&in(\*AI,$it)||do
{$av{$z[408]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"250"){$av{$z[408]}
="An unknown error occured. Server response: $iy\n";return
0;}print AI"QUIT",$AH;if($dx){&im("QUIT",$AH);}close(AI);return
1;}sub il{my($ij,$iz,$ja,$jb,$db);$ij=$_[0];$ij=~tr/\r//d;$iz
=$z[410];$iz.=$z[411];if($ij=~m/^(.*?)\n\n(.*)$/s){($ja,$jb)
=($1,$2);}else{die("SMTP_parseheader: couldn't find email header!\n");
}my($iv,@iw);foreach$db(split(/\n/,$ja)){foreach(qw(from to cc bcc))
{if($db=~/^\s*$_\s*:/i){my$jc=$_;foreach($db=~m/($iz)/g){if
($jc eq$z[412]){$iv=$_;}else{push@iw,$_;}}}}}$iv||die("SMTP_parseheader: couldn't find from: address in mail header\n");
$#iw>=0||die("SMTP_parseheader: couldn't find to: address in mail header\n");
return($iv,@iw);}sub in{my$AJ=$_[0];my$it=int($_[1]);if(!$it)
{die("SMTP_readline: no timeout value specified!\n");}if($it
<10**8){die("SMTP_readline: timeout value must be in time() format!Rec'd: $it\n");
}fileno($AJ)||die("SMTP_readline: invalid filehandle or filehandle not open!\n");
my($db,$jd);while(!$db||substr($db,3,1)eq$z[158]){$db=&ip($AJ,$it);
$jd.=$db;}return$jd;}sub im{my$dy=join'',@_;$dy=~s/\s+$//m;
my$je=localtime();local*AK;if(!$dy){$je="";$dy="\n";}if($dy
=~/^From:/i){$dy="[email content]";}if($dy=~/^PASS /i){$dy=
"PASS (not shown)";}$dy=~s//>/g;$dy=~s/\r\n|\n/
\n/g;
print"$dy
\n\n";}sub io{my($ij,%ik,$AH);%ik=%{$_[0]};
$AH="\x0D\x0A";local(*AI);if(!$ik{$z[413]}){die("SMTP_pop3auth: POP3 username not defined'\n");
}if(!$ik{$z[414]}){die("SMTP_pop3auth: POP3 password not defined'\n");
}if($av{$z[415]}{$z[416]}){return 1;}my($ex,$ir,$ew,$jf,$it,$dx);
$ex=$ik{$z[417]}||$ik{$z[402]};$ir=$ik{$z[418]}||110;$ew=$ik{$z[413]};
$jf=$ik{$z[414]};$it=$ik{$z[419]}||$ik{$z[406]}||30;$dx=$ik{$z[407]}
||0;$it+=time()if$it<10**8&&$it>0;if($ex=~s/:(\d+)//){$ir=$1;
}$ex=&iu($ex);my($ix)=gethostbyname($ex)||do{$av{$z[408]}="Could not connect to POP3 server. Unknown host $ex\n";
return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$av{$z[408]}
="Could not connect to POP3 server. No Socket: $!\n";return
0;};connect(AI,pack"SnA4x8",PF_INET,$ir,$ix)||do{if($!eq"Unknown error")
{$av{$z[408]}="Could not connect to POP3 server. POP3 server does not exist or is not responding.\n";
return 0;}else{$av{$z[408]}="Could not connect to POP3 server. Connect failed: $!\n";
return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$iy
=&ip(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dx){&im($iy);}if(uc(substr($iy,0,3))ne"+OK")
{$av{$z[408]}="An unknown error occured. Server response: $iy\n";
return 0;}print AI"USER $ew",$AH;if($dx){&im("USER $ew",$AH);
}$iy=&ip(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"+OK"){$av{$z[408]}
="The server didn't accept the login info for '$ew'. Server response: $iy\n";
return 0;}print AI"PASS $jf",$AH;if($dx){&im("PASS $jf",$AH);
}$iy=&ip(\*AI,$it)||do{$av{$z[408]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($dx){&im($iy);}if(substr($iy,0,3)ne"+OK"){$av{$z[408]}
="The server didn't accept the login info for '$ew'. Server response: $iy\n";
return 0;}print AI"QUIT",$AH;if($dx){&im("QUIT",$AH);}close(AI);
$av{$z[415]}{$z[416]}=1;return 1;}sub iq{my$AJ=$_[0];my$it=
$_[1]||$z[267];my($jg,$jh,$ji,$jj,$jk,$jl,$jm);fileno($AJ)||
die("fh_can_read: invalid filehandle or filehandle not open!\n");
vec($jg,fileno($AJ),1)=1;$jm=select($jh=$jg,undef,undef,$it);
return vec($jh,fileno($AJ),1);}sub ip{my$AJ=$_[0];my$it=int($_[1]);
if(!$it){die("FH_readline: no timeout value specified!\n");
}if($it<10**8){die("FH_readline: timeout value must be in time() format!\n");
}fileno($AJ)||die("FH_readline: invalid filehandle or filehandle not open!\n");
my($db,$jn);while($it>=time()){&iq(\*AI,0.25)||next;sysread(\*AI,$jn,
1)||last;$db.=$jn;if($jn eq"\x0A"){last;}}return$db;}sub jx
{my$jo=$av{$z[420]}{$z[421]}||={};my$jp=int++$jo->{$z[422]};
my$ef="FH$jp";return eval"local *$ef";}sub di{return unless
($aw{$z[423]});my$jo=$av{$z[420]}{$z[424]}||={};$jo->{$z[425]}
||=[];my($jq,$it)=@_;$jq||=$z[183];$it||=0;if($jq ne$z[183]
and$jq ne$z[426]){&az("lock: invalid lock type: '$jq'");}my
$jr;if(@{$jo->{$z[425]}}>0){$jr=$jo->{$z[425]}[-1];}if($jr
eq$z[183]){$jq=$jr;}if($jr eq$jq){push(@{$jo->{$z[425]}},$jq);
return 1;}my$js;if($jr eq$z[426]and$jq eq$z[183]){&az("lock: cannot upgrade a 'shared' lock to an 'exclusive' lock");
}$js=&jt('',$jq,$it);if($js){push(@{$jo->{$z[425]}},$jq);}return
$js;}sub dj{return unless($aw{$z[423]});my$jo=$av{$z[420]}{$z[424]}
||={};$jo->{$z[425]}||=[];my($it)=@_;$it||=0;unless(@{$jo->{$z[425]}}
>0){&az($z[427])}my$jr=pop(@{$jo->{$z[425]}});return if(@{$jo->{$z[425]}}
>0 and$jo->{$z[425]}[-1]eq$jr);if(@{$jo->{$z[425]}}==0){&ju('');
}}sub jt{my$jo=$av{$z[420]}{$z[424]}||={};my($jv,$jq,$it)=@_;
my$jw;if($jv){$jw="$av{'datadir'}$jv.lock";}else{$jw=$av{$z[428]};
}if(not exists$jo->{$z[429]}{$jv}){$jo->{$z[429]}{$jv}{$z[430]}
=$jw;$jo->{$z[429]}{$jv}{$z[431]}=&jx();sysopen($jo->{$z[429]}{$jv}{$z[431]},
$jo->{$z[429]}{$jv}{$z[430]},O_RDWR|O_CREAT)||&az($z[428],"error opening $jq file lock $jo->{'lockinfo'}{$jv}{'filename'}: $!\n");
}else{&az("_lock_flock: already a lock for semaphore '$jv'");
}my$jy;if($jq eq$z[426]){$jy=LOCK_SH;}if($jq eq$z[183]){$jy
=LOCK_EX;}if($it>0){$jy|=LOCK_NB;}my$jz=time()+$it;until(flock($jo->{$z[429]}{$jv}{$z[431]},
$jy)){if(time()<$jz){sleep(1);}else{close($jo->{$z[429]}{$jv}{$z[431]});
&az($z[432]);}}return 1;}sub ju{my$jo=$av{$z[420]}{$z[424]}
||={};my($jv)=@_;unless(flock($jo->{$z[429]}{$jv}{$z[431]},
LOCK_UN)){&az($z[428],"error releasing a flock() on file lock $jo->{'lockinfo'}{$jv}{'filename'}: $!\n");
}unless(close($jo->{$z[429]}{$jv}{$z[431]})){&az($z[428],"error closing file lock $jo->{'lockinfo'}{$jv}{'filename'}: $!\n");
}delete$jo->{$z[429]}{$jv};return 1;}sub qn{my$ei=shift;$ei
=~s|\\|/|g;if($ei=~m|^/|){return$ei;}if($ei=~m|^\w:/|){return
$ei;}return&ka($av{$z[433]}.$z[261].$ei);}sub ka{my$ei=shift;
$ei=~s|\\|/|g;1 while$ei=~s|[^/]*/\.\./||;return$ei;}sub kh
{my($kb,@ik)=@_;$kb=~s/\s+//g;$kb=uc$kb;my$kc;my$kd=-1;my$ke;
foreach$ke(split(/,/,$kb)){$kd++;my$kf=shift@ik;my$kg=$ke=~
s/\[|\]//g;if($ke eq$z[434]){@ik=();last;}next if($kg and not
defined$kf);next if($ke eq$z[435]and defined$kf);next if($ke
=~/\bVALUE\b/and not ref($kf)and defined($kf));next if(uc(ref
$kf)=~/\b$ke\b/);next if($ke=~/\bINT\b/and$kf!~/[^0-9\.\e\-]/i
and$kf==int($kf));$kc.=", "if$kc;$kc.="\$_[$kd] must be ";$kc
.="either "if$kg;$kc.=$ke;$kc.=" or undefined"if$kg;$kc.=" ARG: $kf.";
}if(@ik){$kd++;$kc.=", "if$kc;$kc.="extra argument(s) \@_["
.($kd)." .. ".($kd+$#ik)."]";}return 1unless$kc;my$em=(caller(1))[3];
$em=~s/^main:://;&az("Invalid arguments passed to $em".": $kc");
}sub qo{&kh($z[436],@_);my($fc,$ki,$ik)=@_;$ik||={};my$kj;foreach
$kj($z[437],$z[438]){unless(exists$ik->{$kj}){$ik->{$kj}=$av{$kj};
}}unless($ki){&az("resolve_server_markup: file_extension not supplied");
}unless($ik->{$z[437]}){&az("resolve_server_markup: temp_base_dir argument not supplied");
}unless($ik->{$z[438]}){&az("resolve_server_markup: temp_base_url argument not supplied");
}unless(-e"$ik->{'temp_base_dir'}"){&az("resolve_server_markup: temp directory does not exist");
}my$kk=$aw{$z[439]}||3;if($ENV{$z[440]}>=$kk){return("Content-type: text/html\n\n",
"[Dynamic SSI Error: SSI recursion limit of $kk reached. This page was not parsed for server-side markup.]\n\n"
.$fc);}my$kl;my($km,$kn)=("temp_$^T","");my$ko;&di();while(1)
{$kl="$km$kn.$ki";last unless-e"$ik->{'temp_base_dir'}$kl";
$ko++;$kn=sprintf($z[441],$ko);}&dj();open(AB,">$ik->{'temp_base_dir'}$kl")
||&az("resolve_server_markup: could not create temp file '$ik->{'temp_base_dir'}$kl' : $!");
print AB$fc||&az("resolve_server_markup: could not write to temp file '$ik->{'temp_base_dir'}$kl' : $!");
close(AB)||&az("resolve_server_markup: could not close temp file '$ik->{'temp_base_dir'}$kl' : $!");
my$kp=&kq();if($ad{$z[442]}||$ad{$z[443]}){my$kr=$ad{$z[442]}
.":".$ad{$z[443]};$kp->{$z[444]}="Basic ".&ks($kr);}if($ik->{$z[445]})
{$kp->{$z[446]}='';$kp->{$z[447]}.=$z[448]if length$kp->{$z[447]};
$kp->{$z[447]}.=$z[449];}my$kt="$ik->{'temp_base_url'}$kl";
my($ku,$kv,$kw)=&kx($kt,$kp);unless($aw{$z[450]}{$z[451]}){
unlink("$ik->{'temp_base_dir'}$kl");}return($kv,$kw);}sub kq
{&kh('',@_);my%ky;my$kz;foreach$kz(keys%ENV){$kz=~/^HTTP_/i
||next;my$la=$ENV{$kz};my$lb;$lb=$kz;$lb=~s/^HTTP_//;$lb=~s/_/-/g;
$lb=~s/(\w+)/ucfirst lc$1/eg;$ky{$lb}=$la;}my@ld=($z[452],$z[444],
$z[447],$z[453],$z[454],$z[455],$z[456],$z[457],$z[458],$z[459],
$z[460],$z[461],$z[462],$z[463],$z[464],$z[465],$z[466],$z[467],
$z[468],$z[469],$z[470],$z[471],$z[472],$z[473],$z[474],$z[475]
);my%le=map{uc($_)=>1}@ld;my$lb;foreach$lb(keys%ky){if($le{uc
$lb}){delete$ky{$lb};}}$ky{$z[476]}=join($z[477],map{"$_=$ax{$_}"
}keys%ax);if(not exists$ky{$z[478]}){$ky{$z[478]}=1;}$ky{$z[478]}++;
my$lf;if($ENV{$z[479]}eq($ENV{$z[480]}||$ENV{$z[481]})){$lf
=$ENV{$z[482]}||$ENV{$z[483]}||$ENV{$z[479]};}else{$lf=$ENV{$z[479]};
}$ky{$z[484]}=$lf;$ky{$z[485]}=$lf;return\%ky;}sub qp{&kh($z[486],
@_);my($lg)=@_;my$lh={};$lh->{$z[487]}=$lg;@{$lh}{$z[488],$z[402],
$z[489],$z[490],$z[491],$z[492]}=$lg=~m{^(?:(\w+://)([^/]*))?([^?\#]*?)([^/?\#]*)(?:(\?[^\#]*))?(?:(\#.*))?$};
unless(length$lh->{$z[489]}){$lh->{$z[489]}=$z[261];}return
$lh;}sub iu{my($ex)=@_;if($ex=~/^\d+\.\d+\.\d+\.\d+$/){return
$ex;}else{$ex.=$z[493]unless$ex=~/\.$/;return$ex;}}1;;sub qs
{$ae{$z[494]}=int sprintf($z[495],&li($ad{$z[496]}));$av{$z[497]}
=&lj();if($ENV{$z[223]}eq$z[336]){&lk;}if($ad{$z[319]}){&ll($z[498]);
}my$lm=$z[499].$z[500].$z[501].$z[502];("251348:55555555555555555555555555","8597620")
-$av{$z[497]}&&&ll(pack($z[262],$lm));if(!$ad{$z[503]}){&ln;
}if(!$ae{$z[494]}){die("Invalid Product ID number $ad{'reg3'}\n");
}my($lo);($lo=lc$av{$z[433]})=~s/[^a-z0-9]//g;if($ad{$z[316]}
!=unpack$z[504],pack$z[505],$lo){$ad{$z[316]}=unpack$z[504],
pack$z[505],$lo;&da($as{$z[116]},\%ad,1);&lk;}}sub ln{&ac($z[506],
{});my@lp=(undef,\&lq,\&lr,\&ls,\<,\&lu,\&lv,\&lw,);if($ad{$z[507]}
&&$ad{$z[508]}&&$ad{$z[496]}&&&li($ad{$z[496]})){if($ag{$z[509]})
{&lx;}if($ag{$z[510]}){&ly($z[511]);}if($ag{$z[512]}){&ly($z[490]);
}}my$lz=int($ag{$z[513]})||1;if($lz>$#lp){die("Install: Invalid step number!\n");
}$ae{$z[514]}=$lz;if(!$ag{$z[515]}&&$lz==1){&{$lp[1]};}else
{&{$lp[$lz]}($z[515]);$ae{$z[514]}=$lz+1;&{$lp[$lz+1]};}}sub
lq{my$ma=shift;if(!$ma){if(&mb($aw{$z[516]})){$ae{$z[517]}=
&mc();}print"Content-type: text/html\n\n";foreach($z[518],$z[519],$z[520])
{print&af($_,{});}&md();exit;}undef;}sub lr{my$ma=shift;if(!$ma)
{print"Content-type: text/html\n\n";foreach($z[518],$z[521],$z[520])
{print&af($_,{});}&md();exit;}unless($ag{$z[522]}){print"Content-type: text/html\n\n";
foreach($z[518],$z[523],$z[520]){print&af($_,{});}&md();exit;
}}sub ls{my$ma=shift;if(!$ma){$ae{$z[524]}||=$ENV{$z[525]}||
$ENV{$z[526]};print"Content-type: text/html\n\n";foreach($z[518],$z[527],$z[520])
{print&af($_,{});}&md();exit;}$ag{$z[496]}=~s/\s+//g;if(!$ag{$z[522]}
||$ag{$z[528]}!=1){$ae{$z[408]}=&af($z[529],{});}if(!&li($ag{$z[496]}))
{$ae{$z[408]}=$z[530];}if(!$ag{$z[496]}){$ae{$z[408]}=$z[531];
}if(!$ag{$z[508]}){$ae{$z[408]}=$z[532];}if(!$ag{$z[507]}){
$ae{$z[408]}=$z[533];}if($ae{$z[408]}){print"Content-type: text/html\n\n";
foreach($z[507],$z[508],$z[496],$z[528]){$ae{$z[534].$_}=$ag{$_};
}foreach($z[518],$z[527],$z[520]){print&af($_,{});}&md();exit;
}&ar($as{$z[116]},\%ad,1);foreach($z[507],$z[508],$z[496]){
$ad{$_}=$ag{$_};}&da($as{$z[116]},\%ad,1);}sub lt{my$ma=shift;
if(!$ma){$ae{$z[535]}=$ad{$z[535]};$ae{$z[535]}||=(&me($z[536]))[0];
print"Content-type: text/html\n\n";foreach($z[518],$z[537],$z[520])
{print&af($_,{});}&md();exit;}&ar($as{$z[116]},\%ad,1);$ad{$z[535]}
=$ag{$z[535]};if($ad{$z[535]}!~/\/$/){$ad{$z[535]}.=$z[261];
}&da($as{$z[116]},\%ad,1);}sub lx{my$ma=shift;$ae{$z[538]}=
$ag{$z[539]};if($ae{$z[538]}!~/\/$/){$ae{$z[538]}.=$z[261];
}$ae{$z[540]}=$z[541];print"Content-type: text/html\n\n";foreach
($z[518],$z[509],$z[520]){print&af($_,{});}&md();exit;}sub
lu{my$ma=shift;if(!$ma){($ae{$z[542]},$ae{$z[543]})=($ad{$z[542]},
$ad{$z[543]});unless($ae{$z[542]}||$ae{$z[543]}){($ae{$z[542]},
$ae{$z[543]})=&me($z[544]);}($ae{$z[2]},$ae{$z[545]})=($ad{$z[2]},
$ad{$z[545]});unless($ae{$z[2]}||$ae{$z[545]}){($ae{$z[2]},
$ae{$z[545]})=&me($z[546]);}$ae{$z[547]}=$ad{$z[547]};unless
($ae{$z[547]}){$ae{$z[547]}=$ENV{$z[548]};$ae{$z[547]}=~s|/[^/]+$|/search.cgi|;
$ae{$z[547]}=~s|^/||;$ae{$z[547]}=$z[549].($ENV{$z[525]}||$ENV{$z[526]}
||$ENV{$z[480]}).$z[261].$ae{$z[547]};}$ae{$z[550]}=$ad{$z[550]};
unless($ae{$z[550]}){$ae{$z[550]}=$ENV{$z[548]};$ae{$z[550]}
=~s|/[^/]+$|/view.cgi|;$ae{$z[550]}=~s|^/||;$ae{$z[550]}=$z[549].($ENV{$z[525]}
||$ENV{$z[526]}||$ENV{$z[480]}).$z[261].$ae{$z[550]};}print
"Content-type: text/html\n\n";foreach($z[518],$z[551],$z[520])
{print&af($_,{});}&md();exit;}foreach(keys%ag){if(/^dir_/||
/^url_/){if(!$ag{$_}){next;}$ag{$_}=~tr|\\|/|;if(/^url_/&&index($ag{$_},$z[552])
>=0){next;}if(/^url_/&&index($ag{$_},$z[553])>=0){next;}if(substr($ag{$_},-1,1)
ne$z[261]){$ag{$_}.=$z[261];}}}&ar($as{$z[116]},\%ad,1);$ad{$z[547]}
=$ag{$z[547]};$ad{$z[550]}=$ag{$z[550]};$ad{$z[542]}=$ag{$z[542]};
$ad{$z[2]}=$ag{$z[2]};$ad{$z[543]}=$ag{$z[543]};$ad{$z[545]}
=$ag{$z[545]};&da($as{$z[116]},\%ad,1);&mf($as{$z[37]},sub{
my$aq=shift;$aq->{$z[542]}=$ad{$z[542]};$aq->{$z[2]}=$ad{$z[2]};
$aq->{$z[543]}=$ad{$z[543]};$aq->{$z[545]}=$ad{$z[545]};});
}sub lv{my$ma=shift;if(!$ma){print"Content-type: text/html\n\n";
foreach($z[518],$z[554],$z[520]){print&af($_,{});}&md();exit;
}my%mg;if(!$ag{$z[555]}||!$ag{$z[556]}){$ae{$z[408]}=$z[557];
}elsif(&mh($as{$z[109]},\%mg,$z[558],$ag{$z[555]})){if($mg{$z[559]}
eq$ag{$z[556]}){return;}$ae{$z[408]}=$z[560];}if($ae{$z[408]})
{print$z [561]."\n\n";foreach($z[518],$z[554],$z[520]){print
&af($_,\%ag);}&md();exit;}my%ew=($z[562]=>$^T,$z[563]=>$^T,
$z[38]=>$ag{$z[555]},$z[558]=>$ag{$z[555]},$z[559]=>$ag{$z[556]},
$z[564]=>$z[565]);&dg($as{$z[109]},\%ew);}sub lw{if(!&li($ad{$z[496]}))
{print"Location: $av{'cgiurl'}?step=1\n\n";exit;}if(!$ad{$z[496]})
{print"Location: $av{'cgiurl'}?step=1\n\n";exit;}if(!$ad{$z[508]})
{print"Location: $av{'cgiurl'}?step=1\n\n";exit;}if(!$ad{$z[507]})
{print"Location: $av{'cgiurl'}?step=1\n\n";exit;}my($lo);($lo
=lc$av{$z[433]})=~s/[^a-z0-9]//g;&ar($as{$z[116]},\%ad,1);$ad{$z[316]}
=unpack$z[504],pack$z[505],$lo;$ad{$z[503]}=1;&da($as{$z[116]},
\%ad,1);&mi($z[558],'');undef$ax{$z[558]};&mi($z[559],'');undef
$ax{$z[559]};&lk;}sub me{&dx("guess_url_and_dir(@_)");my$mj
=shift;$mj=~s|^/||;(my$mk=$mj)=~s|/[^/]+$|/|;(my$ml=$ENV{$z[548]})
=~s|/[^/]+$|/|;$ml=~s|^/||;$ml=$z[549].($ENV{$z[525]}||$ENV{$z[526]}
||$ENV{$z[480]}).$z[261].$ml;my$mm=$av{$z[566]};my@mn=qw( htdocs httpd www web html );
my@mo;push@mo,[$z[567],$z[567]];push@mo,[$z[568].$mm.$z[261],
$z[568].$mm.$z[261]];foreach(@mn){push@mo,[$z[568].$mm.$z[261],
$z[568].$_.$z[261].$mm.$z[261]];}foreach(@mn){push@mo,[$z[568],
$z[568].$_.$z[261]];}push@mo,[$z[568],$z[568]];foreach(@mo)
{my($mp,$mq)=@$_;&dx($z[569]."$av{'cgidir'}/$mq$mj
");if
(-e"$av{'cgidir'}/$mq$mj"){return(&mr("$ml$mp$mk"),&mr("$av{'cgidir'}/$mq$mk"));
}}return(&mr("$ml../$mk"),&mr("$av{'cgidir'}/../$mk"));}sub
mr{my$ei=shift;1 while($ei=~s|/[^/]+/\.\.||);return$ei;}sub
li{my($ad,$cb,$ms,$mt,@mu)=(shift,(undef)x3,265,193);my%mv=map
{$_,$cb++}split(//,$z[570]);$ad=~s/-//g;my@ad=split(//,$ad);
for(0,1){my$mw;for(0..7){$mw*=33;$mw+=$mv{shift@ad}}$ms=$mw/($av{$z[52]}*
shift(@mu))-1261;($ms-int$ms||$ms<1||($mt&&$ms!=$mt))?return
undef:($mt=$ms)}$ms}sub lk{&dx("sub _register
");my($mx);
my$ex=$ENV{$z[525]}||$ENV{$z[526]}||$ENV{$z[480]};my$ei=$ENV{$z[548]}
||$ENV{$z[571]};$mx.=$z[572].&ff($ad{$z[507]});$mx.=$z[573]
.&ff($ad{$z[508]});$mx.=$z[574].&ff($ae{$z[494]});$mx.=$z[575]
.&ff($av{$z[576]});$mx.=$z[577].&ff($av{$z[48]});$mx.=$z[578]
.&ff("$ex$ei");$mx.=$z[579].&ff($av{$z[497]});&dx($mx);my$ix
=gethostbyname($z[580])||return;local(*AI);socket(AI,&PF_INET,
&SOCK_STREAM,0)||die("No Socket: $!");connect(AI,pack"SnA4x8",
&PF_INET,80,$ix)||return;select(AI);$|=1;select(STDOUT);print
AI"GET /register/register.cgi?$mx HTTP/1.0\n";print AI"Referer: $ENV{'HTTP_REFERER'}\n";
print AI"User-Agent: software\n\n";my$mz=join("",);close(AI);
if($mz=~/license\.invalid/){$ad{$z[319]}=1;}if($mz=~/license\.valid/)
{$ad{$z[319]}=0;}&dx($mz);&da($as{$z[116]},\%ad,1);if($ad{$z[319]})
{&ll($z[498]);}}sub lj{local(*AB);open(AB,"<$av{'cgidir'}/$av{'cgifile'}");
;binmode(AB);my$jd.=join'',;close(AB);$jd=~tr/\r\n//d;
$av{$z[497]}=unpack$z[504],$jd;}sub qt{if(!$av{$z[581]}++){
print$z [561]."\n\n";}print&na();exit;}sub na{if(&mb($aw{$z[516]}))
{return&nb();}else{return&ac($z[582],{});}}sub mb{my$nc=shift
||die("No 'vendor' name specified (make sure it's defined in INI file)");
my$nd=$nc;$nd=~s/^\s+|\s+$//sg;$nd=~s/(.{1,8})/crypt($1,$z[583])/sge;
$nd=~s/AA//gs;if($nd eq$z[584]){return 1;}return 0;}sub mc{
my$ad=join("\n",$z[585],$z[586],$z[587],'',$z[588],$z[589],
);$ad=~s|\$cgiurl\$|$av{$z[590]}|iges;return&ne($ad);}sub nb
{my$ad=join("\n",$z[591],$z[592],$z[593],$z[594],$z[595],$z[596],
$z[597],$z[598],$z[599],'',$z[600],'',$z[601],'',$z[602],$z[603],
$z[604],$z[605],$z[606],$z[607],$z[608],'',$z[609],$z[610],
$z[611],$z[612],'',$z[613],'',$z[614],'',$z[615],$z[616],$z[617],
$z[618],$z[619],$z[620],$z[621],'',$z[622],'',$z[623],$z[624],
$z[625],'',$z[626],'',$z[627],$z[628],$z[629],$z[615],$z[630],
$z[631],$z[632],$z[633],$z[634],$z[621],'',$z[635],'',$z[615],
$z[636],$z[637],$z[638],$z[639],$z[640],$z[641],$z[642],$z[643],
$z[644],$z[645],$z[646],$z[647],$z[621],'',$z[648],$z[649],
$z[650],'',$z[651],$z[652],$z[653],$z[654],$z[655],$z[656],
$z[657],$z[658],'',$z[659],$z[660],$z[661],$z[662],$z[663],
$z[664],'',$z[665],$z[666],$z[667],$z[668],$z[669],$z[670],
$z[671],'',$z[672],$z[673],'',$z[615],$z[674],$z[675],$z[676],
$z[677],$z[621],'',$z[678],'',$z[679],$z[680],'',$z[615],$z[681],
$z[682],$z[683],$z[684],$z[685],$z[686],$z[687],$z[688],$z[689],
'',$z[690],$z[691],$z[692],$z[693],'',$z[694],$z[621],'',$z[695],
$z[696],$z[697],$z[698],$z[699],$z[700],$z[701],$z[702],$z[703],
$z[704],$z[705],'',$z[706],$z[707],$z[708],$z[709],$z[710],
$z[711],$z[712],$z[713],$z[714],$z[715],$z[716],'',$z[717],
$z[718],$z[719],$z[720],$z[721],$z[722],$z[723],$z[724],$z[725],
$z[726],$z[727],'',$z[728],$z[729],$z[730],'',$z[731],$z[732],
$z[733],'',$z[734],$z[735],$z[736],$z[737],$z[738],$z[739],
$z[740],$z[741],$z[742],$z[743],'','',$z[744],'','',$z[613],
$z[745],$z[746],'',$z[747],'',$z[748],);return&ne($ad);}sub
ne{my$ad=shift;$ad=~s|\$_vendor_name\$|$ae{$z[749]}|iges;$ad
=~s|\$_vendor_url\$|$ae{$z[750]}|iges;$ad=~s|\$_vendor_location\$|$ae{$z[751]}|iges;
return$ad;}sub qu{my$ed=shift;my$ad;my$nf;foreach$nf(keys%$ed)
{my$am=&ff($ed->{$nf});$ad.="&"if($ad);$ad.="$nf=$am";}$ad=
unpack($z[752],$ad);$ad=~tr/[A-F][a-f][0-9]/[A-F][A-F][G-P]/;
return$ad;}sub nh{my$ad=shift;my$ed={};$ad=~tr/[A-F][G-P]//cd;
$ad=~tr/[G-P]/[0-9]/;$ad=pack($z[752],$ad);my$ng;foreach$ng
(split($z[218],$ad)){my($ef,$am)=split($z[211],$ng);$am=&gb($am);
$ed->{$ef}=$am;}return$ed;}sub qv{local(*AB);my($ea)=$_[0];
my($ec)=$_[1];my(@eb,$db);if(!$_[0]){die"INI_Load_Vendor : No data file was specified!\n";
}open(AB,"<$ea")||die("INI_Load_Vendor : Could open data file! $!\n");
@eb=;close(AB);my($ed);foreach$db(@eb){next if$db=~/^#/;
$ed=&nh($db);my$nf;foreach$nf(%$ed){$ec->{$nf}=$ed->{$nf};}
}if(!$ec->{$z[516]}||!$ec->{$z[753]}||!$ec->{$z[754]}){die("Keys missing from INI_Load_Vendor!\n");
}return;}1;;sub nu{my$ni;if($aw{$z[755]}){$ni=$aw{$z[755]};
}else{$ni=$ad{$z[2]};$ni=~s|https?://[^/]+||;}$ae{$z[756]}=
$ad{$z[545]};$ae{$z[757]}=$ni;$ae{$z[758]}=$ad{$z[547]};$ae{$z[2]}
=$ad{$z[2]};$ae{$z[759]}=$ad{$z[2]}.$ad{$z[760]}.$z[493].$ad{$z[761]};
$ae{$z[762]}=$ad{$z[763]}.$z[493].$ad{$z[761]};$ae{$z[764]}
=$ad{$z[765]}.$z[493].$ad{$z[761]};$ae{$z[766]}=$ad{$z[767]}
.$z[493].$ad{$z[761]};$ae{$z[768]}=$ad{$z[769]}.$z[493].$ad{$z[761]};
$ae{$z[770]}=$ni.$ad{$z[763]}.$z[493].$ad{$z[761]};$ae{$z[771]}
=$ni.$ad{$z[765]}.$z[493].$ad{$z[761]};$ae{$z[772]}=$ni.$ad{$z[767]}
.$z[493].$ad{$z[761]};$ae{$z[773]}=$ni.$ad{$z[769]}.$z[493]
.$ad{$z[761]};$ae{$z[774]}=&nj($av{$z[775]},&nk($ad{$z[774]}))
if($ad{$z[774]});$ae{$z[36]}=$ad{$z[36]};return$ni;}sub nr{
my$nl=shift;my$bn={};my$bx=sub{my$dk=shift;%{$bn->{$dk->{$z[422]}
}}=%$dk;};&nm($as{$nl},$bx);return$bn;}sub qy{my$nn=shift;my
$np=$av{$z[420]}{$z[776]}||={};if(keys%$np){return$np->{$nn};
}&ac($z[777],{});my$nq=&nr($z[37]);for(keys%$nq){my$ns=$_;my
$nt=$nq->{$ns}{$z[778]}?$nq->{$ns}{$z[779]}:$ad{$z[780]}.$nq->{$ns}{$z[422]};
$nq->{$ns}{$z[781]}=$ad{$z[2]}.$nt.$z[493].$ad{$z[761]};$nq->{$ns}{$z[782]}
=$nq->{$ns}{$z[422]};$nq->{$ns}{$z[35]}=$nq->{$ns}{$z[38]};
$nq->{$ns}{$z[783]}=&nj($av{$z[775]},&nk($nq->{$ns}{$z[563]}));
$nq->{$ns}{$z[784]}=$ad{$z[542]}.$nq->{$ns}{$z[785]};$nq->{$ns}{$z[786]}
=$nq->{$ns}{$z[787]};$nq->{$ns}{$z[788]}=$nq->{$ns}{$z[789]};
$nq->{$ns}{$z[790]}=&af($z[791],$nq->{$ns});$nq->{$ns}{$z[792]}
=&af($z[793],$nq->{$ns});}do{&nu();my$nv={};$nv->{$z[781]}=
$ae{$z[759]};$nv->{$z[782]}=0;$nv->{$z[35]}=$ae{$z[36]};$nv->{$z[783]}
=$ae{$z[774]};my$nw=&af($z[793],$nv);$np->{$z[267]}=$nw;};my
$nx=&af($z[794],{});for(keys%$nq){my$ns=$_;my$ny=$nq->{$ns};
&nu();my$nw=$ny->{$z[792]};my$nz=$ny->{$z[795]};my$oa=0;while
($nz){if($oa++>99){last;}my$ob=$nq->{$nz};$nw=$ob->{$z[790]}
.$nx.$nw;$nz=$ob->{$z[795]};}$np->{$ns}=$nw;}return$np->{$nn};
}sub ai{my$oc=shift;my$od=shift;if($oc!~/^(nohidden|article_editor|article_list)$/)
{die"Invalid list type '$oc'";}my%oe;foreach(@$od){$oe{$_}=
1;}my$nq=&nr($z[37]);my$of;my@og=sort{$nq->{$a}{$z[796]}<=>
$nq->{$b}{$z[796]}}keys%$nq;foreach(@og){my$dk=$nq->{$_};my
$ns=$dk->{$z[422]};my$oh=&oi($ns);my$oj=&ok($dk->{$z[38]},$dk->{$z[797]});
my$ol=$ns;my$an="";if($oe{$dk->{$z[422]}}){$an="selected";}
my$om=($ay{$z[564]}==9||$ay{$z[798]}||$av{$z[799]}{$ns});if
($oc eq$z[800]){if($dk->{$z[801]}){next;}if(not$om){next;}$of
.=qq|\n|;}if($oc eq$z[802])
{if(not$om){next;}$of.=qq|\n|;
}if($oc eq$z[9]){if($dk->{$z[803]}){next;}$of.=qq|\n|;
}}return$of;}sub oi{my$nn=shift;my$np=$av{$z[420]}{$z[804]}
||={};if(keys%$np){return$np->{$nn};}my$nq=&nr($z[37]);for(sort
keys%$nq){my$on=$_;my$oo=0;my$nw=$nq->{$on}{$z[38]};my$op=$nq->{$on}{$z[795]};
while($op&&$oo++<99){$nw="$nq->{$op}{'name'} \t $nw";$op=$nq->{$op}{$z[795]};
}my$oq=$aw{$z[805]}{$z[806]};if($oq&&$oq<5){$oq=5;}my$or;if
(length$nw<=$oq){$or=$nw;}else{my@os=split(/ \t /,$nw);my$ot
=$os[$#os];$or="... $nw";while(length($or)>$oq){my$ou=$or=~
s/^.*? \t /... /s;if(not$ou){last;}}if(length$or>$oq){my$ov
=$oq-4;if($or=~/\s(.{1,$ov})$/s){$or="... $1";}elsif($or=~/(.{1,$ov})$/s)
{$or="...$1";}else{die"unable to truncate breadcrumb name!";
}}}$or=~s/ \t / : /gs;$np->{$on}=$or;}return$np->{$nn};}sub
ok{my$ot=shift;my$ow=shift;if($ow>0){$ow--;}if(!$ow){return
$ot;}my$ox=$aw{$z[805]}{$z[807]}x$ow;$ox.=$aw{$z[805]}{$z[808]};
$ox.=$ot;return$ox;}sub qz{my($fd,$hg,@oy)=@_;my$oz;foreach
$oz(@oy){if(defined$av{$z[244]}{$z[248]}{$fd.$oz}){$fd.=$oz;
}else{last;}}&af($fd,$hg);}sub ra{my$pa=shift;foreach(grep/^templatedir/,
sort keys%av){if(-e"$av{$_}/$pa"){return 1;}}return 0;}sub
rb{my@pb;my$cb;foreach$cb(1..3){my$pc=$ad{"sort${cb}field"};
next unless$pc;$pc="#$pc#"if$ad{"sort${cb}numeric"};$pc="-$pc"
if$ad{"sort${cb}reverse"};push@pb,$pc;}$as{$z[55]}{$z[82]}=
join($z[809],@pb);}sub az{my($pd)=$ae{$z[810]};my($ej,$pe,$pf)
=@_;my(%pg,$ph,$pi,$pj,$pk,$pl);$pe=&au($pe);$ae{$z[811]}||=
"#336699";my($pm,$pn)=(1,2);%pg=($z[812]=>[("Can't find record # $pe",
"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.",
$pm)],$z[813]=>[("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:$pe",
$pn)],$z[428]=>[("Filelock Error!","This web application uses 'file locks' to ensure than only one user can update data at a time. The program was halted while in the middle of writing/accessing data because it could not obtain a filelock. Please ask your server administrator to fix the permissions (you need read-write access on your data directory).
For your reference, the filelock error was: '$pe'.",
$pn)],$z[432]=>[($z[814],$z[815],$pn)],$z[816]=>[("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. ",
$pm)],$z[817]=>[("Publishing Error","The program cannot create or write to the file:
$pe
Please ask your server administrator to make sure the publish directory and publish file(s) are writable.",
$pn)],$z[818]=>[("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.",
$pm)],$z[819]=>[($z[820],$z[821],$pm)],$z[822]=>[("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:
$pe",
$pm)],$z[823]=>[("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:
$pe",
$pn)],$z[210]=>[("File System Error!","The program is unable to access a required file. Please contact your server administrator or technical support for assistance.
The error was: $pe",
$pn)],);my($po)=$ae{$z[824]}||$pg{$ej}[0]||"Program Message";
if($pg{$ej}[0]){$pi=$pg{$ej}[0];}elsif($pe&&$ej){$pi=&au($ej);
}else{$pi="Program Message";}$ph=$pg{$ej}[1]||$pe||&au("@_");
if(!$pg{$ej}[1]){$ph=~s/\n/
\n/g;}my$pp=$z[825]if$av{$z[826]};
$pl=qq||;$pk=qq| |;
if($pg{$ej}[2]==$pn){$pj=$pk;}else{$pj=$pl;}if(!$ENV{$z[548]})
{$ph=~s/(<.*?>)+/\n/g;print"\n\nFatal Error: $pi\n\n$ph\n\n";
exit;}if($av{$z[407]}){$ph.="
Stack Trace
";$ph
.="
";
my$cb=0;while(my($ea,$db,$em)=(caller($cb++))[1,2,3]){$ea=~
s/^.*[\/\\]//;$em=~s/^main:://;unless($em=~s/__ANON__/(anonymous)/)
{$em=$z[218].$em;}$ph.=qq!| $ea | !;
$ph.=qq! ($db) | !;
$ph.=qq! | !;
$ph.=qq! called $em | !;
$ph.=qq!\n |
!;}$ph.="
";
}if(!$av{$z[581]}++){print"Cache-Control: no-cache\nPragma: no-cache\nExpires: -1\n";
print"Content-type: text/html\n\n";}print qq|\n \n $po\n \n \n\n\n|
;if($av{$z[407]}&&$av{$z[219]}){print"";
print"$av{'debug_output'}"if($av{$z[219]});print"";
}&md();exit;}1;;%aw=&pq("$bc/config.ini");$ae{$z[811]}=$aw{$z[827]}{$z[828]}
||"#336699";$av{$z[829]}=$aw{$z[829]}||$z[830];$av{$z[428]}
=$aw{$z[428]}||$z[831];$av{$z[775]}=$aw{$z[827]}{$z[775]}||
$z[832];$av{$z[833]}=$aw{$z[827]}{$z[833]}||$z[834];$av{$z[835]}
=$aw{$z[827]}{$z[835]}||$z[344];$aw{$z[805]}{$z[806]}||=55;
$aw{$z[805]}{$z[807]}||=" ";&az("macftp")
if$z[836]ne"\xA1";&az($z[818])if$ENV{$z[837]}&&!$aw{$z[838]};
%av=(%av,$z[433]=>$bc,$z[590]=>$ba,$z[839]=>$ba,$z[840]=>$z[841],
$z[842]=>$z[843],$z[844]=>$z[845],$z[581]=>0,);foreach(qw(datadir filelock templatedir1 templatedir2 templatedir3 archive))
{if(ref($av{$_})){next;}$av{$_}="$bc/$av{$_}"if(index($av{$_},$z[493])
==0);$av{$_}=~s|\\|/|g;1 while$av{$_}=~s|/[^/]+/\.\./|/|;}&ar($as{$z[116]},
\%ad,1);if(!$ad{$z[503]}){&az($z[846]);}foreach(grep/^dir_/,
keys%ad){$ad{$_}="$av{'cgidir'}/$ad{$_}"if index($ad{$_},$z[493])
==0;$ad{$_}=~tr|\\|/|;1 while$ad{$_}=~s|/[^/]+/\.\.||;}if(!$ENV{$z[548]})
{if($ARGV[0]=~/^publish$/i){&pr();}print$z [847],"\n\n";exit;
}foreach(qw(cgidir cgiurl)){$ae{$z[534].$_}=$av{$_};}foreach
(qw(url_help reg1 reg2 reg3)){$ae{$z[534].$_}=$ad{$_};}$ae{$z[848]}
=$ad{$z[535]};$ae{$z[849]}=$ad{$z[4]};$ae{$z[850]}=$av{$z[48]};
$ae{$z[749]}=$aw{$z[516]};$ae{$z[750]}=$aw{$z[753]};$ae{$z[751]}
=$aw{$z[754]};$ae{$z[824]}=$ad{$z[4]};$ae{$z[851]}=$ad{$z[852]};
%ag=&ps;%ax=&pt;}sub ah{%at=($z[853]=>$z[854],$z[855]=>$z[856],
$z[857]=>$z[858],$z[859]=>$z[860],$z[861]=>$z[862],$z[863]=>
$z[864],);%aj=&pq("$av{'cgidir'}/../templates/syndicate/styles.ini");
$aj{$z[23]}={$z[17]=>$z[865],$z[866]=>$z[232],$z[867]=>$z[868],
$z[39]=>$z[853],$z[869]=>$z[870],$z[871]=>$z[872],$z[873]=>
$z[868],$z[874]=>$z[868],$z[875]=>$z[868],$z[40]=>$z[853],$z[876]
=>$z[877],$z[878]=>$z[879],$z[880]=>$z[868],$z[881]=>$z[868],
$z[882]=>$z[868],$z[41]=>$z[853],$z[883]=>$z[870],$z[884]=>
$z[879],$z[828]=>$z[885],};}sub al{my$pu=shift;foreach(keys
%{$pu}){if(!/\W/&&$pu->{$_}!~/\W/){$pu->{$_.$z[534].$pu->{$_}.$z[886]}
=$z[887];$pu->{$_.$z[534].$pu->{$_}.$z[888]}=$z[889];}}return
$pu;}sub ap{my%ao;foreach(keys%{$aj{$z[23]}}){$ao{$_}=$aj{$z[23]
}{$_};}if(defined$ag{$z[21]}&&$ag{$z[21]}ne$z[22]){$ao{$z[21]}
=$ag{$z[21]};foreach(keys%{$aj{$ag{$z[21]}}}){$ao{$_}=$aj{$ag{$z[21]}}{$_};
}}else{$ao{$z[21]}=$z[22];foreach(keys%{$aj{$z[23]}}){if($ag{$_})
{$ao{$_}=$ag{$_};}elsif(defined$ag{$_.$z[24]}){$ao{$_}=$ag{
$_.$z[24]};}}}foreach($z[10],$z[7],$z[890],$z[891],$z[892])
{if($ag{$_}){$ao{$_}=$ag{$_};}elsif(defined$ag{$_.$z[24]}){
$ao{$_}=$ag{$_.$z[24]};}}return%ao;}sub ak{my($en)=@_;my$pv
={};my$nf;foreach$nf(keys%$en){$pv->{$nf}=&fg($en->{$nf});}
return$pv;}
# ----------------------------------------------------------------------------
# end of file