$ft
\n\n";}sub kh{my($kd,%bm,$AH);%bm=%{$_[0]};
$AH="\x0D\x0A";local(*AI);if(!$bm{$z[498]}){die("SMTP_pop3auth: POP3 username not defined'\n");
}if(!$bm{$z[499]}){die("SMTP_pop3auth: POP3 password not defined'\n");
}if($ab{$z[500]}{$z[501]}){return 1;}my($gt,$kk,$gs,$kx,$km,$fs);
$gt=$bm{$z[502]}||$bm{$z[487]};$kk=$bm{$z[503]}||110;$gs=$bm{$z[498]};
$kx=$bm{$z[499]};$km=$bm{$z[504]}||$bm{$z[491]}||30;$fs=$bm{$z[492]}
||0;$km+=time()if$km<10**8&&$km>0;if($gt=~s/:(\d+)//){$kk=$1;
}$gt=&kn($gt);my($kq)=gethostbyname($gt)||do{$ab{$z[493]}="Could not connect to POP3 server. Unknown host $gt\n";
return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$ab{$z[493]}
="Could not connect to POP3 server. No Socket: $!\n";return
0;};connect(AI,pack"SnA4x8",PF_INET,$kk,$kq)||do{if($!eq"Unknown error")
{$ab{$z[493]}="Could not connect to POP3 server. POP3 server does not exist or is not responding.\n";
return 0;}else{$ab{$z[493]}="Could not connect to POP3 server. Connect failed: $!\n";
return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$kr
=&ki(\*AI,$km)||do{$ab{$z[493]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($fs){&kf($kr);}if(uc(substr($kr,0,3))ne"+OK")
{$ab{$z[493]}="An unknown error occured. Server response: $kr\n";
return 0;}print AI"USER $gs",$AH;if($fs){&kf("USER $gs",$AH);
}$kr=&ki(\*AI,$km)||do{$ab{$z[493]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($fs){&kf($kr);}if(substr($kr,0,3)ne"+OK"){$ab{$z[493]}
="The server didn't accept the login info for '$gs'. Server response: $kr\n";
return 0;}print AI"PASS $kx",$AH;if($fs){&kf("PASS $kx",$AH);
}$kr=&ki(\*AI,$km)||do{$ab{$z[493]}="Timed out waiting for POP3 server to respond.\n";
return 0;};if($fs){&kf($kr);}if(substr($kr,0,3)ne"+OK"){$ab{$z[493]}
="The server didn't accept the login info for '$gs'. Server response: $kr\n";
return 0;}print AI"QUIT",$AH;if($fs){&kf("QUIT",$AH);}close(AI);
$ab{$z[500]}{$z[501]}=1;return 1;}sub kj{my$AJ=$_[0];my$km=
$_[1]||$z[354];my($ky,$kz,$la,$lb,$ld,$le,$lf);fileno($AJ)||
die("fh_can_read: invalid filehandle or filehandle not open!\n");
vec($ky,fileno($AJ),1)=1;$lf=select($kz=$ky,undef,undef,$km);
return vec($kz,fileno($AJ),1);}sub ki{my$AJ=$_[0];my$km=int($_[1]);
if(!$km){die("FH_readline: no timeout value specified!\n");
}if($km<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($ew,$lg);while($km>=time()){&kj(\*AI,0.25)||next;sysread(\*AI,$lg,
1)||last;$ew.=$lg;if($lg eq"\x0A"){last;}}return$ew;}sub lq
{my$lh=$ab{$z[505]}{$z[506]}||={};my$li=int++$lh->{$z[21]};
my$ga="FH$li";return eval"local *$ga";}sub fd{return unless
($af{$z[507]});my$lh=$ab{$z[505]}{$z[508]}||={};$lh->{$z[509]}
||=[];my($lj,$km)=@_;$lj||=$z[273];$km||=0;if($lj ne$z[273]
and$lj ne$z[510]){&ak("lock: invalid lock type: '$lj'");}my
$lk;if(@{$lh->{$z[509]}}>0){$lk=$lh->{$z[509]}[-1];}if($lk
eq$z[273]){$lj=$lk;}if($lk eq$lj){push(@{$lh->{$z[509]}},$lj);
return 1;}my$ll;if($lk eq$z[510]and$lj eq$z[273]){&ak("lock: cannot upgrade a 'shared' lock to an 'exclusive' lock");
}$ll=&lm('',$lj,$km);if($ll){push(@{$lh->{$z[509]}},$lj);}return
$ll;}sub fe{return unless($af{$z[507]});my$lh=$ab{$z[505]}{$z[508]}
||={};$lh->{$z[509]}||=[];my($km)=@_;$km||=0;unless(@{$lh->{$z[509]}}
>0){&ak($z[511])}my$lk=pop(@{$lh->{$z[509]}});return if(@{$lh->{$z[509]}}
>0 and$lh->{$z[509]}[-1]eq$lk);if(@{$lh->{$z[509]}}==0){&ln('');
}}sub lm{my$lh=$ab{$z[505]}{$z[508]}||={};my($lo,$lj,$km)=@_;
my$lp;if($lo){$lp="$ab{'datadir'}$lo.lock";}else{$lp=$ab{$z[512]};
}if(not exists$lh->{$z[513]}{$lo}){$lh->{$z[513]}{$lo}{$z[107]}
=$lp;$lh->{$z[513]}{$lo}{$z[514]}=&lq();sysopen($lh->{$z[513]}{$lo}{$z[514]},
$lh->{$z[513]}{$lo}{$z[107]},O_RDWR|O_CREAT)||&ak($z[512],"error opening $lj file lock $lh->{'lockinfo'}{$lo}{'filename'}: $!\n");
}else{&ak("_lock_flock: already a lock for semaphore '$lo'");
}my$lr;if($lj eq$z[510]){$lr=LOCK_SH;}if($lj eq$z[273]){$lr
=LOCK_EX;}if($km>0){$lr|=LOCK_NB;}my$ls=time()+$km;until(flock($lh->{$z[513]}{$lo}{$z[514]},
$lr)){if(time()<$ls){sleep(1);}else{close($lh->{$z[513]}{$lo}{$z[514]});
&ak($z[515]);}}return 1;}sub ln{my$lh=$ab{$z[505]}{$z[508]}
||={};my($lo)=@_;unless(flock($lh->{$z[513]}{$lo}{$z[514]},
LOCK_UN)){&ak($z[512],"error releasing a flock() on file lock $lh->{'lockinfo'}{$lo}{'filename'}: $!\n");
}unless(close($lh->{$z[513]}{$lo}{$z[514]})){&ak($z[512],"error closing file lock $lh->{'lockinfo'}{$lo}{'filename'}: $!\n");
}delete$lh->{$z[513]}{$lo};return 1;}sub ut{my$gd=shift;$gd
=~s|\\|/|g;if($gd=~m|^/|){return$gd;}if($gd=~m|^\w:/|){return
$gd;}return<($ab{$z[516]}.$z[61].$gd);}sub lt{my$gd=shift;
$gd=~s|\\|/|g;1 while$gd=~s|[^/]*/\.\./||;return$gd;}sub ma
{my($lu,@bm)=@_;$lu=~s/\s+//g;$lu=uc$lu;my$lv;my$lw=-1;my$lx;
foreach$lx(split(/,/,$lu)){$lw++;my$ly=shift@bm;my$lz=$lx=~
s/\[|\]//g;if($lx eq$z[517]){@bm=();last;}next if($lz and not
defined$ly);next if($lx eq$z[518]and defined$ly);next if($lx
=~/\bVALUE\b/and not ref($ly)and defined($ly));next if(uc(ref
$ly)=~/\b$lx\b/);next if($lx=~/\bINT\b/and$ly!~/[^0-9\.\e\-]/i
and$ly==int($ly));$lv.=", "if$lv;$lv.="\$_[$lw] must be ";$lv
.="either "if$lz;$lv.=$lx;$lv.=" or undefined"if$lz;$lv.=" ARG: $ly.";
}if(@bm){$lw++;$lv.=", "if$lv;$lv.="extra argument(s) \@_["
.($lw)." .. ".($lw+$#bm)."]";}return 1unless$lv;my$gh=(caller(1))[3];
$gh=~s/^main:://;&ak("Invalid arguments passed to $gh".": $lv");
}sub bn{&ma($z[519],@_);my($bk,$mb,$bm)=@_;$bm||={};my$mc;foreach
$mc($z[48],$z[49]){unless(exists$bm->{$mc}){$bm->{$mc}=$ab{$mc};
}}unless($mb){&ak("resolve_server_markup: file_extension not supplied");
}unless($bm->{$z[48]}){&ak("resolve_server_markup: temp_base_dir argument not supplied");
}unless($bm->{$z[49]}){&ak("resolve_server_markup: temp_base_url argument not supplied");
}unless(-e"$bm->{'temp_base_dir'}"){&ak("resolve_server_markup: temp directory does not exist");
}my$md=$af{$z[520]}||3;if($ENV{$z[521]}>=$md){return("Content-type: text/html\n\n",
"[Dynamic SSI Error: SSI recursion limit of $md reached. This page was not parsed for server-side markup.]\n\n"
.$bk);}my$me;my($mf,$mg)=("temp_$^T","");my$mh;&fd();while(1)
{$me="$mf$mg.$mb";last unless-e"$bm->{'temp_base_dir'}$me";
$mh++;$mg=sprintf($z[522],$mh);}&fe();open(AB,">$bm->{'temp_base_dir'}$me")
||&ak("resolve_server_markup: could not create temp file '$bm->{'temp_base_dir'}$me' : $!");
print AB$bk||&ak("resolve_server_markup: could not write to temp file '$bm->{'temp_base_dir'}$me' : $!");
close(AB)||&ak("resolve_server_markup: could not close temp file '$bm->{'temp_base_dir'}$me' : $!");
my$mi=&mj();if($ac{$z[523]}||$ac{$z[524]}){my$mk=$ac{$z[523]}
.":".$ac{$z[524]};$mi->{$z[525]}="Basic ".&ml($mk);}if($bm->{$z[526]})
{$mi->{$z[527]}='';$mi->{$z[528]}.=$z[529]if length$mi->{$z[528]};
$mi->{$z[528]}.=$z[530];}my$mm="$bm->{'temp_base_url'}$me";
my($mn,$mo,$mp)=&mq($mm,$mi);unless($af{$z[531]}{$z[532]}){
unlink("$bm->{'temp_base_dir'}$me");}return($mo,$mp);}sub mj
{&ma('',@_);my%bj;my$mr;foreach$mr(keys%ENV){$mr=~/^HTTP_/i
||next;my$ms=$ENV{$mr};my$mt;$mt=$mr;$mt=~s/^HTTP_//;$mt=~s/_/-/g;
$mt=~s/(\w+)/ucfirst lc$1/eg;$bj{$mt}=$ms;}my@mu=($z[533],$z[525],
$z[528],$z[534],$z[535],$z[536],$z[537],$z[538],$z[539],$z[540],
$z[541],$z[542],$z[543],$z[544],$z[545],$z[546],$z[547],$z[548],
$z[549],$z[550],$z[551],$z[552],$z[553],$z[554],$z[555],$z[556]
);my%mv=map{uc($_)=>1}@mu;my$mt;foreach$mt(keys%bj){if($mv{uc
$mt}){delete$bj{$mt};}}$bj{$z[557]}=join($z[558],map{"$_=$ah{$_}"
}keys%ah);if(not exists$bj{$z[559]}){$bj{$z[559]}=1;}$bj{$z[559]}++;
my$mw;if($ENV{$z[560]}eq($ENV{$z[561]}||$ENV{$z[562]})){$mw
=$ENV{$z[563]}||$ENV{$z[564]}||$ENV{$z[560]};}else{$mw=$ENV{$z[560]};
}$bj{$z[565]}=$mw;$bj{$z[566]}=$mw;return\%bj;}sub qb{&ma($z[567],
@_);my($mx)=@_;my$mz={};$mz->{$z[568]}=$mx;@{$mz}{$z[569],$z[487],
$z[570],$z[571],$z[572],$z[573]}=$mx=~m{^(?:(\w+://)([^/]*))?([^?\#]*?)([^/?\#]*)(?:(\?[^\#]*))?(?:(\#.*))?$};
unless(length$mz->{$z[570]}){$mz->{$z[570]}=$z[61];}return$mz;
}sub kn{my($gt)=@_;if($gt=~/^\d+\.\d+\.\d+\.\d+$/){return$gt;
}else{$gt.=$z[32]unless$gt=~/\.$/;return$gt;}}1;;sub ni{my($na,
$nb)=@_;foreach(@{$na->{$z[176]}}){my($nc,$gh)=@{$_};if(!defined
&{$gh}&&!defined&{$ab{$z[574]}{$nc}}){die("The action '$nc' defined as a handler for db '$na->{'name'}' does not have a custom handler or a default handler");
}if((!$nb&&$ag{$na->{$z[45]}.$z[575].$nc})||$nb eq$nc){if(defined
&{$gh}){&{$gh}($na);exit;}else{&{$ab{$z[574]}{$nc}}($na);exit;
}}}if($nb){die"Unable to execute forced action '$nb' on db '$na->{'name'}'";
}}sub uu{my$na=shift;my$ap=&nd($na);&ne($na,$ap);}sub uv{my
$na=shift;my$ap=&nf($na);&ng($na,$ap);&nh($z[576],$ap);exit;
}sub uw{my$na=shift;if(!$ac{$z[577]}){&ni($na,$z[177]);}my$ap
=&nj($na);&nh($z[577],$ap);exit;}sub ux{my$na=shift;my$ap=&nk($na);
&nl($na,$ap);}sub uy{my$na=shift;&dl;my$nm=&nn($na);my$np=&nq($na,
$nm);&nr($na,$nm);&ns($na,$nm);&dn;&nt($na,$np);&nu($na);}sub
uz{my$na=shift;my($ee,$ef);my$nv={$z[54]=>$af{$z[578]}{$z[54]},
$z[579]=>1,$z[83]=>'',};$nv=&nw($na,$nv);foreach(split(/\s+/,$na->{$z[80]}))
{push(@$ef,[$_,$z[277],$nv->{$z[83]}]);}my$aq=sub{my$nx=shift;
if(!defined$nx->{$z[580]}&&$nx->{$z[25]}){my$it=&ig(0,0,0,$nx->{$z[26]},$nx->{$z[25]}-1,$nx->{$z[24]});
$nx->{$z[580]}=&cl($ab{$z[97]},$it);}$nx->{$z[581]}=&cl($ab{$z[145]},int($nx->{$z[581]}))
if$nx->{$z[581]};$nx->{$z[63]}=&cl($ab{$z[145]},int($nx->{$z[63]}))
if$nx->{$z[63]};$ad{$z[582]}=$ad{$z[582]}eq$z[583]?$z[584]:
$z[583];return&cq($z[123],$nx);};my$ap=&ny($na,$aq,$nv,$ee,
$ef);&nz($ap);}sub nd{my$na=shift;$ad{$z[585]}=$na->{$z[149]};
$ad{$z[586]}=$na->{$z[45]};&am($na->{$z[151]},{});my($ap)={};
if($na->{$z[587]}&&&oa($na)>=$na->{$z[587]}){&nh($z[588],$na);
}my($iq,$ho,$hp)=(localtime(&cw($^T)))[3,4,5];$ho++;$hp+=1900;
$ap->{"day_$iq".$z[589]}=$z[590];$ap->{"mon_$ho".$z[589]}=$z[590];
$ap->{"year_$hp".$z[589]}=$z[590];foreach(split(/ /,$na->{$z[75]}))
{if(/^ufile/&&!$ap->{$_}){$ap->{$_}=$z[591];}}$ap->{$z[581]}
=&cl($ab{$z[145]},&cw($^T));$ap->{$z[63]}=&cl($ab{$z[145]},&cw($^T));
$ap->{$z[592]}=$ai{$z[45]}||"unknown user";$ap->{$z[593]}=$ai{$z[45]}
||"unknown user";return$ap;}sub ne{my($na,$ap)=@_;if($ab{$z[134]}{$z[135]}{$z[594]})
{&nh($z[594],$ap);}else{&nh($z[576],$ap);}exit;}sub nf{my$na
=shift;$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}=$na->{$z[45]};
&am($na->{$z[151]},{});my($li)=int$ag{$na->{$z[45]}.$z[595]};
my$ap={};&ob($na,$ap,$li)||&ak($z[596],$li);return$ap;}sub
ng{my($na,$ap)=@_;foreach(split(/ /,$na->{$z[75]})){if(/^ufile/
&&!$ap->{$_}){$ap->{$_}=$z[591];}}foreach(keys%{$ap}){$ap->{$_}
=&gi($ap->{$_});}foreach(keys%{$ap}){if(!/\W/&&$ap->{$_}!~/\W/)
{$ap->{$_.$z[575].$ap->{$_}.$z[597]}=$z[598];$ap->{$_.$z[575].$ap->{$_}.$z[589]}
=$z[590];}}$ap->{$z[581]}=&cl($ab{$z[145]},&cw($ap->{$z[581]}))
if$ap->{$z[581]};$ap->{$z[63]}=&cl($ab{$z[145]},&cw($ap->{$z[63]}))
if$ap->{$z[63]};my%oc;&ob($ae{$z[199]},\%oc,$ap->{$z[592]})
if$ap->{$z[592]};$ap->{$z[592]}=$oc{$z[45]}||"unknown user";
&ob($ae{$z[199]},\%oc,$ap->{$z[593]})if$ap->{$z[593]};$ap->{$z[593]}
=$oc{$z[45]}||"unknown user";return$ap;}sub nj{my$na=shift;
$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}=$na->{$z[45]};&am($na->{$z[151]},
{});my($li)=int($ag{$na->{$z[45]}.$z[599]})||int($ag{$z[21]});
my($ap)={};&ob($na,$ap,$li)||&ak($z[596],$li);return$ap;}sub
nk{my$na=shift;$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}=$na->{$z[45]};
&am($na->{$z[151]},{});my($li)=$ag{$z[21]}||$ag{$na->{$z[45]}.$z[599]};
my$ap={};&dl();&ob($na,$ap,$li)||&ak($z[596],$li);&od($na,$li)
||die($z[600].$li);&dn();&oe($ap,$ac{$z[601]});if(defined&{$na->{$z[175]}})
{&{$na->{$z[175]}}($li,$z[177],$ap);}return$ap;}sub nl{my($na,
$ap)=@_;if(!$ac{$z[602]}){&ni($na,$z[178]);}&nh($z[603],$ap);
exit;}sub nn{my$na=shift;$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}
=$na->{$z[45]};&am($na->{$z[151]},{});my($li)=int($ag{$z[21]});
my$nm={};if($na->{$z[587]}){my($cc)=&oa($na);if($li&&$cc>$na->{$z[587]})
{&nh($z[588],$na);}elsif(!$li&&$cc>=$na->{$z[587]}){&nh($z[588],$na);
}}if($li){&ob($na,$nm,$li)||die("ui_save : Can't find record #$li");
}return($nm);}sub nq{my($nx)=$_[0]->{$z[45]}||die($z[604]);
my($li)=int($ag{$z[21]});my(%nx)=%{$_[1]||{}};my(%fv,%gp,$fj,%np,%ap);
if(!$ac{$z[601]}){die("ui_save_uploads: No upload directory has been defined in setup options!\n");
}if(!-d$ac{$z[601]}){die("ui_save_uploads: Upload directory '$ac{'dir_upload'}' doesn't exist!\n");
}if(!-w$ac{$z[601]}){die("ui_save_uploads: Upload directory isn't writable!\n");
}%fv=&bq($ac{$z[601]});foreach(split(/ |\,/,$ac{$z[605]})){
$gp{$_}++if$_;}foreach$fj(split(/ /,$_[0]->{$z[75]})){if($fj
!~/^ufile/){next;}if($ag{$fj}){if($ac{$z[606]}&&length($ag{$fj})
>$ac{$z[607]}*1000){my$of=length($ag{$fj});$np{$z[608]}.=qq|$ag{$fj."_file"} ($of bytes, file too large)
\n|;
$ag{$fj}=$nx{$fj};next;}if(!$gp{lc$ag{$fj.$z[320]}}){$np{$z[608]}
.=qq|$ag{$fj."_file"} ('$ag{$fj.'_ext'}' files not accepted)
\n|;
$ag{$fj}=$nx{$fj};next;}if($nx{$fj}&&$fv{$nx{$fj}}){unlink("$ac{'dir_upload'}/$nx{$fj}");
}my($og);my($oh)=lc$ag{$fj.$z[319]};my($oi)=lc$ag{$fj.$z[320]};
my($oj)=$z[609];$oh=~s/\.[^\.]*$//g;$oh=~s/[^a-z0-9_\-]/_/g;
$oi=~s/[^a-z0-9_\-]/_/g;$og="$oh.$oi";if(-e"$ac{'dir_upload'}/$og")
{do{$oj=sprintf($z[414],++$oj);$og=$oh."_$oj.$oi";}while(-e
"$ac{'dir_upload'}/$og");}open(AB,">$ac{'dir_upload'}/$og")
||die($z[610]."$og $!\n");binmode AB;print AB$ag{$fj};close(AB);
if($og=~/\.(gif|jpg|jpeg|png)$/i){my($jt,$ju,$ok)=&ol("$ac{'dir_upload'}/$og");
if(($ac{$z[611]}&&$ju>$ac{$z[611]})||($ac{$z[612]}&&$jt>$ac{$z[612]}))
{unlink("$ac{'dir_upload'}/$og");$np{$z[608]}.=qq|$ag{$fj."_file"} (${ju}x$jt, image too big)
\n|;
$ag{$fj}=$nx{$fj};next;}}$ag{$fj}=$og;}elsif($ag{$fj.$z[319]})
{if($nx{$fj}&&$fv{$nx{$fj}}){unlink("$ac{'dir_upload'}/$nx{$fj}");
}$nx{$fj}='';}else{$ag{$fj}=$nx{$fj};}}return\%np;}sub nr{my
($na,$nm)=@_;my($li)=int($ag{$z[21]});$ag{$z[581]}=$li?$nm->{$z[581]}
:$^T;$ag{$z[592]}=$li?$nm->{$z[592]}:$ai{$z[21]};$ag{$z[613]}
=$li?$nm->{$z[613]}:$ai{$z[21]};$ag{$z[63]}=$^T;$ag{$z[593]}
=$ai{$z[21]};my$om;foreach$om($na->{$z[75]}=~/\bufile([^ ]*)\b/g)
{if($na->{$z[75]}=~/\bimagewidth\Q$om\E\b/){($ag{$z[614].$om},
$ag{$z[615].$om})=&ol($ac{$z[601]}.$ag{$z[616].$om});}}}sub
ns{my($na,$nm)=@_;my($li)=int($ag{$z[21]});if($li){&ev($na,
\%ag,$li);}else{$ag{$z[21]}=&fb($na,\%ag,$li);}if(defined&{$na->{$z[175]}})
{&{$na->{$z[175]}}($ag{$z[21]},$z[617],$nm);}}sub nt{my($na,
$np)=@_;if(keys%{$np}){undef$ac{$z[607]}if!$ac{$z[606]};$np->{$z[21]}
=$ag{$z[21]};$np->{$z[618]}=&cq($z[618],\%ac)if$ac{$z[607]};
$np->{$z[619]}=&cq($z[619],\%ac)if$ac{$z[611]};$np->{$z[620]}
=&cq($z[620],\%ac)if$ac{$z[612]};$np->{$z[621]}=&cq($z[621],
{$z[605]=>$ac{$z[605]}?$ac{$z[605]}:$z[622]});&nh($z[623],$np);
exit;}}sub nu{my($na)=@_;if(!$ac{$z[624]}){&ni($na,$z[178]);
}&nh($z[625],\%ag);exit;}sub nz{my$ap=shift;&nh($z[178],$ap);
exit;}sub nw{my($na,$nv)=@_;$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}
=$na->{$z[45]};if(ref($na)ne$z[235]){die$z[626]."\n";}&am($na->{$z[151]},
{});if($ag{$na->{$z[45]}.$z[627]}){my$on={};while($ah{$na->{$z[45]}.$z[628]}
=~/(.*?)\t(.*?)\t/g){$on->{$1}=$2;}$nv->{$z[54]}=$ag{$z[629]}
||$on->{$z[54]};}else{while($ah{$na->{$z[45]}.$z[628]}=~/(.*?)\t(.*?)\t/g)
{$nv->{$1}=$2;}foreach(keys%{$nv}){if(defined$ag{$z[575].$_})
{if($_ ne$z[54]&&$_ ne$z[579]){$nv->{$z[579]}=1;}$nv->{$_}=
$ag{$z[575].$_};}}}&oo($na->{$z[45]}.$z[628],join("\t",map{
$_,$nv->{$_}}keys%{$nv})."\t");foreach(keys%{$nv}){$ad{$z[575]
.$_}=$nv->{$_};$ad{$z[575].$_.$z[575].$nv->{$_}.$z[589]}=$z[590];
$ad{$z[575].$_.$z[575].$nv->{$_}.$z[597]}=$z[598];}return$nv;
}sub ny{my($na,$aq,$nv,$ee,$ef)=@_;my%ap;my$jw=sub{$ap{$z[630]}
.=&{$aq}(@_);};($ap{$z[631]},$ap{$z[632]},$ap{$z[633]},$ap{$z[634]},
$ap{$z[635]},$ap{$z[636]})=&op($na,$jw,$nv->{$z[579]},$nv->{$z[54]},
$ee,$ef);unless($ap{$z[630]}){if($ab{$z[134]}{$z[135]}{$z[637]}
&&scalar grep{$_ ne$z[54]&&$_ ne$z[579]&&$nv->{$_}ne''}keys
%{$nv}){$ap{$z[630]}=&cq($z[637],{});}else{$ap{$z[630]}=&cq($z[129],
{});}}return\%ap;}sub di{my$na=shift;my($ee,$ef);my$nv={$z[54]
=>$af{$z[578]}{$z[54]},$z[579]=>1,$z[83]=>'',};$nv=&nw($na,
$nv);foreach(split(/\s+/,$na->{$z[80]})){push(@$ef,[$_,$z[277],
$nv->{$z[83]}]);}my$aq=sub{my$nx=shift;$nx->{$z[638]}=$aj[$nx->{$z[639]}];
if(!defined$nx->{$z[580]}&&$nx->{$z[25]}){my$it=&ig(0,0,0,$nx->{$z[26]},$nx->{$z[25]}-1,$nx->{$z[24]});
$nx->{$z[580]}=&cl($ab{$z[97]},$it);}$nx->{$z[581]}=&cl($ab{$z[145]},int($nx->{$z[581]}))
if$nx->{$z[581]};$nx->{$z[63]}=&cl($ab{$z[145]},int($nx->{$z[63]}))
if$nx->{$z[63]};$ad{$z[582]}=$ad{$z[582]}eq$z[583]?$z[584]:
$z[583];return&cq($z[123],$nx);};my$ap=&ny($na,$aq,$nv,$ee,
$ef);&nz($ap);}sub va{my$na=shift;&dl();my$nm=&nn($na);my$np
=&nq($na,$nm);&nr($na,$nm);my%oq;if(&or($na,\%oq,$z[640],$ag{$z[640]}))
{if($oq{$z[21]}!=$nm->{$z[21]}){&dn();&nh($z[641],\%ag);}}if
($ag{$z[21]}==$ai{$z[21]}&&$ag{$z[639]}<9){&dn();&nh($z[642],
{});}&ns($na,$nm);my%os;if(&or($ae{$z[204]},\%os,$z[21],$ag{$z[21]}))
{&ev($ae{$z[204]},\%ag,$ag{$z[21]});}&dn();&nt($na,$np);&nu($na);
}sub vb{my$na=shift;if(!$ac{$z[577]}){&ni($na,$z[177]);}my$ap
=&nj($na);if($ap->{$z[21]}==$ai{$z[21]}&&$ag{$z[639]}<9){&nh($z[642],
{});}&nh($z[577],$ap);}sub dh{my$na=shift;my$li=$ag{$z[21]}
||$ag{$na->{$z[45]}.$z[599]};if($li==$ai{$z[21]}&&$ag{$z[639]}
<9){$ad{$z[585]}=$na->{$z[149]};$ad{$z[586]}=$na->{$z[45]};
&am($na->{$z[151]},{});&nh($z[642],{});}&dl();&ob($ae{$z[199]},
{},$ai{$z[21]})||&ot($z[643],{});my$ap=&nk($na);&od($ae{$z[204]},
$li);&dn();&nl($na,$ap);}sub pm{my$kd=shift;if($ac{$z[644]}
eq$z[645]){my%bm=(host=>$ac{$z[646]},helo=>$af{$z[647]}{$z[648]},
timeout=>$af{$z[647]}{$z[649]},pop3_auth=>$ac{$z[650]},pop3_host
=>$ac{$z[651]},pop3_user=>$ac{$z[652]},pop3_pass=>$ac{$z[653]});
&ou($kd,\%bm)||die("Error sending message: $ab{'error'}");}
elsif($ac{$z[644]}eq$z[654]){if(!-e$ac{$z[655]}){die("sendmail: can't find sendmail program '$ac{'mail_sendmail'}'\n");
}local(*AL);my($ko)=&ke($kd);open(AL,"|$ac{'mail_sendmail'} -f $ko -t")
||die"Can't open $ac{'mail_sendmail'} : $!";print AL$kd;close(AL);
}elsif(!$ac{$z[644]}){die("sendmail: no mailer specified in setup options!\n");
}else{die("sendmail: unknown mailer '$ac{'mail_mailer'}' specified!\n");
}}sub vc{my($ge)=$_[0];my($ov)=$ag{$z[656]}||die("browse: you must pass a name/value for the 'fieldname'!\n");
my(%ap,$gf);if($ge ne$z[657]&&$ge ne$z[571]){die("browse: the first argument must be either 'dir' or 'file'!\n");
}if($ag{$z[658]}){&ow($z[659].$z[660].$ab{$z[661]}.$z[662]);
}if($ag{$z[663]}){&ow($z[664].$z[660].$ab{$z[661]}.$z[662]);
}if($ag{$z[657]}){&ow($z[665].$z[660].$ab{$z[661]}.$z[662]);
}if(!-d$ac{$z[666]}){delete$ac{$z[666]};}if($ag{$z[667]}){if
(-f$ag{$z[667]}){$ag{$z[667]}=~s!^(.+)(\\|/).*?$!$1!;}if(-d
$ag{$z[667]}){$ag{$z[657]}=$ag{$z[667]};}}if($af{$z[668]}){
$ag{$z[657]}=$ac{$z[666]};}&am("_browse_$ge.html",{});my$ox
="/";$ap{$z[656]}=$ag{$z[656]};if($ag{$z[658]}){$ap{$z[669]}
=$ag{$z[669]};if(!$ag{$z[669]}){$ad{$z[670]}=$z[671];}elsif
($ag{$z[669]}=~m/[^\w\-]/i){$ad{$z[670]}=$z[672];}elsif(!mkdir("$ag{'cdir'}$ox$ag{'mkdir_name'}",0777)){
$ad{$z[670]}=$z[673].$!;}if($ad{$z[670]}){$ad{$z[670]}=&cq($z[670],\%ad);
}}if($ag{$z[663]}){local(*AB);$ap{$z[674]}=$ag{$z[674]};if(!$ag{$z[674]})
{$ad{$z[675]}=$z[676];}elsif($ag{$z[674]}=~m/[^\w\-\.]/i){$ad{$z[675]}
=$z[677];}elsif(-e"$ag{'cdir'}$ox$ag{'mkfile_name'}"){$ad{$z[675]}
=$z[678];}elsif(!open(AB,">$ag{'cdir'}$ox$ag{'mkfile_name'}"))
{$ad{$z[675]}=$z[679].$!;}close(AB);if($ad{$z[675]}){$ad{$z[675]}
=&cq($z[675],\%ad);}}$ap{$z[657]}=$ag{$z[657]}||$ac{$z[666]}
||$ab{$z[516]};$ap{$z[657]}=~s/^(.+)(\\|\/)+$/$1/;$ap{$z[680]}
=$ap{$z[657]};$ap{$z[680]}=~s!^([a-z]:)!$1/..!i;$ap{$z[681]}
=($ap{$z[657]}=~m#^(.*)[\\/]#,$1||$ox);$ap{$z[682]}=&ha($ap{$z[681]});
$ap{$z[178]}.=&cq($z[681],\%ap)if($ap{$z[657]}=~m!.+(\\|/)!);
if(!-e$ap{$z[657]}){$ap{$z[493]}=$z[683];}elsif(!-r$ap{$z[657]})
{$ap{$z[493]}=$z[684];}if($ap{$z[493]}){print"Content-type: text/html\n\n"
unless($ab{$z[685]}++);$ap{$z[178]}.=&cq($z[493],\%ap);print
&am($z[686],\%ap);exit;}opendir(AC,"$ap{'dir2'}");my@gf=sort
{lc$a cmp lc$b}grep(!/^\.+$/,readdir(AC));closedir(AC);my($bq);
foreach$bq(@gf){-d"$ap{'dir'}$ox$bq"||next;$ap{$z[45]}=$bq;
$ap{$z[687]}="$ap{'dir'}$ox$bq";$ap{$z[687]}=~s/$ox+/$ox/g;
$ap{$z[688]}=&ha($ap{$z[687]});($ap{$z[689]},$ap{$z[690]})=
(stat($ap{$z[687]}))[7,9];next if$ap{$z[690]}eq"";$ap{$z[691]}
=&cl($ab{$z[145]},$ap{$z[690]});$ap{$z[178]}.=&cq($z[657],\%ap);
$gf++;}my($fv);foreach$fv(@gf){-d"$ap{'dir'}$ox$fv"&&next;$ap{$z[45]}
=$fv;$ap{$z[687]}="$ap{'dir'}$ox$fv";($ap{$z[689]},$ap{$z[690]})
=(stat($ap{$z[687]}))[7,9];next if$ap{$z[690]}eq"";if($ap{$z[689]})
{$ap{$z[689]}=(int($ap{$z[689]}/1000)||1)."KB";}else{$ap{$z[689]}
="0KB";}$ap{$z[691]}=&cl($ab{$z[145]},$ap{$z[690]});$ap{$z[687]}
=~s/'/\\'/g;$ap{$z[687]}=~s/\\/\\\\/g;if(-f"$ap{'dir'}$ox$fv")
{$ap{$z[178]}.=&cq($z[571],\%ap);}else{$ap{$z[178]}.=&cq($z[692],\%ap);
}$gf++;}if(!$gf){$ap{$z[178]}.=&cq($z[693],{});}print"Content-type: text/html\n\n"
unless($ab{$z[685]}++);print&am("_browse_$ge.html",\%ap);exit;
}sub vd{my($ks,$kv);if($ENV{$z[313]}=~/^[\w\-]+\.gif$/){$ks
=$z[694]."\n\n";}elsif($ENV{$z[313]}=~/^[\w\-]+\.jpg$/){$ks
=$z[695]."\n\n";}else{return;}$kv=&am($ENV{$z[313]},{},$z[329]);
if($kv){binmode(STDOUT);print$ks ;print$kv ;exit;}}sub cw{my
$it=$_[0]||die("time_adj: first argument must be time()\n");
if($ac{$z[696]}eq$z[594]){$it+=$ac{$z[697]}*60*60;}if($ac{$z[696]}
eq$z[698]){$it-=$ac{$z[697]}*60*60;}if($ac{$z[699]}eq$z[594])
{$it+=$ac{$z[700]}*60;}if($ac{$z[699]}eq$z[698]){$it-=$ac{$z[700]}*60;
}return$it;}sub ve{my($aq,$oy,$oz,$pa,%os);my(%ap,%pb);if(!$ag{$z[701]}
&&!$ah{$z[640]}){&ot(undef,\%ap);}if($ag{$z[701]}){($oy,$oz)
=(lc$ag{$z[640]},lc$ag{$z[702]});if(!$oy&&!$oz){&ot($z[643],
\%ap);}if(!$oy||!$oz){&ot($z[643],\%ap);}$aq=sub{if(lc$pb{$z[640]}
eq$oy&&lc$pb{$z[702]}eq$oz){$pa=$pb{$z[21]};}};&bi($ae{$z[199]},
$aq,\%pb);if(!$pa){&ot($z[643],\%ap);}&ob($ae{$z[199]},\%pb,
$pa);$pb{$z[581]}=$^T;$pb{$z[63]}=$^T;&ev($ae{$z[204]},\%pb,
$pa);}else{($oy,$oz)=(lc$ah{$z[640]},lc$ah{$z[702]});if(!$oy
||!$oz){&ot($z[703],\%ap);}$aq=sub{if(($af{$z[704]}&&$pb{$z[63]}
<$^T-60*$af{$z[704]})||$pb{$z[63]}<$^T-60*60*24){&od($ae{$z[204]},
$pb{$z[21]});}elsif(lc$pb{$z[640]}eq$oy&&lc$pb{$z[702]}eq$oz)
{$pa=$pb{$z[21]};}};&bi($ae{$z[204]},$aq,\%pb);if(!$pa){&ot($z[703],
\%ap);}&ob($ae{$z[204]},\%pb,$pa);$pb{$z[63]}=$^T;&ev($ae{$z[204]},
\%pb,$pa);}&oo($z[640],$oy);&oo($z[702],$oz);return%pb;}sub
ot{if(!$ab{$z[685]}++){print$z [705]."\n\n";}my($ft)=$_[0];
my(%ap)=%{$_[1]||{}};&am($z[706],{});foreach(keys%ap){$ap{$_}
=&gi($ap{$_});}if($ft&&!$ab{$z[134]}{$z[135]}{$ft}){die($z[707]."'$ft' isn't defined!\n");
}if($ft){$ap{$z[608]}=&cq($ft,\%ap);}print&cq($z[708],{});if
($ft){print&cq($z[709],\%ap);}else{print&cq($z[701],\%ap);}
print&cq($z[710],{});if($ab{$z[492]}){print"
";print"
$ab{'debug_output'}"
if($ab{$z[309]});}&pc();exit;}sub vf{&am($z[706],{});&oo($z[640],'');
&oo($z[702],'');$ac{$z[711]}=~s/^\s+|\s+$//g;if($ac{$z[711]}
&&$ENV{$z[313]}=~/logoff/i){print"Content-type: text/html\n\n";
print qq|Stack Trace ($gh) called from ($fv) line ($ew) ";print" $tu",
$ud)],$z[512]=>[("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: '$tu'.",
$ud)],$z[515]=>[($z[901],$z[902],$ud)],$z[903]=>[("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. ",
$ub)],$z[904]=>[("Publishing Error","The program cannot create or write to the file: The error was: $tu",
$ud)],);my($ue)=$ad{$z[784]}||$tw{$ge}[0]||"Program Message";
if($tw{$ge}[0]){$tx=$tw{$ge}[0];}elsif($tu&&$ge){$tx=&gi($ge);
}else{$tx="Program Message";}$np=$tw{$ge}[1]||$tu||&gi("@_");
if(!$tw{$ge}[1]){$np=~s/\n/ Stack Trace ";
print"
";
my$dw=0;while(my($fv,$ew,$gh)=(caller($dw++))[1,2,3]){print
qq!
\n!;}}if($ab{$z[492]})
{print"$ab{'debug_output'}"if($ab{$z[309]});
}&pc();exit;}sub pc{print$z [798]."\n";print$ad {$z[784]}.$z[799]
.$ab{$z[0]}.$z[800].$ab{$z[801]}.$z[32].$ab{$z[2]}.")\n";print$z
[802].$ad{$z[776]}.$z[803].$ad{$z[772]}.$z[803].$ad{$z[773]}
."\n";printf($z[804]."\n",time()-$^T);print$z [805]."\n";}sub
vj{my(@gf)=map"$ab{'datadir'}$ae{$_}{'datafile'}",keys%ae;my(@qe)
=($ab{$z[806]});my($bq,$fv,$qf);foreach$bq(sort@qe){if($bq
eq""){next;}if(!-d$bq||!-w$bq){$qf.="$bq\n";}}foreach$fv(sort
@gf){$fv=~s/\\/\//g;1 while$fv=~s!/[^/]+/\.\./!/!;if(-f$fv&&
!-w$fv){$qf.="$fv\n";}}if($qf){&ak($z[807],$qf);}}sub po{return
unless$af{$z[668]};my$kd=shift;&ot($z[808],{$z[608]=>$kd});
}sub ow{return unless$af{$z[668]};my$kd=shift;$kd=&ha($kd);
print"Content-type: text/html\n\n";print qq|\n|
;exit;}sub vk{&am($ae{$z[206]}{$z[151]},{});my%qg;my$qh;foreach
$qh(keys%{$ab{$z[809]}}){my%ap=($z[810]=>$qh,$z[811]=>$ab{$z[809]}{$qh}
);$qg{$qh}[0]=&cq($z[812],\%ap);$qg{$qh}[1]=&cq($z[813],\%ap);
}foreach$qh(keys%{$ab{$z[809]}}){my$qi=join'',map{$qg{$_}[$qh
==$_?1:0]}sort keys%{$ab{$z[809]}};$ad{$z[814].$qh}=&cq($z[815],
{$z[816]=>$qi});}}1;;sub vl{my$qj=shift||die("ip2num : no ip or host specified!\n");
my($a,$b,$qk,$ql,$li);if($qj=~/[^0-9\.]/){my$kq=gethostbyname("$qj.")
||die("ip2num: Can't find IP for host '$qj'!\n");($a,$b,$qk,$ql)
=unpack($z[817],$kq);}else{($a,$b,$qk,$ql)=split(/\./,$qj);
}$li+=$ql*(256**0);$li+=$qk*(256**1);$li+=$b*(256**2);$li+=
$a*(256**3);return$li;}sub vm{my$li=shift||die("num2ip : no number specified!\n");
my($a,$b,$qk,$ql);$a=($li/256**3)% 256;$b=($li/256**2)% 256;
$qk=($li/256**1)% 256;$ql=($li/256**0)% 256;return join$z[32],
$a,$b,$qk,$ql;}sub vn{my$it=shift||time();$it-=(localtime($it))[6]
* 60*60*24;$it-=(localtime($it))[2]* 60*60;$it-=(localtime($it))[1]
* 60;$it-=(localtime($it))[0]* 1;return$it;}sub vo{my$it=shift
||time();$it-=(localtime($it))[2]* 60*60;$it-=(localtime($it))[1]
* 60;$it-=(localtime($it))[0]* 1;return$it;}sub vp{my$hk=int
shift;my$hl=int($hk/60);my$hm=int($hl/60);$hl%=60;$hk%=60;return
sprintf("%01d:%02d:%02d",$hm,$hl,$hk);}sub vq{my$li=reverse
int shift;$li=~s/(...)\B/$1,/g;return reverse$li;}sub cu{my
$li=shift;if($li==int($li)){return$li;}elsif($li<0){return
int$li;}else{return int($li)+1;}}sub vr{my$li=shift;if($li==
int($li)){return$li;}elsif($li<0){return int($li)-1;}else{return
int$li;}}sub cv{return(sort{$a<=>$b}@_)[0];}sub vs{return(sort
{$a<=>$b}@_)[-1];}1;;sub bl{local(*AB);my($fv,%fy,$bk,$gy);
%fy=%{$_[1]}if$_[1];my$qm=$_[3];my$qn=$_[5];my%gz;%gz=($z[327]
=>0,$z[328]=>0,$z[329]=>0,$z[330]=>0,$z[50]=>0,$z[818]=>0);
foreach(split(/ /,$_[2])){if(undef$gz{$_}){die($z[331]."'$_'\n");
}$gz{$_}=1;}unless($gz{$z[327]}){$gz{$z[328]}=1;}if(!$_[0])
{die$z[332]."\n";}if(ref($_[1])ne$z[235]){die$z[819]."\n";}
if(!$gz{$z[328]}||!$ab{$z[134]}{$z[328]}{$_[0]}){if(-e"$_[0]")
{$fv=$_[0];}else{foreach(grep/^templatedir/,sort keys%ab){if
(-e"$ab{$_}/$_[0]"){$fv="$ab{$_}/$_[0]";last;}}if(!$fv){die
$z[334]."'$_[0]'".$z[335]."\n";}}}if($gz{$z[328]}&&$ab{$z[134]}{$z[328]}{$_[0]})
{$bk=$ab{$z[134]}{$z[328]}{$_[0]};}else{open(AB,"<$fv")||die
$z[336]."$fv! $!\n";binmode(AB)if($fv=~/gif$/i||$fv=~/jpg$/i);
read(AB,$bk,-s AB);close(AB);}if($gz{$z[329]}){return$bk;}if
(!$gz{$z[328]}||!$ab{$z[134]}{$z[328]}{$_[0]}){foreach$gy($bk
=~m//g){$ab{$z[134]}{$z[135]}{"$qm$1"}=$2
if($bk=~m/(?:\r\n|\n)?(.*?)/is);
}$bk=~s/(?:\r\n|\n)?(.*?)//gis;
if($gz{$z[328]}){$ab{$z[134]}{$z[328]}{$_[0]}=$bk;}}if($gz{$z[50]})
{while($bk=~//i){my$qo=$1;
my$qp=$qo;$qp=~s/\$(\w+?)\$/defined$ad{$1}?$ad{$1}:$fy{$1}/eg;
unless($qp){$bk=~s///;next;
}if($qp=~m!^/!){;}else{if($_[4]){$qp="$_[4]$qp";}else{$qp=($fv
=~m!(.*/)!)[0].$qp;}}my$qs;if(not$ab{$z[134]}{$z[820]}{$qp}++)
{my$qt;if(-e"$qp"){$qt++;}else{foreach(grep/^templatedir/,sort
keys%ab){if(-e"$ab{$_}/$qp"){$qt++;last;}}}if($qt){$qs=&bl($qp,
$_[1],"$_[2] inside_ssi",$z[821],$_[4]);}else{$qs="[ Program Error - Could not include file \"$qp\" via template include ]";
}}else{$qs="[ Program Error - Cyclic Include - The file '$qp' is included by itself (perhaps indirectly). Please check include files for other Include statements. ]";
}$bk=~s//$qs/;delete$ab{$z[134]}{$z[820]}{$qp};
}}else{$bk=~s///gi;}$bk=~s//$1/gi;
$bk=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$fl=defined$ad{$1}
?$ad{$1}:$fy{$1};if($2 eq$z[337]){$fl=&ha($fl);}if($2 eq$z[338])
{$fl=&hb($fl);}if($2 eq$z[339]){$fl=&hb($fl);$fl=~s/ / /g;
}if($2 eq$z[340]){$fl=&hc($fl);}$fl;]ge;return$bk;}sub mq{use
Socket;my$AH="\015\012";my($mx,$qu,$qv)=@_;$mx=~s|\w+://||g;
my($gt,$kk,$fv)=$mx=~m|^(.*?)(?::(\d+))?([/?].*)?$|;$fv||=$z[61];
$qu->{$z[544]}=$gt;$qu->{$z[534]}=$z[822];$gt=&kn($gt);unless
(grep/^User-Agent$/i,keys%{$qu}){$qu->{$z[823]}="Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)";
}my($qy,$qz,$ra);if($qv){if($fv=~s/\?(.*)//){$qy=$1;}unless
(grep/^Content-Type$/i,keys%{$qu}){$qu->{$z[541]}=$z[824];}
unless(grep/^Content-Length$/i,keys%{$qu}){$qu->{$z[537]}=length
$qy;}$ra=$z[317];}else{$ra=$z[321];}my($rb,@rc);foreach$rb(split(/,\s*/,
$af{$z[330]}{$z[825]})){@rc=grep/^$rb$/i,keys%{$qu};for(@rc)
{delete$qu->{$_};}}my$rd;$rd.=$ra.$z[747].$fv.$z[826].$AH;foreach
(keys%{$qu}){$rd.=$_.$z[827].$qu->{$_}.$AH;}$rd.=$AH;$rd.=$qy
.$AH.$AH if$qv;my$re=&lq();my$kq=gethostbyname($gt)||die"Unknown host: $!";
socket($re,AF_INET,SOCK_STREAM,0)||die"No Socket: $!";connect($re,pack
"SnA4x8",AF_INET,$kk||80,$kq)||die"Can't connect : $!";select((select($re),$|++)[0]);
print$re $rd;my$rf;while(<$re>){$rf.=$_;}close($re);my($rg,
$mo,$rh)=$rf=~/^(.*?(?:\r\n|\n))(.*?(?:\r\n|\n)(?:\r\n|\n))?(.*)$/s;
if(wantarray){return($rg,$mo,$rh);}else{return$rh;}}sub cn{
my($is,$cd,$qm)=@_;$is=~s|
(\s*\*\*\*image\d+(?:\:(\w+))?\*\*\*)|
$1|gsi;
$is=~s[\s*\*\*\*image(\d+)(?:\:(\w+))?\*\*\*\s*][if($2 eq$z[568])
{$cd->{$z[120].$1}}else{my%ri;$ri{$z[828]}=$2||$af{$z[829]}{$z[830]}
||$z[831];$ri{$z[832]}=$cd->{$z[120].$1};$ri{$z[833]}=$cd->{$z[121]
.$1};$ri{$z[834]}=$cd->{$z[66].$1};$ri{$z[835]}=$cd->{$z[67]
.$1};&cq($qm.($ri{$z[833]}ne''?$z[833]:$z[836]),\%ri);}]eigo;
return$is;}sub vt{my($ap,$cd,$qm,$rj,$rk,@rl)=@_;$ap->{$z[86]}
=&cn($rj,$cd,$qm);$ap->{$z[88]}=&cn($rk,$cd,$qm);my$dw;for$dw
(1..$ab{$z[4]}){$ap->{$z[122].$dw}=&cn($rl[$dw-1],$cd,$qm);
}}sub vu{my($ap,$rj,$rk,@rl)=@_;($ap->{$z[86]}=$rj)=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;
($ap->{$z[88]}=$rk)=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;
my$dw;for$dw(1..$ab{$z[4]}){($ap->{$z[122].$dw}=$rl[$dw-1])
=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;}}sub vv{my$bk=shift;
my$it=$ad{$z[147]}||&cl($ab{$z[145]},$ac{$z[147]}||$^T);my$rm
=$z[837].$ab{$z[661]}.$z[44];$$bk=$z[838].$it.$z[839]."\n\n"
.$$bk;unless($$bk=~s/(
\n|;
$ag{$fj}=$nx{$fj};next;}if(!$gp{lc$ag{$fj.$z[320]}}){$np{$z[608]}
.=qq|$ag{$fj."_file"} ('$ag{$fj.'_ext'}' files not accepted)
\n|;
$ag{$fj}=$nx{$fj};next;}if($nx{$fj}&&$fv{$nx{$fj}}){unlink("$sh$nx{$fj}");
}my($og);my($oh)=lc$ag{$fj.$z[319]};my($oi)=lc$ag{$fj.$z[320]};
my($oj)=$z[609];$oh=~s/\.[^\.]*$//g;$oh=~s/[^a-z0-9_\-]/_/g;
$oi=~s/[^a-z0-9_\-]/_/g;$og="$oh.$oi";if(-e"$sh$og"){do{$oj
=sprintf($z[414],++$oj);$og=$oh."_$oj.$oi";}while(-e"$sh$og");
}open(AB,">$sh$og")||die($z[876]."$og $!\n");binmode AB;print
AB$ag{$fj};close(AB);if($og=~/\.(gif|jpg|jpeg|png)$/i){my($jt,$ju,$ok)
=&ol("$sh$og");if(($ac{$z[611]}&&$ju>$ac{$z[611]})||($ac{$z[612]}
&&$jt>$ac{$z[612]})){unlink("$sh$og");$np{$z[608]}.=qq|$ag{$fj."_file"} (${ju}x$jt, image too big)
\n|;
$ag{$fj}=$nx{$fj};next;}}$ag{$fj}=$og;}elsif($ag{$fj.$z[319]})
{if($nx{$fj}&&$fv{$nx{$fj}}){unlink("$sh$nx{$fj}");}$nx{$fj}
='';}else{$ag{$fj}=$nx{$fj};}}return\%np;}sub vz{my($na,$nm,
$sh)=@_;$sh||=$ac{$z[601]};my($li)=int($ag{$z[21]});$ag{$z[581]}
=$li?$nm->{$z[581]}:$^T;$ag{$z[592]}=$li?$nm->{$z[592]}:$ai{$z[21]};
$ag{$z[613]}=$li?$nm->{$z[613]}:$ai{$z[21]};$ag{$z[63]}=$^T;
$ag{$z[593]}=$ai{$z[21]};my$om;foreach$om($na->{$z[75]}=~/\bufile([^ ]*)\b/g)
{if($na->{$z[75]}=~/\bimagewidth\Q$om\E\b/){($ag{$z[614].$om},
$ag{$z[615].$om})=&ol($sh.$ag{$z[616].$om});}}}1;;sub bg{my
$bf;if($af{$z[877]}){$bf=$af{$z[877]};}else{$bf=$ac{$z[12]};
$bf=~s|https?://[^/]+||;}$ad{$z[878]}=$ac{$z[51]};$ad{$z[879]}
=$bf;$ad{$z[853]}=$ac{$z[854]};$ad{$z[12]}=$ac{$z[12]};$ad{$z[73]}
=$ac{$z[12]}.$ac{$z[855]}.$z[32].$ac{$z[33]};$ad{$z[38]}=$ac{$z[31]}
.$z[32].$ac{$z[33]};$ad{$z[39]}=$ac{$z[856]}.$z[32].$ac{$z[33]};
$ad{$z[858]}=$ac{$z[859]}.$z[32].$ac{$z[33]};$ad{$z[860]}=$ac{$z[861]}
.$z[32].$ac{$z[33]};$ad{$z[880]}=$bf.$ac{$z[31]}.$z[32].$ac{$z[33]};
$ad{$z[881]}=$bf.$ac{$z[856]}.$z[32].$ac{$z[33]};$ad{$z[882]}
=$bf.$ac{$z[859]}.$z[32].$ac{$z[33]};$ad{$z[883]}=$bf.$ac{$z[861]}
.$z[32].$ac{$z[33]};$ad{$z[147]}=&cl($ab{$z[145]},&cw($ac{$z[147]}))
if($ac{$z[147]});$ad{$z[146]}=$ac{$z[146]};return$bf;}sub av
{my$sj=shift;my$dk={};my$aq=sub{my$ff=shift;%{$dk->{$ff->{$z[21]}
}}=%$ff;};&bi($ae{$sj},$aq);return$dk;}sub cm{my$ry=shift;my
$sk=$ab{$z[505]}{$z[884]}||={};if(keys%$sk){return$sk->{$ry};
}&am($z[885],{});my$au=&av($z[19]);for(keys%$au){my$ay=$_;my
$sl=$au->{$ay}{$z[70]}?$au->{$ay}{$z[71]}:$ac{$z[72]}.$au->{$ay}{$z[21]};
$au->{$ay}{$z[109]}=$ac{$z[12]}.$sl.$z[32].$ac{$z[33]};$au->{$ay}{$z[22]}
=$au->{$ay}{$z[21]};$au->{$ay}{$z[100]}=$au->{$ay}{$z[45]};
$au->{$ay}{$z[144]}=&cl($ab{$z[145]},&cw($au->{$ay}{$z[63]}));
$au->{$ay}{$z[102]}=$ac{$z[69]}.$au->{$ay}{$z[65]};$au->{$ay}{$z[104]}
=$au->{$ay}{$z[67]};$au->{$ay}{$z[103]}=$au->{$ay}{$z[66]};
$au->{$ay}{$z[886]}=&cq($z[887],$au->{$ay});$au->{$ay}{$z[888]}
=&cq($z[889],$au->{$ay});}do{&bg();my$sm={};$sm->{$z[109]}=
$ad{$z[73]};$sm->{$z[22]}=0;$sm->{$z[100]}=$ad{$z[146]};$sm->{$z[144]}
=$ad{$z[147]};my$sn=&cq($z[889],$sm);$sk->{$z[354]}=$sn;};my
$so=&cq($z[890],{});for(keys%$au){my$ay=$_;my$aw=$au->{$ay};
&bg();my$sn=$aw->{$z[888]};my$sp=$aw->{$z[681]};my$sq=0;while
($sp){if($sq++>99){last;}my$sr=$au->{$sp};$sn=$sr->{$z[886]}
.$so.$sn;$sp=$sr->{$z[681]};}$sk->{$ay}=$sn;}return$sk->{$ry};
}sub bh{my$ss=shift;my$st=shift;if($ss!~/^(nohidden|article_editor|article_list)$/)
{die"Invalid list type '$ss'";}my%su;foreach(@$st){$su{$_}=
1;}my$au=&av($z[19]);my$sv;my@sw=sort{$au->{$a}{$z[891]}<=>
$au->{$b}{$z[891]}}keys%$au;foreach(@sw){my$ff=$au->{$_};my
$ay=$ff->{$z[21]};my$sx=&rx($ay);my$sy=&sz($ff->{$z[45]},$ff->{$z[764]});
my$ta=$ay;my$tb="";if($su{$ff->{$z[21]}}){$tb="selected";}my
$tc=($ai{$z[639]}==9||$ai{$z[892]}||$ab{$z[893]}{$ay});if($ss
eq$z[829]){if($ff->{$z[894]}){next;}if(not$tc){next;}$sv.=qq|\n|;
}if($ss eq$z[127]){if(not$tc){next;}$sv.=qq|\n|;
}if($ss eq$z[41]){if($ff->{$z[64]}){next;}$sv.=qq|\n|;
}}return$sv;}sub rx{my$ry=shift;my$sk=$ab{$z[505]}{$z[895]}
||={};if(keys%$sk){return$sk->{$ry};}my$au=&av($z[19]);for(sort
keys%$au){my$td=$_;my$te=0;my$sn=$au->{$td}{$z[45]};my$tf=$au->{$td}{$z[681]};
while($tf&&$te++<99){$sn="$au->{$tf}{'name'} \t $sn";$tf=$au->{$tf}{$z[681]};
}my$tg=$af{$z[896]}{$z[897]};if($tg&&$tg<5){$tg=5;}my$th;if
(length$sn<=$tg){$th=$sn;}else{my@ti=split(/ \t /,$sn);my$tj
=$ti[$#ti];$th="... $sn";while(length($th)>$tg){my$cg=$th=~
s/^.*? \t /... /s;if(not$cg){last;}}if(length$th>$tg){my$tk
=$tg-4;if($th=~/\s(.{1,$tk})$/s){$th="... $1";}elsif($th=~/(.{1,$tk})$/s)
{$th="...$1";}else{die"unable to truncate breadcrumb name!";
}}}$th=~s/ \t / : /gs;$sk->{$td}=$th;}return$sk->{$ry};}sub
sz{my$tj=shift;my$tl=shift;if($tl>0){$tl--;}if(!$tl){return
$tj;}my$tm=$af{$z[896]}{$z[898]}x$tl;$tm.=$af{$z[896]}{$z[899]};
$tm.=$tj;return$tm;}sub cp{my($gy,$jc,@tn)=@_;my$to;foreach
$to(@tn){if(defined$ab{$z[134]}{$z[135]}{$gy.$to}){$gy.=$to;
}else{last;}}&cq($gy,$jc);}sub wa{my$tp=shift;foreach(grep/^templatedir/,
sort keys%ab){if(-e"$ab{$_}/$tp"){return 1;}}return 0;}sub
an{my@tq;my$dw;foreach$dw(1..3){my$ts=$ac{"sort${dw}field"};
next unless$ts;$ts="#$ts#"if$ac{"sort${dw}numeric"};$ts="-$ts"
if$ac{"sort${dw}reverse"};push@tq,$ts;}$ae{$z[15]}{$z[173]}
=join($z[747],@tq);}sub ak{my($tt)=$ad{$z[132]};my($ge,$tu,$tv)
=@_;my(%tw,$np,$tx,$ty,$tz,$ua);$tu=&gi($tu);$ad{$z[900]}||=
"#336699";my($ub,$ud)=(1,2);%tw=($z[596]=>[("Can't find record # $tu",
"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.",
$ub)],$z[807]=>[("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:
$tu
Please ask your server administrator to make sure the publish directory and publish file(s) are writable.",
$ud)],$z[905]=>[("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.",
$ub)],$z[906]=>[($z[907],$z[908],$ub)],$z[909]=>[("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:
$tu",
$ub)],$z[910]=>[("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:
$tu",
$ud)],$z[300]=>[("File System Error!","The program is unable to access a required file. Please contact your server administrator or technical support for assistance.
\n/g;}my$uf=$z[911]if$ab{$z[732]};
$ua=qq||;$tz=qq| |;
if($tw{$ge}[2]==$ud){$ty=$tz;}else{$ty=$ua;}if(!$ENV{$z[912]})
{$np=~s/(<.*?>)+/\n/g;print"\n\nFatal Error: $tx\n\n$np\n\n";
exit;}if($ab{$z[492]}){$np.="
";$np
.="";
my$dw=0;while(my($fv,$ew,$gh)=(caller($dw++))[1,2,3]){$fv=~
s/^.*[\/\\]//;$gh=~s/^main:://;unless($gh=~s/__ANON__/(anonymous)/)
{$gh=$z[308].$gh;}$np.=qq!
!;
$np.=qq!!;}$np.="
";
}if(!$ab{$z[685]}++){print"Cache-Control: no-cache\nPragma: no-cache\nExpires: -1\n";
print"Content-type: text/html\n\n";}print qq|\n \n $ab{'debug_output'}"if($ab{$z[309]});print"";
}&pc();exit;}1;;%af=&ug("$cz/config.ini");$ad{$z[900]}=$af{$z[578]}{$z[913]}
||"#336699";$ab{$z[806]}=$af{$z[806]}||$z[914];$ab{$z[512]}
=$af{$z[512]}||$z[915];$ab{$z[145]}=$af{$z[578]}{$z[145]}||
$z[916];$ab{$z[97]}=$af{$z[578]}{$z[97]}||$z[917];$ab{$z[99]}
=$af{$z[578]}{$z[99]}||$z[430];$af{$z[896]}{$z[897]}||=55;$af{$z[896]}{$z[898]}
||=" ";&ak($z[918])if!$ENV{$z[912]};
&ak("macftp")if"¡"ne"\xA1";&ak($z[905])if$ENV{$z[919]}&&!$af{$z[920]};
%ab=(%ab,$z[516]=>$cz,$z[921]=>$cx,$z[922]=>$cx,$z[60]=>$z[923],
$z[924]=>$z[925],$z[926]=>$z[927],$z[685]=>0,);foreach(qw(datadir filelock templatedir1 templatedir2 templatedir3 archive))
{if(ref($ab{$_})){next;}$ab{$_}="$cz/$ab{$_}"if(index($ab{$_},$z[32])
==0);$ab{$_}=~s|\\|/|g;1 while$ab{$_}=~s|/[^/]+/\.\./|/|;}&ob($ae{$z[206]},
\%ac,1);if(!$ac{$z[928]}){&ak($z[929]);}foreach(grep/^dir_/,
keys%ac){$ac{$_}="$cz/$ac{$_}"if index($ac{$_},$z[32])==0;$ac{$_}
=~tr|\\|/|;1 while$ac{$_}=~s|/[^/]+/\.\.||;}foreach(qw(cgidir cgiurl))
{$ad{$z[575].$_}=$ab{$_};}foreach(qw(url_help reg1 reg2 reg3))
{$ad{$z[575].$_}=$ac{$_};}$ad{$z[782]}=$ac{$z[783]};$ad{$z[930]}
=$ac{$z[785]};$ad{$z[931]}=$ab{$z[0]};$ad{$z[932]}=$af{$z[933]};
$ad{$z[934]}=$af{$z[935]};$ad{$z[936]}=$af{$z[937]};$ad{$z[12]}
=$ac{$z[12]};$ad{$z[784]}=$ac{$z[785]};$ad{$z[786]}=$ac{$z[710]};
%ag=&uh();%ah=&ui();}
# ----------------------------------------------------------------------------
# end of file