;close(AD);close(AE);}sub
pn{my($fm)=$_[0];my($fb,$em,$fn,@fo,$fp,%ez);my($ew,$fe,$fq);
my($fr);binmode(STDIN);if($fm&&($ENV{$z[304]}||length$ENV{$z[305]})
>$fm){die($z[306]."$fm bytes\n");}($fr)=$ENV{$z[307]}=~/boundary=(?:"?)(\S+?)(?:"?)$/;
if($ENV{$z[308]}eq$z[309]&&$ENV{$z[307]}=~m|^multipart/form-data|)
{my$fp;read(STDIN,$fp,$ENV{$z[304]});foreach(split(/\n/,$fp))
{if(/^--$fr--/){$fp.="--$fr";last;}else{$fp.=$_;}}@fo=split(/--$fr/,$fp);
foreach$fn(@fo){unless($fn=~/^(\r\n|\n)Content-Disposition/)
{next;}($fb,$em)=$fn=~/^(?:\r\n|\n)(.*?)(?:\r\n|\n){2}(.*?)(?:\r\n|\n)$/s;
($fe)=$fb=~/filename="([^"]+)"/;($fb)=$fb=~/name="([^"]+)"/;
($ew)=$fe=~/([^\/\\]+)$/;($fq)=$fe=~/\.(\w+)$/;if(!$fe){$fb
=~s/\r\n/\n/g;$em=~s/\r\n/\n/g;$fb=~s/\x00//g;$em=~s/\x00//g;
}$ez{$fb}=$em;$ez{$fb.$z[310]}=$fe;$ez{$fb.$z[311]}=$ew;$ez{$fb.$z[312]}
=$fq;}}else{if($ENV{$z[308]}eq$z[309]){read(STDIN,$fp,$ENV{$z[304]});
}elsif($ENV{$z[308]}eq$z[313]){$fp=$ENV{$z[305]};}@fo=split(/&/,
$fp);foreach$fn(@fo){($fb,$em)=split(/=/,$fn);$fb=~tr/+/ /;
$em=~tr/+/ /;$fb=~s/%([A-F0-9]{2})/pack($z[231],hex($1))/egi;
$em=~s/%([A-F0-9]{2})/pack($z[231],hex($1))/egi;$fb=~s/\r\n/\n/g;
$em=~s/\r\n/\n/g;$fb=~s/\x00//g;$em=~s/\x00//g;if($fb=~/_multi$/)
{push@{$ez{$fb}},$em;}else{$ez{$fb}=$em;}}}foreach(keys%ez)
{if(/^(.*)(\.x|\.y)$/){$ez{$1}=$z[314];}}return%ez;}sub nn{
my($fs)=$_[0];my($ft,$fu)=split(/@/,$fs);if($fs eq''){return
0;}if($fs=~/[^A-Za-z0-9-_\.\@]/){return 0;}if($ft!~/^([\w\-]+[\w\-\.])*[\w\-]+$/)
{return 0;}if($fu!~/^([\w\-]+[\w\-\.])*[\w\-]+\.[A-Za-z]{2,8}$/)
{return 0;}return 1;}sub qc{my($fv,$fw)=@_;unless($fv eq$z[315]
||$fv eq$z[316]||$fv eq$z[317]||$fv eq$z[318]){return undef;
}$fw=~s/[^\d]//g;my@fx=split//,$fw;unless(($fv eq$z[315]&&$fx[0]
==4)||($fv eq$z[316]&&$fx[0]==5)||($fv eq$z[317]&&$fx[0]==3)
||($fv eq$z[318]&&$fx[0]==6)){return undef;}unless(($fv eq$z[315]
&&($#fx==12||$#fx==15))||($fv eq$z[316]&&$#fx==15)||($fv eq
$z[317]&&$#fx==14)||($fv eq$z[318]&&$#fx==15)){return undef;
}my$fy;for(my$fa=($#fx+1)% 2;$fa<=$#fx;$fa+=2){if($fx[$fa]<
5){$fx[$fa]*=2;}else{$fx[$fa]=($fx[$fa]* 2)-9}}foreach(@fx)
{$fy+=$_;}unless($fy% 10==0){return undef;}return 1;}sub gf
{local(*AB);my($ew,%ez,$fz,$ga);%ez=%{$_[1]}if$_[1];my%gb;%gb
=($z[319]=>0,$z[320]=>0,$z[321]=>0,$z[53]=>0);foreach(split(/ /,$_[2]))
{if(undef$gb{$_}){die($z[322]."'$_'\n");}$gb{$_}=1;}if(!$_[0])
{die$z[323]."\n";}if(ref($_[1])ne$z[227]){die$z[324]."\n";}
if((!$gb{$z[320]}||!$ab{$z[133]}{$z[320]}{$_[0]})){if(-e"$_[0]")
{$ew=$_[0];}else{foreach(grep/^templatedir/,sort keys%ab){if
(-e"$ab{$_}/$_[0]"){$ew="$ab{$_}/$_[0]";last;}}if(!$ew){die
$z[325]."'$_[0]'".$z[326]."\n";}}}if($gb{$z[320]}&&$ab{$z[133]}{$z[320]}{$_[0]})
{$fz=$ab{$z[133]}{$z[320]}{$_[0]};}else{open(AB,"<$ew")||die
$z[327]."$ew! $!\n";binmode(AB)if($ew=~/gif$/i||$ew=~/jpg$/i);
read(AB,$fz,-s AB);close(AB);}if($gb{$z[321]}){return$fz;}if
($gb{$z[53]}){$ab{$z[328]}||=$ENV{$z[329]};$ab{$z[328]}||die("Template: webroot isn't defined!
\n");
while($fz=~//g){my$gc=$1;if(($gc
=~m!^/!)||(!$_[3])){$gc="$ab{'webroot'}/$gc";}else{my@gd=split
$z[64],$ew;my$gd=join$z[64],@gd[0..$#gd-1];$gc="$gd/$gc";}my
$ge=&gf($gc,$_[1],$_[2],$z[330]);$fz=~s//$ge/;
}}if(!$gb{$z[320]}||!$ab{$z[133]}{$z[320]}{$_[0]}){foreach$ga
($fz=~m//g){$ab{$z[133]}{$z[134]}{$1}=$2
if($fz=~m/(?:\r\n|\n)?(.*?)/is);
}$fz=~s/(?:\r\n|\n)?(.*?)//gis;
if($gb{$z[320]}){$ab{$z[133]}{$z[320]}{$_[0]}=$fz;}}$fz=~s//$1/gi;
$fz=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$em=defined$ad{$1}
?$ad{$1}:$ez{$1};if($2 eq$z[331]){$em=&gg($em);}if($2 eq$z[332])
{$em=&gh($em);}if($2 eq$z[333]){$em=&gh($em);$em=~s/ / /g;
}if($2 eq$z[334]){$em=&gi($em);}$em;]ge;return$fz;}sub bu{if
(!$_[0]){die$z[335]."\n";}if(!defined$ab{$z[133]}{$z[134]}{$_[0]})
{die$z[336]."'$_[0]'".$z[337]."\n";}if(ref($_[1])ne"HASH"){
die$z[338]."\n";}local(*AB);my(%ez);%ez=%{$_[1]}if$_[1];my($fz)
=$ab{$z[133]}{$z[134]}{$_[0]};$fz=~s/(?:\r\n|\n)?(.*?)//gs;
$fz=~s//$1/gi;$fz=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][
my$em=defined$ad{$1}?$ad{$1}:$ez{$1};if($2 eq$z[331]){$em=&gg($em);
}if($2 eq$z[332]){$em=&gh($em);}if($2 eq$z[333]){$em=&gh($em);
$em=~s/ / /g;}if($2 eq$z[334]){$em=&gi($em);}$em;]ge;return
$fz;}sub qd{my($ag)=$_[0];my(@gj)=(($z[317]..$z[339],$z[340]..$z[341],0..9),$z[342],$z[64]);
my($ao)=unpack($z[343],$ag);$ao=~s/(\d{6}|\d+$)/$gj[ord(pack$z[343],"00$1")]/ge;
while(length($ao)%4){$ao.=$z[293];}return$ao;}sub qe{my($ag)
=$_[0];my(%gj);my($ao);my$cy;for(($z[317]..$z[339],$z[340]..$z[341],0..9),$z[342],$z[64]){
$gj{$_}=$cy++}$ag=$_[0]||return$z[344];$ag=~s/[^A-Za-z0-9+\/]//g;
$ag=~s/[A-Za-z0-9+\/]/unpack'B*',chr($gj{$&})/ge;$ag=~s/\d\d(\d{6})/$1/g;
$ag=~s/\d{8}/$ao.=pack($z[343],$&)/ge;return$ao;}sub gg{my($gk)
=$_[0];$gk=~s/([^A-Za-z0-9\*\.\@\_\-])/uc sprintf($z[345],ord($1))/egx;
$gk=~tr/ /+/;return$gk;}sub hc{my($gk)=$_[0];$gk=~tr/+/ /;$gk
=~s/%([A-F0-9]{2})/pack($z[231],hex($1))/egi;return$gk;}sub
mt{my($gl);my($fb,$em,$gm,$fe,$gn,$go)=@_;my($gp);if($fb eq
''){die($z[346]."\n");}if($gm&&$gm ne int($gm)){die($z[347]."\n");
}$ah{$fb}=$em;if($gm){my($gq,$gr,$gs,$gt,$gu,$gv,$gw,$gx)=gmtime($gm);
($gq,$gr,$gs,$gt)=map{$_<10?$z[348].$_:$_}($gq,$gr,$gs,$gt);
$gp=join('',(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[$gw],", $gt-",(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$gu],$z[240],1900+$gv,
" $gy$gz$gq GMT");}if($fb){$fb=&gg($fb);}if($em){$em=&gg($em);
}if($gm){$gl.=$z[349]."$gp; ";}if($fe){$gl.=$z[350]."$fe; ";
}if($gn){$gl.=$z[351]."$gn; ";}if($go){$gl.=$z[352];}print$z
[353]."$fb=$em; $gl\n";}sub po{my($ha,$fb,$em,%hb);foreach$ha
(split(/; /,$ENV{$z[354]})){($fb,$em)=split(/=/,$ha);foreach($fb,$em)
{$_=&hc($_);}$hb{$fb}=$em;}return%hb;}sub as{my$hd=$_[0]||die("DateString: The first parameter must be a date or time format string\n");
$hd=~/\%/||die("DateString: The first parameter must contain a date format marker '%'\n");
my$he=$_[1];my($gv,$gu,$gt,$hf,$gr,$gq,$gw,$gx);my@hg=(0,0,1,0,0,0);
my$hh=$_[-1]=~/^GMT$/i;pop(@_)if$hh;if(scalar(@_)>=3){die("DateString: Too many arguments\n")
if scalar(@_)>7;my$hi;foreach$hi(1..scalar(@_)-1){$hg[$hi-1]
=$_[$hi];}($gv,$gu,$gt,$hf,$gr,$gq)=@hg;if($gt>28){($gv,$gu,
$gt)=&hj($gv,$gu,$gt);}$he=$hh?&hk($gq,$gr,$hf,$gt,$gu,$gv)
:&hl($gq,$gr,$hf,$gt,$gu,$gv);}else{}($gq,$gr,$hf,$gt,$gu,$gv,
$gw,$gx)=($hh?gmtime($he):localtime($he));my$hm;if(exists($ab{DateString}{rhNames}))
{$hm=$ab{DateString}{rhNames};}else{$hm={$z[92]=>exists($af{$z[355]}{ampm})
?[split(/,/,$af{$z[355]}{ampm})]:[qw(AM PM)],$z[356]=>exists($af{$z[355]}{ordinals})
?[split(/,/,$af{$z[355]}{ordinals})]:[$z[357],$z[358],$z[359],
$z[360],$z[361],$z[362],$z[363],$z[364],$z[365],$z[366],$z[367],
$z[368],$z[369],$z[370],$z[371],$z[372],$z[373],$z[374],$z[375],
$z[376],$z[377],$z[378],$z[379],$z[380],$z[381],$z[382],$z[383],
$z[384],$z[385],$z[386],$z[387],$z[388]],$z[389]=>exists($af{$z[355]}{week_full})
?[split(/,/,$af{$z[355]}{week_full})]:[qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)],
$z[390]=>exists($af{$z[355]}{week_abbr})?[split(/,/,$af{$z[355]}{week_abbr})]
:[qw(Sun Mon Tue Wed Thu Fri Sat)],$z[391]=>exists($af{$z[355]}{month_full})
?[split(/,/,$af{$z[355]}{month_full})]:[qw(January February March April May June July August September October November December)],
$z[392]=>exists($af{$z[355]}{month_abbr})?[split(/,/,$af{$z[355]}{month_abbr})]
:[qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)],};$ab{DateString}{rhNames}
=$hm;}my($hn,$ho)=(0,1);my$hp={$z[393]=>$z[393],$z[340]=>$hm->{week_abbr}[$gw],
$z[317]=>$hm->{week_full}[$gw],$z[394]=>$hm->{month_abbr}[$gu],
$z[395]=>$hm->{month_full}[$gu],$z[396]=>$z[397],$z[231]=>$z[398],
$z[399]=>sprintf($z[400],$gt),$z[318]=>$z[401],$z[402]=>sprintf($z[403],
$gt),$z[404]=>$hm->{month_abbr}[$gu],$z[405]=>sprintf($z[400],
$hf),$z[406]=>sprintf($z[400],$hf% 12||12),$z[407]=>sprintf($z[408],$gx
+1),$z[409]=>sprintf($z[403],$hf),$z[410]=>sprintf($z[403],
$hf% 12||12),$z[411]=>sprintf($z[400],$gu+1),$z[316]=>sprintf($z[400],
$gr),$z[239]=>"\n",$z[412]=>$hm->{ordinals}[$gt],$z[413]=>$hm->{ampm}[$hf
>=12?1:0],$z[414]=>lc($hm->{ampm}[$hf>=12?1:0]),$z[415]=>int($gu
/3)+1,$z[416]=>$z[417],$z[418]=>$z[419],$z[420]=>$he,$z[421]
=>sprintf($z[400],$gq),$z[422]=>"\t",$z[423]=>$z[424],$z[425]
=>&hq($hn,$gw,$gx),$z[426]=>$gw,$z[427]=>&hq($ho,$gw,$gx),$z[428]
=>$z[401],$z[429]=>$z[424],$z[430]=>sprintf($z[400],$gv% 100),
$z[431]=>sprintf($z[432],$gv+1900),$z[339]=>'',$z[341]=>'',
};$hd=&hr($hp,$hd);return$hd;}sub hr{my($hp,$hd)=@_;$hd=~s/%(O?[%a-zA-Z])/&hs($hp,
$1)/sgeox;return$hd;}sub hs{my$ht=$_[1];return(exists($_[0]->{$ht}))
?($_[0]->{$ht}=~/\%/&&$ht ne$z[393]?&hr($_[0],$_[0]->{$ht})
:$_[0]->{$ht}):"\%$ht";}sub hq{my($hu,$gw,$gx)=@_;$gw=($gw+
7-$hu)% 7;return int(($gx-$gw+13)/7-1);}sub hj{my($gv,$gu,$hv)
=@_;return@_ if$hv<=28;my$hw;if($gu==1){if(($gv% 4==0)&&(!($gv
% 100==0)||($gv% 400==0))){$hw=29;}else{$hw=28;}}elsif($gu==
3||$gu==5||$gu==8||$gu==10){$hw=30;}else{$hw=31;}return($gv,
$gu,$hv<$hw?$hv:$hw);}sub qf{my$hx=$_[0];my$hy=$_[1]||die("DateString: The second argument must time()\n");
my$AF=$_[2];if($hy ne int($hy)){die($z[433]."\n");}my($gq,$gr,$gs,$hv,$gu,$gv,$gw);
if($AF){($gq,$gr,$gs,$hv,$gu,$gv,$gw)=gmtime($hy);}else{($gq,$gr,$gs,$hv,$gu,$gv,$gw)
=localtime($hy);}if($hy=~tr/://){($gv,$gu,$hv,$gs,$gr,$gq,$gw)
=split(/:/,$hy);$gv-=1900;$gu-=1;foreach($gv,$gu,$hv,$gs,$gr,$gq,$gw)
{$_||=0;}}my(%gw,%hz,%gu,%ia);my@gu=($z[434],$z[435],$z[436],$z[437],$z[438],$z[439],$z[440],$z[441],$z[442],$z[443],$z[444],$z[445]);
my@ia=($z[446],$z[447],$z[448],$z[449],$z[438],$z[450],$z[451],$z[452],$z[453],$z[454],$z[455],$z[456]);
my@gw=($z[457],$z[458],$z[459],$z[460],$z[461],$z[462],$z[463]);
my@hz=($z[464],$z[465],$z[466],$z[467],$z[468],$z[469],$z[470]);
foreach(@gw){$gw{lc$_}++;}foreach(@hz){$hz{lc$_}++;}foreach
(@gu){$gu{lc$_}++;}foreach(@ia){$ia{lc$_}++;}$hx=~s/\b[A-Za-z]{3,9}\b/
if($gw{lc$&}){if(uc($&)eq$&){uc$gw[$gw];}elsif(lc($&)eq$&){
lc$gw[$gw];}else{ucfirst lc$gw[$gw];}}elsif($hz{lc$&}){if(uc($&)
eq$&){uc$hz[$gw];}elsif(lc($&)eq$&){lc$hz[$gw];}else{ucfirst
lc$hz[$gw];}}elsif($gu{lc$&}){if(uc($&)eq$&){uc$gu[$gu];}elsif
(lc($&)eq$&){lc$gu[$gu];}else{ucfirst lc$gu[$gu];}}elsif($ia{lc
$&}){if(uc($&)eq$&){uc$ia[$gu];}elsif(lc($&)eq$&){lc$ia[$gu];
}else{ucfirst lc$ia[$gu];}}else{$&;}/ge;$hx=~s/\d{1,4}\b/if
(length$&==4){$gv+1900;}elsif(length$&<=2){if(substr($&,0,1)
eq 0){sprintf($z[400],$hv);}else{$hv;}}else{$&;}/ge;$hx=~s/(\d{1,2})(st|nd|rd|th)/
if($hv==1||$hv==21||$hv==31){$hv.$z[471];}elsif($hv==2||$hv
==22){$hv.$z[472];}elsif($hv==3||$hv==23){$hv.$z[473];}else
{$hv.$z[474];}/gei;$hx=~s/YYYY/sprintf($z[432],$gv+1900)/gei;
$hx=~s/YY/sprintf($z[400],$gv%100)/gei;$hx=~s/MO\b/sprintf($z[400],$gu+1)/gei;
$hx=~s/DD/sprintf($z[400],$hv)/gei;$hx=~s/SS/sprintf($z[400],$gq)/gei;
$hx=~s/MM/sprintf($z[400],$gr)/gei;$hx=~s/HH/sprintf($z[400],$gs)/gei;
return$hx;}sub dc{my($ib,$db,$arrayref_nopack)=@_;my(@f_nopack,$da,$ic,
$id,$ie,$cy);my($cw,$cx);$cy=0;foreach(split(/ /,$db)){if(s/\#//g)
{$cw=1;}elsif(s/n//g){$cw=1;}else{$cw=0;}if(s/\-//g){$cx=$z[475];
}elsif(s/\+//g){$cx='';}else{$cx='';}s/[^0-9]//gs;push(@f_nopack,$_);
if($cw){$da+=15;$id.=$z[476];$ie.=qq|$cx sprintf('%015s',int(substr(\$str[$cy]*100,0,15))),|;
}else{$da+=50;$id.=$z[477];$ie.="$cx substr(\$str[$cy],0,50),";
}$cy++;}$ic.=qq|return map { substr(\$_,$da) } sort map {\n|;
$ic.=qq| my \@str = (split(/\\$ib/,lc \$_))[\@f_nopack];\n|;
$ic.=qq| sprintf("$id\%s" ,$ie\$_);\n|;$ic.=qq| } \@\$arrayref_nopack;\n|;
eval$ic;}sub gi{my$ig=shift;$ig=~s/\\/\\\\/g;$ig=~s/'/\\'/g;
$ig=~s/\n/\\n/g;$ig=~s/\r/\\r/g;$ig=~s/\000//g;$ig=~s/-->/--'+'>/g;
$ig=~s!!!g;return$ig;}sub fj{my$ih=shift;
$ih=~s/&/&/g;$ih=~s/"/"/g;$ih=~s//>/g;
return$ih;}sub gh{my$ih=shift;$ih=~s/&([^\w#]|$)/&$1/g;
$ih=~s/"/"/g;$ih=~s//>/g;return$ih;
}sub qg{my$ih=shift;$ih=~s//>/g;return$ih;
}sub bw{my$ii=shift;my%ij=map{$_,1}@_;return join($z[300],map
{$ij{$_}?():&gg($_).$z[293].&gg($ii->{$_})}keys%{$ii});}sub
qh{my$ii=shift;my%ij=map{$_,1}@_;return join("\n",map{$ij{$_}
?():$z[478].&fj($_).$z[479].&fj($ii->{$_}).$z[49]}keys%{$ii});
}sub mq{$_=$_[0];/\.gif$/i&&return(&ik($_[0]));(/\.jpeg$/i||
/\.jpg$/i)&&return(&il($_[0]));/\.png$/i&&return(&im($_[0]));
undef;}sub im{my($in)=@_;my($io);open(PNG,$in)||return(undef,
undef,"PNG - Couldn't Open $in");binmode(PNG);seek(PNG,12,0);
read(PNG,$io,4);if($io ne"IHDR"){close PNG;return(undef,undef,
"PNG - Missing Image Header - $io");}read(PNG,$io,8);close
PNG;return unpack("NN",$io);}sub il{my($in)=@_;my($io,$ip,$iq,
$ir,$is);open(JPEG,$in)||return(undef,undef,"JPEG - Couldn't Open $in");
binmode(JPEG);read(JPEG,$io,2);while(1){read(JPEG,$ip,4);($iq,
$ir,$is)=unpack("a a n",$ip);if($iq ne"\xFF"){close JPEG;return(undef,
undef,"JPEG - Marker not Found");}if((ord($ir)>=0xC0)&&(ord($ir)
<=0xC3)){read(JPEG,$io,5);close(JPEG);my($it,$iu)=unpack("xnn",
$io);return($iu,$it);}else{read(JPEG,$io,$is-2);}}}sub jc{my
($iv,$iw)=@_;my($ix);read($iv,$ix,$iw);while(1){if(eof($iv))
{close AG;return(undef);}read($iv,$ix,1);last if ord($ix)==
0;read($iv,$ix,ord($ix));}1;}sub ik{my($in)=@_;my($io,$ff,$iy,
$iz,$iu,$ja,$it,$jb);open(AG,$in)||return(undef,undef,"GIF - Couldn't Open $in");
binmode(AG);read(AG,$ff,6);read(AG,$io,7);if(length($io)!=7)
{close AG;return(undef,undef,"GIF - Corrupted Header");}($iu)
=unpack("x4 C",$io);if($iu&0x80){$iy=3*(2**(($iu&0x07)+1));
read(AG,$iz,$iy);if(!$iz){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,$io,1);($iu)=unpack("C",$io);if($iu==0x2c){read(AG,
$io,8);if(length($io)!=8){close AG;return(undef,undef,"GIF - Missing Image Header");
}($iu,$ja,$it,$jb)=unpack("x4 C4",$io);close(AG);return($iu
+$ja* 256,$it+$jb* 256);}if($iu==0x21){read(AG,$io,1);($iu)
=unpack("C",$io);if($iu==0xF9){read(AG,$io,6);}elsif($iu==0xFE)
{&jc(\*AG,0)||return(undef,undef,"GIF - Bad Block - skip=0");
}elsif($iu==0x01){&jc(\*AG,13)||return(undef,undef,"GIF - Bad Block - skip=13");
}elsif($iu==0xFF){&jc(\*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 qi{return($_[0]=~/(.+)/s)[0]||$_[0];}sub qj{my$jd;foreach
(split/\n/,shift){s!\\!\\\\!g;s!\"!\\\"!g;s!$jj){$bs=1;}push(@{$jh[$bs]},$_);}if(defined$jg){
foreach(0..$#jh){while(scalar@{$jh[$_]}<$jf){push(@{$jh[$_]},
$jg);}}}shift@jh;return@jh;}sub na{my($jk,%jl,$AH);$jk=$_[0];
%jl=%{$_[1]};$AH="\x0D\x0A";local(*AI);if(!defined&jm){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_parseheader'\n");
}if(!defined&jn){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_debug'\n");
}if(!defined&jo){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_readline'\n");
}if(!defined&jp){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_pop3auth'\n");
}if(!defined&jq){die("SMTP_sendmail: Couldn't find required subroutine 'FH_readline'\n");
}if(!defined&jr){die("SMTP_sendmail: Couldn't find required subroutine 'FH_can_read'\n");
}foreach(keys%{$ab{$z[480]}}){defined$jl{$_}&&next;$jl{$_}=
$ab{$z[480]}{$_};}my($fu,$js,$jt,$ju,$et);$fu=$jl{$z[481]};
$js=$jl{$z[482]}||25;$jt=$jl{$z[483]}||$z[484];$ju=$jl{$z[485]}
||30;$et=$jl{$z[486]}||0;$ju+=time()if$ju<10**8&&$ju>0;if($fu
=~s/:(\d+)//){$js=$1;}if(!$fu){$ab{$z[487]}="No SMTP host specified.\n";
return 0;}if(!$js){$ab{$z[487]}="No SMTP port specified.\n";
return 0;}my($jv,@jw)=&jm($jk);$jk=~tr/\r//d;$jk=~s/\n/\r\n/gs;
$jk=~s/^\s*bcc\s*:.*\n//mgi;if($jl{$z[488]}){&jp(\%jl)||return
0;}my($jx)=gethostbyname($fu)||do{$ab{$z[487]}="Could not connect to SMTP server. Unknown host $fu\n";
return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$ab{$z[487]}
="Could not connect to SMTP server. No Socket: $!\n";return
0;};connect(AI,pack"SnA4x8",PF_INET,$js,$jx)||do{if($!eq"Unknown error")
{$ab{$z[487]}="Could not connect to SMTP server. SMTP server does not exist or is not responding.\n";
return 0;}else{$ab{$z[487]}="Could not connect to SMTP server. Connect failed: $!\n";
return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$jy
=&jo(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"220"){$ab{$z[487]}
="An unknown error occured. Server response: $jy\n";return
0;}print AI"HELO $jt",$AH;if($et){&jn("HELO $jt",$AH);}$jy=
&jo(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"250"){$ab{$z[487]}
="An unknown error occured. Server response: $jy\n";return
0;}print AI"MAIL FROM:<$jv>",$AH;if($et){&jn("MAIL FROM:<$jv>",
$AH);}$jy=&jo(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"250"){$ab{$z[487]}
="An unknown error occured. Server response: $jy\n";return
0;}my$jw;foreach$jw(@jw){print AI"RCPT TO:<$jw>",$AH;if($et)
{&jn("RCPT TO:<$jw>",$AH);}$jy=&jo(\*AI,$ju)||do{$ab{$z[487]}
="Timed out waiting for SMTP server to respond.\n";return 0;
};if($et){&jn($jy);}if(substr($jy,0,2)eq"55"){$ab{$z[487]}=
"The server won't accept mail for '$jw'. Server response: $jy\n";
return 0;}if(substr($jy,0,2)ne"25"){$ab{$z[487]}="An unknown error occured. Server response: $jy\n";
return 0;}}print AI"DATA",$AH;if($et){&jn("DATA",$AH);}$jy=
&jo(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"354"){$ab{$z[487]}
="An unknown error occured. Server response: $jy\n";return
0;}$jk=~s/^\./\.\./gm;print AI$jk,$AH;if($et){&jn($jk,$AH);
}print AI".",$AH;if($et){&jn(".",$AH);}$jy=&jo(\*AI,$ju)||do
{$ab{$z[487]}="Timed out waiting for SMTP server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"250"){$ab{$z[487]}
="An unknown error occured. Server response: $jy\n";return
0;}print AI"QUIT",$AH;if($et){&jn("QUIT",$AH);}close(AI);return
1;}sub jm{my($jk,$bn,$jz,$ka,$dz);$jk=$_[0];$jk=~tr/\r//d;$bn
=$z[489];$bn.=$z[490];if($jk=~m/^(.*?)\n\n(.*)$/s){($jz,$ka)
=($1,$2);}else{die("SMTP_parseheader: couldn't find email header!\n");
}my($jv,@jw);foreach$dz(split(/\n/,$jz)){foreach(qw(from to cc bcc))
{if($dz=~/^\s*$_\s*:/i){my$kb=$_;foreach($dz=~m/($bn)/g){if
($kb eq$z[491]){$jv=$_;}else{push@jw,$_;}}}}}$jv||die("SMTP_parseheader: couldn't find from: address in mail header\n");
$#jw>=0||die("SMTP_parseheader: couldn't find to: address in mail header\n");
return($jv,@jw);}sub jo{my$AJ=$_[0];my$ju=int($_[1]);if(!$ju)
{die("SMTP_readline: no timeout value specified!\n");}if($ju
<10**8){die("SMTP_readline: timeout value must be in time() format!\n");
}fileno($AJ)||die("SMTP_readline: invalid filehandle or filehandle not open!\n");
my($dz,$kc);while(!$dz||substr($dz,3,1)eq$z[240]){$dz=&jq($AJ,$ju);
$kc.=$dz;}return$kc;}sub jn{my$eu=join'',@_;$eu=~s/\s+$//m;
my$kd=localtime();local*AK;if(!$eu){$kd="";$eu="\n";}if($eu
=~/^From:/i){$eu="[email content]";}if($eu=~/^PASS /i){$eu=
"PASS (not shown)";}$eu=~s//>/g;$eu=~s/\r\n|\n/
\n/g;
print"$eu
\n\n";}sub jp{my($jk,%jl,$AH);%jl=%{$_[0]};
$AH="\x0D\x0A";local(*AI);if(!$jl{$z[492]}){die("SMTP_pop3auth: POP3 username not defined'\n");
}if(!$jl{$z[493]}){die("SMTP_pop3auth: POP3 password not defined'\n");
}if($ab{$z[494]}{$z[495]}){return 1;}my($fu,$js,$ft,$ke,$ju,$et);
$fu=$jl{$z[496]}||$jl{$z[481]};$js=$jl{$z[497]}||110;$ft=$jl{$z[492]};
$ke=$jl{$z[493]};$ju=$jl{$z[498]}||$jl{$z[485]}||30;$et=$jl{$z[486]}
||0;$ju+=time()if$ju<10**8&&$ju>0;if($fu=~s/:(\d+)//){$js=$1;
}my($jx)=gethostbyname($fu)||do{$ab{$z[487]}="Could not connect to POP3 server. Unknown host $fu\n";
return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$ab{$z[487]}
="Could not connect to POP3 server. No Socket: $!\n";return
0;};connect(AI,pack"SnA4x8",PF_INET,$js,$jx)||do{if($!eq"Unknown error")
{$ab{$z[487]}="Could not connect to POP3 server. POP3 server does not exist or is not responding.\n";
return 0;}else{$ab{$z[487]}="Could not connect to POP3 server. Connect failed: $!\n";
return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$jy
=&jq(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($et){&jn($jy);}if(uc(substr($jy,0,3))ne"+OK")
{$ab{$z[487]}="An unknown error occured. Server response: $jy\n";
return 0;}print AI"USER $ft",$AH;if($et){&jn("USER $ft",$AH);
}$jy=&jq(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"+OK"){$ab{$z[487]}
="The server didn't accept the login info for '$ft'. Server response: $jy\n";
return 0;}print AI"PASS $ke",$AH;if($et){&jn("PASS $ke",$AH);
}$jy=&jq(\*AI,$ju)||do{$ab{$z[487]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($et){&jn($jy);}if(substr($jy,0,3)ne"+OK"){$ab{$z[487]}
="The server didn't accept the login info for '$ft'. Server response: $jy\n";
return 0;}print AI"QUIT",$AH;if($et){&jn("QUIT",$AH);}close(AI);
$ab{$z[494]}{$z[495]}=1;return 1;}sub jr{my$AJ=$_[0];my$ju=
$_[1]||$z[348];my($kf,$kg,$kh,$ki,$kj,$kk,$kl);fileno($AJ)||
die("fh_can_read: invalid filehandle or filehandle not open!\n");
vec($kf,fileno($AJ),1)=1;$kl=select($kg=$kf,undef,undef,$ju);
return vec($kg,fileno($AJ),1);}sub jq{my$AJ=$_[0];my$ju=int($_[1]);
if(!$ju){die("FH_readline: no timeout value specified!\n");
}if($ju<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($dz,$km);while($ju>=time()){&jr(\*AI,0.25)||next;sysread(\*AI,$km,
1)||last;$dz.=$km;if($km eq"\x0A"){last;}}return$dz;}sub kw
{my$kn=$ab{$z[499]}{$z[500]}||={};my$ko=int++$kn->{$z[48]};
my$fb="FH$ko";return eval"local *$fb";}sub ee{return unless
($af{$z[501]});my$kn=$ab{$z[499]}{$z[502]}||={};$kn->{$z[503]}
||=[];my($kp,$ju)=@_;$kp||=$z[265];$ju||=0;if($kp ne$z[265]
and$kp ne$z[504]){&ak("lock: invalid lock type: '$kp'");}my
$kq;if(@{$kn->{$z[503]}}>0){$kq=$kn->{$z[503]}[-1];}if($kq
eq$z[265]){$kp=$kq;}if($kq eq$kp){push(@{$kn->{$z[503]}},$kp);
return 1;}my$kr;if($kq eq$z[504]and$kp eq$z[265]){&ak("lock: cannot upgrade a 'shared' lock to an 'exclusive' lock");
}$kr=&ks('',$kp,$ju);if($kr){push(@{$kn->{$z[503]}},$kp);}return
$kr;}sub ef{return unless($af{$z[501]});my$kn=$ab{$z[499]}{$z[502]}
||={};$kn->{$z[503]}||=[];my($ju)=@_;$ju||=0;unless(@{$kn->{$z[503]}}
>0){&ak($z[505])}my$kq=pop(@{$kn->{$z[503]}});return if(@{$kn->{$z[503]}}
>0 and$kn->{$z[503]}[-1]eq$kq);if(@{$kn->{$z[503]}}==0){&kt('');
}}sub ks{my$kn=$ab{$z[499]}{$z[502]}||={};my($ku,$kp,$ju)=@_;
my$kv;if($ku){$kv="$ab{'datadir'}$ku.lock";}else{$kv=$ab{$z[506]};
}if(not exists$kn->{$z[507]}{$ku}){$kn->{$z[507]}{$ku}{$z[105]}
=$kv;$kn->{$z[507]}{$ku}{$z[508]}=&kw();sysopen($kn->{$z[507]}{$ku}{$z[508]},
$kn->{$z[507]}{$ku}{$z[105]},O_RDONLY|O_CREAT)||&ak($z[506],"error opening $kp file lock $kn->{'lockinfo'}{$ku}{'filename'}: $!\n");
}else{&ak("_lock_flock: already a lock for semaphore '$ku'");
}my$kx;if($kp eq$z[504]){$kx=LOCK_SH;}if($kp eq$z[265]){$kx
=LOCK_EX;}if($ju>0){$kx|=LOCK_NB;}my$ky=time()+$ju;until(flock($kn->{$z[507]}{$ku}{$z[508]},
$kx)){if(time()<$ky){sleep(1);}else{close($kn->{$z[507]}{$ku}{$z[508]});
&ak($z[509]);}}return 1;}sub kt{my$kn=$ab{$z[499]}{$z[502]}
||={};my($ku)=@_;unless(flock($kn->{$z[507]}{$ku}{$z[508]},
LOCK_UN)){&ak($z[506],"error releasing a flock() on file lock $kn->{'lockinfo'}{$ku}{'filename'}: $!\n");
}unless(close($kn->{$z[507]}{$ku}{$z[508]})){&ak($z[506],"error closing file lock $kn->{'lockinfo'}{$ku}{'filename'}: $!\n");
}delete$kn->{$z[507]}{$ku};return 1;}sub ql{my$fe=shift;$fe
=~s|\\|/|g;if($fe=~m|^/|){return$fe;}if($fe=~m|^\w:/|){return
$fe;}return&kz($ab{$z[510]}.$z[64].$fe);}sub kz{my$fe=shift;
$fe=~s|\\|/|g;1 while$fe=~s|[^/]*/\.\./||;return$fe;}sub qm
{my($la,@jl)=@_;$la=~s/\s+//g;$la=uc$la;my$lb;my$ld=-1;my$le;
foreach$le(split(/,/,$la)){$ld++;my$lf=shift@jl;my$lg=$le=~
s/\[|\]//g;if($le eq$z[511]){@jl=();last;}next if($lg and not
defined$lf);next if($le eq$z[512]and defined$lf);next if($le
=~/\bVALUE\b/and not ref($lf)and defined($lf));next if(uc(ref
$lf)=~/\b$le\b/);next if($le=~/\bINT\b/and$lf!~/[^0-9\.\e\-]/i
and$lf==int($lf));$lb.=", "if$lb;$lb.="\$_[$ld] must be ";$lb
.="either "if$lg;$lb.=$le;$lb.=" or undefined"if$lg;$lb.=" ARG: $lf.";
}if(@jl){$ld++;$lb.=", "if$lb;$lb.="extra argument(s) \@_["
.($ld)." .. ".($ld+$#jl)."]";}return 1unless$lb;my$fi=(caller(1))[3];
$fi=~s/^main:://;&ak("Invalid arguments passed to $fi".": $lb");
}1;;sub lp{my($lh,$li)=@_;foreach(@{$lh->{$z[172]}}){my($lj,
$fi)=@{$_};if(!defined&{$fi}&&!defined&{$ab{$z[513]}{$lj}})
{die("The action '$lj' defined as a handler for db '$lh->{'name'}' does not have a custom handler or a default handler");
}if((!$li&&$ag{$lh->{$z[50]}.$z[514].$lj})||$li eq$lj){if(defined
&{$fi}){&{$fi}($lh);exit;}else{&{$ab{$z[513]}{$lj}}($lh);exit;
}}}if($li){die"Unable to execute forced action '$li' on db '$lh->{'name'}'";
}}sub qn{my$lh=shift;my$ao=&lk($lh);&ll($lh,$ao);}sub qo{my
$lh=shift;my$ao=&lm($lh);&ln($lh,$ao);&lo($z[515],$ao);exit;
}sub qp{my$lh=shift;if(!$ac{$z[516]}){&lp($lh,$z[173]);}my$ao
=&lq($lh);&lo($z[516],$ao);exit;}sub qs{my$lh=shift;my$ao=&lr($lh);
&ls($lh,$ao);}sub qt{my$lh=shift;&co;my$lt=&lu($lh);my$lv=&lw($lh,
$lt);&lx($lh,$lt);&ly($lh,$lt);&cq;&lz($lh,$lv);&ma($lh);}sub
qu{my$lh=shift;my($dg,$dh);my$mb={$z[57]=>$af{$z[517]}{$z[57]},
$z[518]=>1,$z[82]=>'',};$mb=&mc($lh,$mb);foreach(split(/\s+/,$lh->{$z[79]}))
{push(@$dh,[$_,$z[269],$mb->{$z[82]}]);}my$ap=sub{my$md=shift;
if(!defined$md->{$z[519]}&&$md->{$z[19]}){my$hy=&hl(0,0,0,$md->{$z[20]},$md->{$z[19]}-1,$md->{$z[18]});
$md->{$z[519]}=&as($ab{$z[96]},$hy);}$md->{$z[520]}=&as($ab{$z[40]},int($md->{$z[520]}))
if$md->{$z[520]};$md->{$z[66]}=&as($ab{$z[40]},int($md->{$z[66]}))
if$md->{$z[66]};$ad{$z[521]}=$ad{$z[521]}eq$z[522]?$z[523]:
$z[522];return&bu($z[122],$md);};my$ao=&me($lh,$ap,$mb,$dg,
$dh);&mf($ao);}sub lk{my$lh=shift;$ad{$z[524]}=$lh->{$z[145]};
$ad{$z[525]}=$lh->{$z[50]};&gf($lh->{$z[147]},{});my($ao)={};
if($lh->{$z[526]}&&&mg($lh)>=$lh->{$z[526]}){&lo($z[527],$lh);
}my($hv,$gu,$gv)=(localtime(&at($^T)))[3,4,5];$gu++;$gv+=1900;
$ao->{"day_$hv".$z[528]}=$z[529];$ao->{"mon_$gu".$z[528]}=$z[529];
$ao->{"year_$gv".$z[528]}=$z[529];foreach(split(/ /,$lh->{$z[74]}))
{if(/^ufile/&&!$ao->{$_}){$ao->{$_}=$z[530];}}$ao->{$z[520]}
=&as($ab{$z[40]},&at($^T));$ao->{$z[66]}=&as($ab{$z[40]},&at($^T));
$ao->{$z[531]}=$ai{$z[50]}||"unknown user";$ao->{$z[532]}=$ai{$z[50]}
||"unknown user";return$ao;}sub ll{my($lh,$ao)=@_;if($ab{$z[133]}{$z[134]}{$z[533]})
{&lo($z[533],$ao);}else{&lo($z[515],$ao);}exit;}sub lm{my$lh
=shift;$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}=$lh->{$z[50]};
&gf($lh->{$z[147]},{});my($ko)=int$ag{$lh->{$z[50]}.$z[534]};
my$ao={};&mh($lh,$ao,$ko)||&ak($z[535],$ko);return$ao;}sub
ln{my($lh,$ao)=@_;foreach(split(/ /,$lh->{$z[74]})){if(/^ufile/
&&!$ao->{$_}){$ao->{$_}=$z[530];}}foreach(keys%{$ao}){$ao->{$_}
=~s/\&/&/g;$ao->{$_}=~s/\"/"/g;$ao->{$_}=~s/\{$_}=~s/\>/>/g;}foreach(keys%{$ao}){if(!/\W/&&$ao->{$_}
!~/\W/){$ao->{$_.$z[514].$ao->{$_}.$z[536]}=$z[537];$ao->{$_.$z[514].$ao->{$_}.$z[528]}
=$z[529];}}$ao->{$z[520]}=&as($ab{$z[40]},&at($ao->{$z[520]}))
if$ao->{$z[520]};$ao->{$z[66]}=&as($ab{$z[40]},&at($ao->{$z[66]}))
if$ao->{$z[66]};my%mi;&mh($ae{$z[193]},\%mi,$ao->{$z[531]})
if$ao->{$z[531]};$ao->{$z[531]}=$mi{$z[50]}||"unknown user";
&mh($ae{$z[193]},\%mi,$ao->{$z[532]})if$ao->{$z[532]};$ao->{$z[532]}
=$mi{$z[50]}||"unknown user";return$ao;}sub lq{my$lh=shift;
$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}=$lh->{$z[50]};&gf($lh->{$z[147]},
{});my($ko)=int($ag{$lh->{$z[50]}.$z[538]})||int($ag{$z[48]});
my($ao)={};&mh($lh,$ao,$ko)||&ak($z[535],$ko);return$ao;}sub
lr{my$lh=shift;$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}=$lh->{$z[50]};
&gf($lh->{$z[147]},{});my($ko)=$ag{$z[48]}||$ag{$lh->{$z[50]}.$z[538]};
my$ao={};&co();&mh($lh,$ao,$ko)||&ak($z[535],$ko);&mj($lh,$ko)
||die($z[539].$ko);&cq();foreach(split(/ /,$lh->{$z[74]})){
if(/^ufile/&&$ao->{$_}){if(-e"$ac{'dir_upload'}/$ao->{$_}")
{unlink("$ac{'dir_upload'}/$ao->{$_}");}}}if(defined&{$lh->{$z[171]}})
{&{$lh->{$z[171]}}($ko,$z[173],$ao);}return$ao;}sub ls{my($lh,
$ao)=@_;if(!$ac{$z[540]}){&lp($lh,$z[174]);}&lo($z[541],$ao);
exit;}sub lu{my$lh=shift;$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}
=$lh->{$z[50]};&gf($lh->{$z[147]},{});my($ko)=int($ag{$z[48]});
my$lt={};if($lh->{$z[526]}){my($bj)=&mg($lh);if($ko&&$bj>$lh->{$z[526]})
{&lo($z[527],$lh);}elsif(!$ko&&$bj>=$lh->{$z[526]}){&lo($z[527],$lh);
}}if($ko){&mh($lh,$lt,$ko)||die("ui_save : Can't find record #$ko");
}return($lt);}sub lw{my($md)=$_[0]->{$z[50]}||die($z[542]);
my($ko)=int($ag{$z[48]});my(%md)=%{$_[1]||{}};my(%ew,%fq,$ek,%lv,%ao);
if(!$ac{$z[543]}){die("ui_save_uploads: No upload directory has been defined in setup options!\n");
}if(!-d$ac{$z[543]}){die("ui_save_uploads: Upload directory '$ac{'dir_upload'}' doesn't exist!\n");
}if(!-w$ac{$z[543]}){die("ui_save_uploads: Upload directory isn't writable!\n");
}%ew=&az($ac{$z[543]});foreach(split(/ |\,/,$ac{$z[544]})){
$fq{$_}++if$_;}foreach$ek(split(/ /,$_[0]->{$z[74]})){if($ek
!~/^ufile/){next;}if($ag{$ek}){if($ac{$z[545]}&&length($ag{$ek})
>$ac{$z[546]}*1000){my$mk=length($ag{$ek});$lv{$z[547]}.=qq|$ag{$ek."_file"} ($mk bytes, file too large)
\n|;
$ag{$ek}=$md{$ek};next;}if(!$fq{lc$ag{$ek.$z[312]}}){$lv{$z[547]}
.=qq|$ag{$ek."_file"} ('$ag{$ek.'_ext'}' files not accepted)
\n|;
$ag{$ek}=$md{$ek};next;}if($md{$ek}&&$ew{$md{$ek}}){unlink("$ac{'dir_upload'}/$md{$ek}");
}my($ml);my($mm)=lc$ag{$ek.$z[311]};my($mn)=lc$ag{$ek.$z[312]};
my($mo)=$z[548];$mm=~s/\.[^\.]*$//g;$mm=~s/[^a-z0-9_\-]/_/g;
$mn=~s/[^a-z0-9_\-]/_/g;$ml="$mm.$mn";if(-e"$ac{'dir_upload'}/$ml")
{do{$mo=sprintf($z[408],++$mo);$ml=$mm."_$mo.$mn";}while(-e
"$ac{'dir_upload'}/$ml");}open(AB,">$ac{'dir_upload'}/$ml")
||die($z[549]."$ml $!\n");binmode AB;print AB$ag{$ek};close(AB);
if($ml=~/\.(gif|jpg|jpeg|png)$/i){my($ja,$jb,$mp)=&mq("$ac{'dir_upload'}/$ml");
if(($ac{$z[550]}&&$jb>$ac{$z[550]})||($ac{$z[551]}&&$ja>$ac{$z[551]}))
{unlink("$ac{'dir_upload'}/$ml");$lv{$z[547]}.=qq|$ag{$ek."_file"} (${jb}x$ja, image too big)
\n|;
$ag{$ek}=$md{$ek};next;}}$ag{$ek}=$ml;}elsif($ag{$ek.$z[311]})
{if($md{$ek}&&$ew{$md{$ek}}){unlink("$ac{'dir_upload'}/$md{$ek}");
}$md{$ek}='';}else{$ag{$ek}=$md{$ek};}}return\%lv;}sub lx{my
($lh,$lt)=@_;my($ko)=int($ag{$z[48]});$ag{$z[520]}=$ko?$lt->{$z[520]}
:$^T;$ag{$z[531]}=$ko?$lt->{$z[531]}:$ai{$z[48]};$ag{$z[552]}
=$ko?$lt->{$z[552]}:$ai{$z[48]};$ag{$z[66]}=$^T;$ag{$z[532]}
=$ai{$z[48]};my$mr;foreach$mr($lh->{$z[74]}=~/\bufile([^ ]*)\b/g)
{if($lh->{$z[74]}=~/\bimagewidth\Q$mr\E\b/){($ag{$z[553].$mr},
$ag{$z[554].$mr})=&mq($ac{$z[543]}.$ag{$z[555].$mr});}}}sub
ly{my($lh,$lt)=@_;my($ko)=int($ag{$z[48]});if($ko){&dy($lh,
\%ag,$ko);}else{$ag{$z[48]}=&ec($lh,\%ag,$ko);}if(defined&{$lh->{$z[171]}})
{&{$lh->{$z[171]}}($ag{$z[48]},$z[556],$lt);}}sub lz{my($lh,
$lv)=@_;if(keys%{$lv}){undef$ac{$z[546]}if!$ac{$z[545]};$lv->{$z[48]}
=$ag{$z[48]};$lv->{$z[557]}=&bu($z[557],\%ac)if$ac{$z[546]};
$lv->{$z[558]}=&bu($z[558],\%ac)if$ac{$z[550]};$lv->{$z[559]}
=&bu($z[559],\%ac)if$ac{$z[551]};$lv->{$z[560]}=&bu($z[560],
{$z[544]=>$ac{$z[544]}?$ac{$z[544]}:$z[561]});&lo($z[562],$lv);
exit;}}sub ma{my($lh)=@_;if(!$ac{$z[563]}){&lp($lh,$z[174]);
}&lo($z[564],\%ag);exit;}sub mf{my$ao=shift;&lo($z[174],$ao);
exit;}sub mc{my($lh,$mb)=@_;$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}
=$lh->{$z[50]};if(ref($lh)ne$z[227]){die$z[565]."\n";}&gf($lh->{$z[147]},
{});if($ag{$lh->{$z[50]}.$z[566]}){my$ms={};while($ah{$lh->{$z[50]}.$z[567]}
=~/(.*?)\t(.*?)\t/g){$ms->{$1}=$2;}$mb->{$z[57]}=$ag{$z[568]}
||$ms->{$z[57]};}else{while($ah{$lh->{$z[50]}.$z[567]}=~/(.*?)\t(.*?)\t/g)
{$mb->{$1}=$2;}foreach(keys%{$mb}){if(defined$ag{$z[514].$_})
{if($_ ne$z[57]&&$_ ne$z[518]){$mb->{$z[518]}=1;}$mb->{$_}=
$ag{$z[514].$_};}}}&mt($lh->{$z[50]}.$z[567],join("\t",map{
$_,$mb->{$_}}keys%{$mb})."\t");foreach(keys%{$mb}){$ad{$z[514]
.$_}=$mb->{$_};$ad{$z[514].$_.$z[514].$mb->{$_}.$z[528]}=$z[529];
}return$mb;}sub me{my($lh,$ap,$mb,$dg,$dh)=@_;my%ao;my$jd=sub
{$ao{$z[569]}.=&{$ap}(@_);};($ao{$z[570]},$ao{$z[571]},$ao{$z[572]},
$ao{$z[573]},$ao{$z[574]},$ao{$z[575]})=&mu($lh,$jd,$mb->{$z[518]},
$mb->{$z[57]},$dg,$dh);unless($ao{$z[569]}){if($ab{$z[133]}{$z[134]}{$z[576]}
&&scalar grep{$_ ne$z[57]&&$_ ne$z[518]&&$mb->{$_}ne''}keys
%{$mb}){$ao{$z[569]}=&bu($z[576],{});}else{$ao{$z[569]}=&bu($z[128],
{});}}return\%ao;}sub cl{my$lh=shift;my($dg,$dh);my$mb={$z[57]
=>$af{$z[517]}{$z[57]},$z[518]=>1,$z[82]=>'',};$mb=&mc($lh,
$mb);foreach(split(/\s+/,$lh->{$z[79]})){push(@$dh,[$_,$z[269],
$mb->{$z[82]}]);}my$ap=sub{my$md=shift;$md->{$z[577]}=$aj[$md->{$z[578]}];
if(!defined$md->{$z[519]}&&$md->{$z[19]}){my$hy=&hl(0,0,0,$md->{$z[20]},$md->{$z[19]}-1,$md->{$z[18]});
$md->{$z[519]}=&as($ab{$z[96]},$hy);}$md->{$z[520]}=&as($ab{$z[40]},int($md->{$z[520]}))
if$md->{$z[520]};$md->{$z[66]}=&as($ab{$z[40]},int($md->{$z[66]}))
if$md->{$z[66]};$ad{$z[521]}=$ad{$z[521]}eq$z[522]?$z[523]:
$z[522];return&bu($z[122],$md);};my$ao=&me($lh,$ap,$mb,$dg,
$dh);&mf($ao);}sub qv{my$lh=shift;&co();my$lt=&lu($lh);my$lv
=&lw($lh,$lt);&lx($lh,$lt);my%mv;if(&mw($lh,\%mv,$z[579],$ag{$z[579]}))
{if($mv{$z[48]}!=$lt->{$z[48]}){&cq();&lo($z[580],\%ag);}}if
($ag{$z[48]}==$ai{$z[48]}&&$ag{$z[578]}<9){&cq();&lo($z[581],
{});}&ly($lh,$lt);my%mx;if(&mw($ae{$z[198]},\%mx,$z[48],$ag{$z[48]}))
{&dy($ae{$z[198]},\%ag,$ag{$z[48]});}&cq();&lz($lh,$lv);&ma($lh);
}sub qy{my$lh=shift;if(!$ac{$z[516]}){&lp($lh,$z[173]);}my$ao
=&lq($lh);if($ao->{$z[48]}==$ai{$z[48]}&&$ag{$z[578]}<9){&lo($z[581],
{});}&lo($z[516],$ao);}sub ck{my$lh=shift;my$ko=$ag{$z[48]}
||$ag{$lh->{$z[50]}.$z[538]};if($ko==$ai{$z[48]}&&$ag{$z[578]}
<9){$ad{$z[524]}=$lh->{$z[145]};$ad{$z[525]}=$lh->{$z[50]};
&gf($lh->{$z[147]},{});&lo($z[581],{});}&co();&mh($ae{$z[193]},
{},$ai{$z[48]})||&mz($z[582],{});my$ao=&lr($lh);&mj($ae{$z[198]},
$ko);&cq();&ls($lh,$ao);}sub nt{my$jk=shift;if($ac{$z[583]}
eq$z[584]){my%jl=(host=>$ac{$z[585]},helo=>$af{$z[586]}{$z[587]},
timeout=>$af{$z[586]}{$z[588]},pop3_auth=>$ac{$z[589]},pop3_host
=>$ac{$z[590]},pop3_user=>$ac{$z[591]},pop3_pass=>$ac{$z[592]});
&na($jk,\%jl)||die("Error sending message: $ab{'error'}");}
elsif($ac{$z[583]}eq$z[593]){if(!-e$ac{$z[594]}){die("sendmail: can't find sendmail program '$ac{'mail_sendmail'}'\n");
}local(*AL);my($jv)=&jm($jk);open(AL,"|$ac{'mail_sendmail'} -f $jv -t")
||die"Can't open $ac{'mail_sendmail'} : $!";print AL$jk;close(AL);
}elsif(!$ac{$z[583]}){die("sendmail: no mailer specified in setup options!\n");
}else{die("sendmail: unknown mailer '$ac{'mail_mailer'}' specified!\n");
}}sub qz{my($ff)=$_[0];my($nb)=$ag{$z[595]}||die("browse: you must pass a name/value for the 'fieldname'!\n");
my(%ao,$fg);if($ff ne$z[596]&&$ff ne$z[597]){die("browse: the first argument must be either 'dir' or 'file'!\n");
}if($ag{$z[598]}){&nc($z[599].$z[600].$ab{$z[0]}.$z[601]);}
if($ag{$z[602]}){&nc($z[603].$z[600].$ab{$z[0]}.$z[601]);}if
($ag{$z[596]}){&nc($z[604].$z[600].$ab{$z[0]}.$z[601]);}if(!-d
$ac{$z[605]}){delete$ac{$z[605]};}if($ag{$z[606]}){if(-f$ag{$z[606]})
{$ag{$z[606]}=~s!^(.+)(\\|/).*?$!$1!;}if(-d$ag{$z[606]}){$ag{$z[596]}
=$ag{$z[606]};}}if($af{$z[607]}){$ag{$z[596]}=$ac{$z[605]};
}&gf("_browse_$ff.html",{});my$nd="/";$ao{$z[595]}=$ag{$z[595]};
if($ag{$z[598]}){$ao{$z[608]}=$ag{$z[608]};if(!$ag{$z[608]})
{$ad{$z[609]}=$z[610];}elsif($ag{$z[608]}=~m/[^\w\-]/i){$ad{$z[609]}
=$z[611];}elsif(!mkdir("$ag{'cdir'}$nd$ag{'mkdir_name'}",0777)){
$ad{$z[609]}=$z[612].$!;}if($ad{$z[609]}){$ad{$z[609]}=&bu($z[609],\%ad);
}}if($ag{$z[602]}){local(*AB);$ao{$z[613]}=$ag{$z[613]};if(!$ag{$z[613]})
{$ad{$z[614]}=$z[615];}elsif($ag{$z[613]}=~m/[^\w\-\.]/i){$ad{$z[614]}
=$z[616];}elsif(-e"$ag{'cdir'}$nd$ag{'mkfile_name'}"){$ad{$z[614]}
=$z[617];}elsif(!open(AB,">$ag{'cdir'}$nd$ag{'mkfile_name'}"))
{$ad{$z[614]}=$z[618].$!;}close(AB);if($ad{$z[614]}){$ad{$z[614]}
=&bu($z[614],\%ad);}}$ao{$z[596]}=$ag{$z[596]}||$ac{$z[605]}
||$ab{$z[510]};$ao{$z[596]}=~s/^(.+)(\\|\/)+$/$1/;$ao{$z[619]}
=$ao{$z[596]};$ao{$z[619]}=~s!^([a-z]:)!$1/..!i;$ao{$z[620]}
=($ao{$z[596]}=~m#^(.*)[\\/]#,$1||$nd);$ao{$z[621]}=&gg($ao{$z[620]});
$ao{$z[174]}.=&bu($z[620],\%ao)if($ao{$z[596]}=~m!.+(\\|/)!);
if(!-e$ao{$z[596]}){$ao{$z[487]}=$z[622];}elsif(!-r$ao{$z[596]})
{$ao{$z[487]}=$z[623];}if($ao{$z[487]}){print"Content-type: text/html\n\n"
unless($ab{$z[624]}++);$ao{$z[174]}.=&bu($z[487],\%ao);print
&gf($z[625],\%ao);exit;}opendir(AC,"$ao{'dir2'}");my@fg=sort
{lc$a cmp lc$b}grep(!/^\.+$/,readdir(AC));closedir(AC);my($az);
foreach$az(@fg){-d"$ao{'dir'}$nd$az"||next;$ao{$z[50]}=$az;
$ao{$z[626]}="$ao{'dir'}$nd$az";$ao{$z[626]}=~s/$nd+/$nd/g;
$ao{$z[627]}=&gg($ao{$z[626]});($ao{$z[628]},$ao{$z[629]})=
(stat($ao{$z[626]}))[7,9];next if$ao{$z[629]}eq"";$ao{$z[630]}
=&as($ab{$z[40]},$ao{$z[629]});$ao{$z[174]}.=&bu($z[596],\%ao);
$fg++;}my($ew);foreach$ew(@fg){-d"$ao{'dir'}$nd$ew"&&next;$ao{$z[50]}
=$ew;$ao{$z[626]}="$ao{'dir'}$nd$ew";($ao{$z[628]},$ao{$z[629]})
=(stat($ao{$z[626]}))[7,9];next if$ao{$z[629]}eq"";if($ao{$z[628]})
{$ao{$z[628]}=(int($ao{$z[628]}/1000)||1)."KB";}else{$ao{$z[628]}
="0KB";}$ao{$z[630]}=&as($ab{$z[40]},$ao{$z[629]});$ao{$z[626]}
=~s/'/\\'/g;$ao{$z[626]}=~s/\\/\\\\/g;if(-f"$ao{'dir'}$nd$ew")
{$ao{$z[174]}.=&bu($z[597],\%ao);}else{$ao{$z[174]}.=&bu($z[631],\%ao);
}$fg++;}if(!$fg){$ao{$z[174]}.=&bu($z[632],{});}print"Content-type: text/html\n\n"
unless($ab{$z[624]}++);print&gf("_browse_$ff.html",\%ao);exit;
}sub ra{my($jz,$kc);if($ENV{$z[305]}=~/^[\w\-]+\.gif$/){$jz
=$z[633]."\n\n";}elsif($ENV{$z[305]}=~/^[\w\-]+\.jpg$/){$jz
=$z[634]."\n\n";}else{return;}$kc=&gf($ENV{$z[305]},{},$z[321]);
if($kc){binmode(STDOUT);print$jz ;print$kc ;exit;}}sub at{my
$hy=$_[0]||die("time_adj: first argument must be time()\n");
if($ac{$z[635]}eq$z[533]){$hy+=$ac{$z[636]}*60*60;}if($ac{$z[635]}
eq$z[637]){$hy-=$ac{$z[636]}*60*60;}if($ac{$z[638]}eq$z[533])
{$hy+=$ac{$z[639]}*60;}if($ac{$z[638]}eq$z[637]){$hy-=$ac{$z[639]}*60;
}return$hy;}sub rb{my($ap,$ne,$nf,$ng,%mx);my(%ao,%nh);if(!$ag{$z[640]}
&&!$ah{$z[579]}){&mz(undef,\%ao);}if($ag{$z[640]}){($ne,$nf)
=(lc$ag{$z[579]},lc$ag{$z[641]});if(!$ne&&!$nf){&mz($z[582],
\%ao);}if(!$ne||!$nf){&mz($z[582],\%ao);}$ap=sub{if(lc$nh{$z[579]}
eq$ne&&lc$nh{$z[641]}eq$nf){$ng=$nh{$z[48]};}};&av($ae{$z[193]},
$ap,\%nh);if(!$ng){&mz($z[582],\%ao);}&mh($ae{$z[193]},\%nh,
$ng);$nh{$z[520]}=$^T;$nh{$z[66]}=$^T;&dy($ae{$z[198]},\%nh,
$ng);}else{($ne,$nf)=(lc$ah{$z[579]},lc$ah{$z[641]});if(!$ne
||!$nf){&mz($z[642],\%ao);}$ap=sub{if(($af{$z[643]}&&$nh{$z[66]}
<$^T-60*$af{$z[643]})||$nh{$z[66]}<$^T-60*60*24){&mj($ae{$z[198]},
$nh{$z[48]});}elsif(lc$nh{$z[579]}eq$ne&&lc$nh{$z[641]}eq$nf)
{$ng=$nh{$z[48]};}};&av($ae{$z[198]},$ap,\%nh);if(!$ng){&mz($z[642],
\%ao);}&mh($ae{$z[198]},\%nh,$ng);$nh{$z[66]}=$^T;&dy($ae{$z[198]},
\%nh,$ng);}&mt($z[579],$ne);&mt($z[641],$nf);return%nh;}sub
mz{if(!$ab{$z[624]}++){print$z [644]."\n\n";}my($eu)=$_[0];
my(%ao)=%{$_[1]||{}};&gf($z[645],{});foreach(keys%ao){$ao{$_}
=&fj($ao{$_});}if($eu&&!$ab{$z[133]}{$z[134]}{$eu}){die($z[646]."'$eu' isn't defined!\n");
}if($eu){$ao{$z[547]}=&bu($eu,\%ao);}print&bu($z[647],{});if
($eu){print&bu($z[648],\%ao);}else{print&bu($z[640],\%ao);}
print&bu($z[649],{});if($ab{$z[486]}){print"
";print"
$ab{'debug_output'}"
if($ab{$z[301]});}&ni();exit;}sub rc{&gf($z[645],{});&mt($z[579],'');
&mt($z[641],'');$ac{$z[650]}=~s/^\s+|\s+$//g;if($ac{$z[650]}
&&$ENV{$z[305]}=~/logoff/i){print"Content-type: text/html\n\n";
print qq|\n|;print qq|\n|;
print qq|\n|;print qq|\n|;
print qq|\n|;exit;}&mz();}sub nx{&gf($ae{$z[200]}->{$z[147]},
{});&mh($ae{$z[200]},\%ac,1);foreach(keys%ac){if(!/\W/&&$ac{$_}
!~/\W/){$ac{$_."_$ac{$_}".$z[536]}=$z[537];$ac{$_."_$ac{$_}".$z[528]}
=$z[529];}}$ac{$z[651]}=&as($ab{$z[40]},$^T);$ac{$z[636]}||=
0;$ac{$z[639]}||=0;$ac{$z[652]}=&as($ab{$z[40]},&at($^T));foreach
(keys%ENV){$ac{"env_".lc($_)}=$ENV{$_};}$ac{$z[653]}=$^O;$ac{$z[654]}
=$];$ac{$z[655]}||="not available";$ac{$z[656]}||=$ac{$z[657]};
$ac{$z[658]}=$ab{$z[510]};foreach(grep/^env_/,keys%ac){$ac{$_}
=~s/(\W)(\w)/$1$2/g;}foreach(keys%ac){$ac{$_.$z[331]}=
&gg($ac{$_})if/^dir/;$ac{$_}=~s/"/"/g;}if($^O!~/win32/i
&&!$ac{$z[594]}&&defined$ab{$z[133]}{$z[134]}{$z[659]}){foreach
($z[660],$z[661],$z[662],$z[663],$z[664],$z[665],$z[666]){if
(-e$_){$ad{$z[667]}.=&bu($z[659],{$z[626]=>$_});}}}my$nj=$z[668];
$nj=$z[669]if($ac{$z[669]});foreach(1..10){$nj="tab$_"if($ag{"setup_tab$_"}
&&defined$ab{$z[133]}{$z[134]}{"tab$_"});}&lo($nj,\%ac);exit;
}sub rd{$ab{$z[670]}=$z[671];my(%ao,$nk);if($ag{$z[672]}){&gf($z[673],
{});$ao{$z[674]}=&bu($z[675],\%ao);$ao{$z[676]}=$z[677];my@nl
=qw(mail_smtp mail_sender_email mail_sender_name mail_mailer mail_sendmail mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass);
@ao{@nl}=@ag{@nl};print"Content-Type: text/html\n\n";print&gf($z[673],
\%ao);exit;}if(length($ag{$z[678]})){&nm($z[679],$z[680])unless
&nn($ag{$z[678]});}else{&nm($z[681],$z[682]);}my$np;open(AJ,
"<$ab{'templatedir1'}/email/email_test.txt")||&nm($z[683],"Unable to open test email template.");
read(AJ,$np,-s AJ);close(AJ);my($nq,$nr);if($np=~/^\s*Subject: *([^\r\n]*?)(\r\n|\r|\n)\s*Body: *([^ ].*)$/si)
{$nq=$1;$nr=$3;}else{&nm($z[684],"email_test.txt is improperly formatted. Should have subject: and body:");
}if($ag{$z[583]}eq$z[593]){@ac{qw(mail_mailer mail_sendmail)}
=@ag{qw(mail_mailer mail_sendmail)};}else{@ac{qw(mail_mailer mail_smtp mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass)}
=@ag{qw(mail_mailer mail_smtp mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass)};
}my$ns=qq|From: "$ag{'mail_sender_name'}" <$ag{'mail_sender_email'}>\nTo: "$ag{'mailto'}" <$ag{'mailto'}>\nSubject: $nq\nContent-Type: text/plain\n|
;$@=();eval{&nt("$ns\n$nr")};if($@){&nm($z[685],join($z[686],
$@));}else{&nm($z[687]);}}sub nm{my($ff,$jd)=@_;my%ao;my%nu
=($z[681]=>[$z[688],$z[689],$z[690]],$z[679]=>[$z[688],$z[689],
$z[691]],$z[683]=>[$z[692],$z[689],$z[693]],$z[684]=>[$z[692],
$z[689],$z[694]],$z[685]=>[$z[692],$z[689],$z[695]],$z[687]
=>[$z[692],$z[696],$z[697]]);&gf($z[673],{});$ao{$z[547]}=$jd;
if($nu{$ff}[0]eq$z[688]){$ao{$z[698]}=&bu($z[698],{});}$ao{$z[674]}
=&bu($nu{$ff}[1],\%ao);$ao{$z[676]}=$nu{$ff}[2];print"Content-Type: text/html\n\n";
print&gf($z[673],\%ao);exit;}sub re{&nv($z[699].$z[600].$ab{$z[0]}.$z[700]);
&gf($ae{$z[200]}->{$z[147]},{});&nw;if(!$ac{$z[563]}){&nx;}
my$nj=$z[701];foreach(1..10){$nj="saved_tab$_"if($ag{"setup_tab$_"}
&&defined$ab{$z[133]}{$z[134]}{"saved_tab$_"});}&lo($nj,{});
exit;}sub nw{my($lv);if(defined$ag{$z[702]}){$ag{$z[702]}=~
s/\s+//g;if(defined&ny){if(!&ny($ag{$z[702]})){$lv=$z[703];
}if(!$ag{$z[702]}){$lv=$z[704];}}if(!$ag{$z[705]}){$lv=$z[706];
}if(!$ag{$z[707]}){$lv=$z[708];}if($lv){$ad{$z[487]}=$lv;$ad{$z[709]}
=$ag{$z[707]};$ad{$z[710]}=$ag{$z[705]};$ad{$z[711]}=$ag{$z[702]};
&lo($z[712],\%ad)}$ac{$z[707]}=$ag{$z[707]};$ac{$z[705]}=$ag{$z[705]};
$ad{$z[713]}=int sprintf($z[714],&ny($ag{$z[702]}));$ab{$z[715]}
=&nz();if(defined&oa&&$ac{$z[702]}ne$ag{$z[702]}){&oa;}}foreach
(qw(uploadmax lhour_offset lmin_offset)){if(exists$ag{$_}){
$ag{$_}=int($ag{$_});}}foreach(qw(upload_height upload_width))
{if(exists$ag{$_}){$ag{$_}&&=int($ag{$_});}}foreach(grep{/_default_to$/i
}keys%ag){my($ob,$en)=/^((.*)_default_to)$/;if($ag{$ob}=~/^null$/i)
{$ag{$ob}='';}$ag{$en}||=$ag{$ob};}foreach(qw(publish_index publish_basename publish_fileext))
{$ag{$_}=~s/^\.+//;$ag{$_}=~s/\.+$//;}foreach(keys%ag){if((/^dir_/
||/^url_/)&¬/^url_logoff$/){if(!$ag{$_}){next;}$ag{$_}=~
tr|\\|/|;if(/^url_/&&index($ag{$_},$z[132])>=0){next;}if(/^url_/
&&index($ag{$_},$z[716])>=0){next;}if(substr($ag{$_},-1,1)ne
$z[64]){$ag{$_}.=$z[64];}}}my$oc=$ac{$z[717]};my$od=$ac{$z[718]};
&mh($ae{$z[200]},\%ac,1);foreach(sort keys%ac){$ac{$_}=$ag{$_}
if defined$ag{$_};}&dy($ae{$z[200]},\%ac,1);$ad{$z[719]}=$ac{$z[720]};
foreach(keys%ac){$ad{$z[514].$_}=$ac{$_}if/^ui_/;}$ad{$z[709]}
=$ac{$z[707]};$ad{$z[710]}=$ac{$z[705]};$ad{$z[711]}=$ac{$z[702]};
$ad{$z[721]}=$ac{$z[722]};$ad{$z[723]}=$ac{$z[649]};$ad{$z[724]}
=$ac{$z[725]};foreach(grep/^dir_/,keys%ac){$ac{$_}="$ab{'cgidir'}/$ac{$_}"
if index($ac{$_},$z[29])==0;$ac{$_}=~tr|\\|/|;1 while$ac{$_}
=~s|/[^/]+/\.\.||;}if(($oc ne$ac{$z[717]}||$od ne$ac{$z[718]})
&&($ac{$z[717]}||$ac{$z[718]})){&oe($ae{$z[13]},sub{my$bk=shift;
if($ac{$z[717]}&&$bk->{$z[86]}){$bk->{$z[75]}=~s/\n/
/g;
undef$bk->{$z[86]};}if($ac{$z[718]}&&$bk->{$z[88]}){$bk->{$z[76]}
=~s/\n/
/g;undef$bk->{$z[88]};}});}&am();}sub rf{&nw;
foreach(keys%ae){my$of=$ae{$_}{$z[171]};if(defined&{$of}){&{$of}();
}}&lo($z[726],{});}sub lo{my($ga)=$_[0];my($ao)=$_[1];unless
($ga){die($z[727]."\n");}if(ref($_[1])ne$z[227]){die$z[728]."\n";
}my(%ao);if(!$ab{$z[624]}++){print$z [644]."\n\n";}&gf($z[645],
{});print&bu($z[647],{});for(1..9){if($ai{$z[578]}>=$_&&$ab{$z[133]}{$z[134]}{$z[729].$_})
{$ao{$z[730]}.=&bu($z[729].$_,{});}if($ai{$z[578]}==$_&&$ab{$z[133]}{$z[134]}{$z[729].$_.$z[731]})
{$ao{$z[730]}.=&bu($z[729].$_.$z[731],{});}}$ad{$z[732]}="$ai{'name'} ($aj[$ai{'acl'}])";
$ao{$z[76]}=&bu($ga,$ao);print&bu($z[733],\%ao);print&bu($z[649],
{});if($ab{$z[486]}>=2){print"Stack Trace
";
my$cy=0;while(my($ew,$dz,$fi)=(caller($cy++))[1,2,3]){print
qq!($fi) called from ($ew) line ($dz)
\n!;}}if($ab{$z[486]})
{print"
";print"
$ab{'debug_output'}"if($ab{$z[301]});
}&ni();exit;}sub ni{print$z [734]."\n";print$ad {$z[721]}.$z[735]
.$ab{$z[4]}.$z[736].$ab{$z[737]}.$z[29].$ab{$z[738]}.")\n";
print$z [739].$ad{$z[713]}.$z[740].$ad{$z[709]}.$z[740].$ad{$z[710]}
."\n";printf($z[741]."\n",time()-$^T);print$z [742]."\n";}sub
rg{my(@fg)=map"$ab{'datadir'}$ae{$_}{'datafile'}",keys%ae;my(@og)
=($ab{$z[743]});my($az,$ew,$oh);foreach$az(sort@og){if($az
eq""){next;}if(!-d$az||!-w$az){$oh.="$az\n";}}foreach$ew(sort
@fg){$ew=~s/\\/\//g;1 while$ew=~s!/[^/]+/\.\./!/!;if(-f$ew&&
!-w$ew){$oh.="$ew\n";}}if($oh){&ak($z[744],$oh);}}sub nv{return
unless$af{$z[607]};my$jk=shift;&mz($z[745],{$z[547]=>$jk});
}sub nc{return unless$af{$z[607]};my$jk=shift;$jk=&gg($jk);
print"Content-type: text/html\n\n";print qq|\n|
;exit;}sub rh{&gf($ae{$z[200]}{$z[147]},{});my%oi;my$oj;foreach
$oj(keys%{$ab{$z[746]}}){my%ao=($z[747]=>$oj,$z[748]=>$ab{$z[746]}{$oj}
);$oi{$oj}[0]=&bu($z[749],\%ao);$oi{$oj}[1]=&bu($z[750],\%ao);
}foreach$oj(keys%{$ab{$z[746]}}){my$ok=join'',map{$oi{$_}[$oj
==$_?1:0]}sort keys%{$ab{$z[746]}};$ad{$z[751].$oj}=&bu($z[752],
{$z[753]=>$ok});}}1;;sub ri{my$ol=shift||die("ip2num : no ip or host specified!\n");
my($a,$b,$om,$on,$ko);if($ol=~/[^0-9\.]/){my$jx=gethostbyname("$ol.")
||die("ip2num: Can't find IP for host '$ol'!\n");($a,$b,$om,$on)
=unpack($z[754],$jx);}else{($a,$b,$om,$on)=split(/\./,$ol);
}$ko+=$on*(256**0);$ko+=$om*(256**1);$ko+=$b*(256**2);$ko+=
$a*(256**3);return$ko;}sub rj{my$ko=shift||die("num2ip : no number specified!\n");
my($a,$b,$om,$on);$a=($ko/256**3)% 256;$b=($ko/256**2)% 256;
$om=($ko/256**1)% 256;$on=($ko/256**0)% 256;return join$z[29],
$a,$b,$om,$on;}sub rk{my$hy=shift||time();$hy-=(localtime($hy))[6]
* 60*60*24;$hy-=(localtime($hy))[2]* 60*60;$hy-=(localtime($hy))[1]
* 60;$hy-=(localtime($hy))[0]* 1;return$hy;}sub rl{my$hy=shift
||time();$hy-=(localtime($hy))[2]* 60*60;$hy-=(localtime($hy))[1]
* 60;$hy-=(localtime($hy))[0]* 1;return$hy;}sub rm{my$gq=int
shift;my$gr=int($gq/60);my$gs=int($gr/60);$gr%=60;$gq%=60;return
sprintf("%01d:%02d:%02d",$gs,$gr,$gq);}sub rn{my$ko=reverse
int shift;$ko=~s/(...)\B/$1,/g;return reverse$ko;}sub by{my
$ko=shift;if($ko==int($ko)){return$ko;}elsif($ko<0){return
int$ko;}else{return int($ko)+1;}}sub ro{my$ko=shift;if($ko==
int($ko)){return$ko;}elsif($ko<0){return int($ko)-1;}else{return
int$ko;}}sub bz{return(sort{$a<=>$b}@_)[0];}sub rp{return(sort
{$a<=>$b}@_)[-1];}1;;sub aw{local(*AB);my($ew,%ez,$fz,$ga);
%ez=%{$_[1]}if$_[1];my$oo=$_[3];my%gb;%gb=($z[319]=>0,$z[320]
=>0,$z[321]=>0,$z[53]=>0,$z[330]=>0);foreach(split(/ /,$_[2]))
{if(undef$gb{$_}){die($z[322]."'$_'\n");}$gb{$_}=1;}unless($gb{$z[319]})
{$gb{$z[320]}=1;}if(!$_[0]){die$z[323]."\n";}if(ref($_[1])ne
$z[227]){die$z[755]."\n";}if((!$gb{$z[320]}||!$ab{$z[133]}{$z[320]}{$_[0]})
){if(-e"$_[0]"){$ew=$_[0];}else{foreach(grep/^templatedir/,
sort keys%ab){if(-e"$ab{$_}/$_[0]"){$ew="$ab{$_}/$_[0]";last;
}}if(!$ew){die$z[325]."'$_[0]'".$z[326]."\n";}}}if($gb{$z[320]}
&&$ab{$z[133]}{$z[320]}{$_[0]}){$fz=$ab{$z[133]}{$z[320]}{$_[0]};
}else{open(AB,"<$ew")||die$z[327]."$ew! $!\n";binmode(AB)if
($ew=~/gif$/i||$ew=~/jpg$/i);read(AB,$fz,-s AB);close(AB);}
if($gb{$z[321]}){return$fz;}if(!$gb{$z[320]}||!$ab{$z[133]}{$z[320]}{$_[0]})
{foreach$ga($fz=~m//g)
{$ab{$z[133]}{$z[134]}{"$oo$1"}=$2 if($fz=~m/(?:\r\n|\n)?(.*?)/is);
}$fz=~s/(?:\r\n|\n)?(.*?)//gis;
if($gb{$z[320]}){$ab{$z[133]}{$z[320]}{$_[0]}=$fz;}}if($gb{$z[53]})
{while($fz=~//i){my$op=$1;
my$gc=$op;$gc=~s/\$(\w+?)\$/defined$ad{$1}?$ad{$1}:$ez{$1}/eg;
unless($gc){$fz=~s///;next;
}if($gc=~m!^/!){;}else{if($_[4]){$gc="$_[4]$gc";}else{$gc=($ew
=~m!(.*/)!)[0].$gc;}}my$ge;if(not$ab{$z[133]}{$z[756]}{$gc}++)
{my$oq;if(-e"$gc"){$oq++;}else{foreach(grep/^templatedir/,sort
keys%ab){if(-e"$ab{$_}/$gc"){$oq++;last;}}}if($oq){$ge=&aw($gc,
$_[1],"$_[2] inside_ssi",$z[757],$_[4]);}else{$ge="[ Program Error - Could not include file \"$gc\" via template include ]";
}}else{$ge="[ Program Error - Cyclic Include - The file '$gc' is included by itself (perhaps indirectly). Please check include files for other Include statements. ]";
}$fz=~s//$ge/;delete$ab{$z[133]}{$z[756]}{$gc};
}}else{$fz=~s///gi;}$fz=~s//$1/gi;
$fz=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$em=defined$ad{$1}
?$ad{$1}:$ez{$1};if($2 eq$z[331]){$em=&gg($em);}if($2 eq$z[332])
{$em=&gh($em);}if($2 eq$z[333]){$em=&gh($em);$em=~s/ / /g;
}if($2 eq$z[334]){$em=&gi($em);}$em;]ge;return$fz;}sub br{my
($hx,$bk,$oo)=@_;$hx=~s|
(\s*\*\*\*image\d+(?:\:(\w+))?\*\*\*)|
$1|gsi;
$hx=~s[\s*\*\*\*image(\d+)(?:\:(\w+))?\*\*\*\s*][if($2 eq$z[758])
{$bk->{$z[119].$1}}else{my%or;$or{$z[759]}=$2||$af{$z[760]}{$z[761]}
||$z[762];$or{$z[763]}=$bk->{$z[119].$1};$or{$z[764]}=$bk->{$z[120]
.$1};$or{$z[765]}=$bk->{$z[68].$1};$or{$z[766]}=$bk->{$z[69]
.$1};&bu($oo.($or{$z[764]}ne''?$z[764]:$z[767]),\%or);}]eigo;
return$hx;}sub rq{my($ao,$bk,$oo,$os,$ot,@ou)=@_;$ao->{$z[85]}
=&br($os,$bk,$oo);$ao->{$z[87]}=&br($ot,$bk,$oo);my$cy;for$cy
(1..$ab{$z[6]}){$ao->{$z[121].$cy}=&br($ou[$cy-1],$bk,$oo);
}}sub rr{my($ao,$os,$ot,@ou)=@_;($ao->{$z[85]}=$os)=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;
($ao->{$z[87]}=$ot)=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;
my$cy;for$cy(1..$ab{$z[6]}){($ao->{$z[121].$cy}=$ou[$cy-1])
=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;}}sub rs{my$fz=shift;
my$hy=$ad{$z[39]}||&as($ab{$z[40]},$ac{$z[39]}||$^T);my$ov=
$z[768].$ab{$z[0]}.$z[769];$$fz=$z[770].$hy.$z[771].$ab{$z[0]}
.$z[772]."\n\n".$$fz;unless($$fz=~s/(]+>)/$ov\n$1/is)
{$$fz=~s/(]*>)/$1\n$ov\n/i;}}sub hl{my$jd;eval{local
$SIG{$z[773]}=undef;local$SIG{$z[774]}=undef;$jd=timelocal(@_);
};if($@){$jd=0;}return$jd;}sub hk{my$jd;eval{local$SIG{$z[773]}
=undef;local$SIG{$z[774]}=undef;$jd=timegm(@_);};if($@){$jd
=0;}return$jd;}sub rt{if(!$ac{$z[775]}||(scalar(@{$ab{$z[776]}})
<1)){return;}my$bk=shift;my%ow=%{$bk};my($ox,$oy,$oz,$pa)=(1..4);
if($ab{$z[486]}){if(scalar(@{$ab{$z[776]}})>1){my%pb=map{$_,
1}("$ox,$oy","$oy,$oz","$oy,$pa");my$pc=join($z[777],sort{$a
<=>$b}@{$ab{$z[776]}});unless(exists$pb{$pc}){&ak("Invalid notification events combination: $pc");
}}}my%pd;@pd{$z[520],$z[630]}=(split(/\s*,\s*/,$af{$z[778]}{$z[779]}));
$pd{$z[520]}||=$z[520];$pd{$z[630]}||=$z[630];my@pe=($z[780],
split(/\s*,\s*/,$af{$z[778]}{$z[781]}));$pe[1]||=$z[782];$pe[2]
||=$z[783];$pe[3]||=$z[45];$pe[4]||=$z[541];my(@bq,%au,$bh);
$ow{$z[784]}=$ai{$z[50]};$ow{$z[785]}=(grep/^$ox$/,@{$ab{$z[776]}})
?$pd{$z[520]}:$pd{$z[630]};$ow{$z[78]}=(grep/^$pa$/,@{$ab{$z[776]}})
?$pe[4]:$pe[$bk->{$z[78]}];foreach(keys%ow){$ow{$z[84].$_}=
$ow{$_};}foreach(1..$ab{$z[6]}){$ow{$z[121].$_}=$ow{$z[89].
$_};}$ow{$z[24]}=$ac{$z[25]};$ow{$z[27]}=$ac{$z[27]};$ow{$z[26]}
=$ac{$z[27]}.$ac{$z[28]}.$z[29].$ac{$z[30]};$ow{$z[31]}=$ac{$z[32]}
.$z[29].$ac{$z[30]};$ow{$z[33]}=$ac{$z[34]}.$z[29].$ac{$z[30]};
$ow{$z[42]}=$ac{$z[32]}.$ow{$z[786]}.$z[29].$ac{$z[30]};;$ow{$z[43]}
=$ac{$z[44]}.$ow{$z[786]}.$z[29].$ac{$z[30]};$ow{$z[35]}=$ac{$z[36]}
.$z[29].$ac{$z[30]};$ow{$z[37]}=$ac{$z[38]}.$z[29].$ac{$z[30]};
$ow{$z[103]}=$ac{$z[27]}.($ac{$z[104]}&&$ow{$z[105]}?$ac{$z[106]}
.$ow{$z[105]}:$ac{$z[106]}.$ow{$z[48]}).$z[29].$ac{$z[30]};
$ow{$z[39]}=&as($ab{$z[40]},&at($ac{$z[39]}))if($ac{$z[39]});
@bq=($ow{$z[18]},$ow{$z[19]}-1,$ow{$z[20]},$ow{$z[91]}+($ow{$z[92]}
eq$z[93]?12:0),$ow{$z[94]});$ow{$z[95]}=&as($ab{$z[96]},@bq);
$ow{$z[97]}=&as($ab{$z[98]},@bq);&mh($ae{$z[15]},\%au,$ow{$z[786]});
$ow{$z[99]}=$au{$z[50]};$bh=$au{$z[70]}?$au{$z[71]}:$ac{$z[72]}
.$ow{$z[786]};$ow{$z[107]}=$ac{$z[27]}.$bh.$z[29].$ac{$z[30]};
$ow{$z[16]}=$ow{$z[786]};$ow{$z[41]}=$ac{$z[41]};if($bk->{$z[78]}
==2){if($bk->{$z[115]}==1){$ow{$z[787]}=$ow{$z[108]}=$ac{$z[27]}
.($ac{$z[104]}&&$ow{$z[788]}?$ow{$z[105]}:$ac{$z[109]}.$ow{$z[112]})
.$z[29].$ac{$z[30]};}else{$ow{$z[787]}=$ow{$z[108]}=$ow{$z[107]}
.$z[716].$bk->{$z[48]};}}else{$ow{$z[787]}=$ow{$z[108]}=$ow{$z[107]};
}$ow{$z[789]}=$ac{$z[789]};$ow{$z[790]}=$ac{$z[790]}||$ac{$z[789]};
my$np;local(*AJ);open(AJ,"<$ab{'templatedir1'}/email/notify.txt")
||&ak("Unable to open email template");read(AJ,$np,-s AJ);close(AJ);
my($nq,$nr);if($np=~/^\s*Subject: *([^\r\n]*?)(\r\n|\r|\n)\s*Body: *([^ ].*)$/si)
{$nq=$1;$ab{$z[133]}{$z[320]}{$z[791]}=$3;$nq=~s/\$(.*?)\$/$ow{$1}/g;
$nr=&gf($z[791],\%ow,$z[320]);}else{&ak($z[792]);}my$pf=$bk->{$z[15]};
my$pg=$z[793];my@ph;my$ap=sub{my$pi=shift;if($pi->{$z[794]}
||$pi->{$z[795]}=~/(^|,)$pf(,|$)/){if($pi->{$z[578]}==1){return;
}if(!$pi->{$z[778]}||!&nn($pi->{$z[778]})){return;}$pi->{$z[50]}
||=$pi->{$z[778]};my$pj;foreach$pj(split(/,/,$pi->{$z[796]}))
{if(grep/^$pj$/,@{$ab{$z[776]}}){push(@ph,qq|"$pi->{'name'}" <$pi->{'email'}>|);
last;}}}};&av($ae{$z[193]},$ap);if(scalar(@ph)){my$pk;if(length($af{$z[778]}{$z[797]}))
{$pk=qq|To: $af{'email'}{'notifications_to_field'}\n|;}my$pl
=join($z[798],@ph);$pk.=qq|Bcc: $pl|;my$ns=qq|From: "$ow{'mail_sender_name'}" <$ow{'mail_sender_email'}>\n$pk\nSubject: $nq\n$pg\n|
;&nt("$ns\n$nr");}}1;;%af=&pm("$cc/config.ini");$ad{$z[799]}
=$af{$z[517]}{$z[800]}||"#336699";$ab{$z[743]}=$af{$z[743]}
||$z[801];$ab{$z[506]}=$af{$z[506]}||$z[802];$ab{$z[40]}=$af{$z[517]}{$z[40]}
||$z[803];$ab{$z[96]}=$af{$z[517]}{$z[96]}||$z[804];$ab{$z[98]}
=$af{$z[517]}{$z[98]}||$z[424];&ak($z[805])if!$ENV{$z[806]};
&ak("macftp")if"¡"ne"\xA1";&ak($z[807])if$ENV{$z[808]}&&!$af{$z[809]};
%ab=(%ab,$z[510]=>$cc,$z[810]=>$ca,$z[811]=>$ca,$z[63]=>$z[812],
$z[813]=>$z[814],$z[815]=>$z[816],$z[624]=>0,);foreach(qw(datadir filelock templatedir1 templatedir2 templatedir3 archive))
{if(ref($ab{$_})){next;}$ab{$_}="$cc/$ab{$_}"if(index($ab{$_},$z[29])
==0);$ab{$_}=~s|\\|/|g;1 while$ab{$_}=~s|/[^/]+/\.\./|/|;}&mh($ae{$z[200]},
\%ac,1);if(!$ac{$z[817]}){&ak($z[818]);}foreach(grep/^dir_/,
keys%ac){$ac{$_}="$cc/$ac{$_}"if index($ac{$_},$z[29])==0;$ac{$_}
=~tr|\\|/|;1 while$ac{$_}=~s|/[^/]+/\.\.||;}foreach(qw(prog_name prog_name2 prog_ver cgidir cgiurl publish_fileext))
{$ad{$z[514].$_}=$ab{$_};}foreach(qw(url_help reg1 reg2 reg3))
{$ad{$z[514].$_}=$ac{$_};}$ad{$z[27]}=$ac{$z[27]};$ad{$z[719]}
=$ac{$z[720]};$ad{$z[721]}=join$z[819],grep{$_}$ab{$z[0]},$ac{$z[722]};
$ad{$z[820]}||=$ac{$z[722]};%ag=&pn;%ah=&po;}sub ak{my($pp)
=$ad{$z[131]};my($ff,$pq,$pr)=@_;my(%ps,$lv,$pt);$pq=&fj($pq);
$ad{$z[821]}||="#336699";%ps=($z[535]=>[("Can't find record # $pq",
"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[744]=>[("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:$pq")],
$z[506]=>[("Warning: Persistent Filelock!","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: '$pq'.")],
$z[509]=>[($z[822],$z[823])],$z[824]=>[("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[825]=>[("Publishing Error","The program cannot create or write to the file:
$pq
Please ask your server administrator to make sure the publish directory and publish file(s) are writable.")],
$z[807]=>[("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[805]=>[("This program can only be run through a web server.",
"")],$z[826]=>[($z[827],$z[828])],$z[829]=>[("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:
$pq")],
$z[830]=>[("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:
$pq")],
$z[292]=>[("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: $pq",
$pu)],);my($pv)=$ad{$z[831]}||$ps{$ff}[0]||"Program Message";
if($ps{$ff}[0]){$pt=$ps{$ff}[0];$lv=$ps{$ff}[1];}elsif($pq&&
$ff){$pt=&fj($ff);$lv=$pq;}else{$pt="Program Message";$lv=&fj($ff);
}if(!$ps{$ff}[1]){$lv=~s/\n/
\n/g;}if($ab{$z[486]}){
if(!$ENV{$z[806]}){$lv.="\n\nSTACK TRACE\n";}else{$lv.="
Stack Trace
";
}my$cy=0;while(my($ew,$dz,$fi)=(caller($cy++))[1,2,3]){if(!$ENV{$z[806]})
{$lv.=qq!($fi) called from ($ew) line ($dz)\n!;}else{$lv.=qq!
($fi) called from ($ew) line ($dz)
\n!;
}}}if(!$ENV{$z[806]}){foreach($pt,$lv){s/
/\n/gm;s/
/\n\n/gm;
}foreach($pt,$lv){s/<[^>]*>//gm;}print"\n$ab{'prog_name'} v$ab{'prog_ver'}\n$pt\n$lv\n";
}else{if(!$ab{$z[624]}++){print"Cache-Control: no-cache\nPragma: no-cache\nExpires: -1\n";
print"Content-type: text/html\n\n";}my$pw=$z[832]if$pr;print
qq|\n\n
\n $pv\n \n \n\n\n|
;}if($ab{$z[486]}&&$ab{$z[301]}){if(!$ENV{$z[806]}){print"$ab{'debug_output'}\n";
}else{print"";print"$ab{'debug_output'}"
if($ab{$z[301]});print"";}}if($ab{$z[833]}){rmdir($ab{$z[506]})
&&undef$ab{$z[833]};}if($ENV{$z[806]}){printf($z[834]."\n",time()-$^T);
print$z [835]."\n\n";}exit;}sub bt{my($ga,$ii,$px)=@_;if(defined
$ab{$z[133]}{$z[134]}{$ga.$px}){$ga.=$px;}&bu($ga,$ii);}sub
am{my@py;my$cy;foreach$cy(1..3){my$pz=$ac{"sort${cy}field"};
next unless$pz;$pz="#$pz#"if$ac{"sort${cy}numeric"};$pz="-$pz"
if$ac{"sort${cy}reverse"};push@py,$pz;}$ae{$z[13]}{$z[169]}
=join($z[686],@py);}
# ----------------------------------------------------------------------------
# Programming by interactivetools.com, inc.