#!/usr/bin/perl
# -----------------------------------------------------------------------------
# Auto Manager v2.30
# Copyright (C) 1998-2003 interactivetools.com Inc. All Rights Reserved
# http://www.interactivetools.com/
# -----------------------------------------------------------------------------
# This program is protected by Canadian and international copyright laws. Any
# use of this program is subject to the the terms of the license agreement
# included as part of this distribution archive. Any other uses are stictly
# prohibited without the written permission of interactivetools.com and all other
# rights are reserved.
# -----------------------------------------------------------------------------

# -----------------------------------------------------------------------------
# Warning : Modifying the source code violates your license agreement!
# -----------------------------------------------------------------------------
$SIG{__DIE__}=$SIG{__WARN__}=\&su;my$cgifile=$0;$cgifile=~s/.*[\\\/]//;my@ar=($0,$ENV{'SCRIPT_FILENAME'});
my$cgidir=(grep(/$cgifile$/i&&s/^(.*)[\\\/].*/$1/,@ar))[0];$cgidir||=(($^O=~/mswin/i?`cd`:`pwd`)=~/(.*)/)[0];
$cgidir=~s/\\/\//g;if(!$cgidir){die("Can't determine cgi directory!\n")}%he=("progVer"=>"2.30","progRel"=>"June 25th,1999","progUpd"=>"June 4,2003","perlOS"=>$^O||"Unknown","perlVer"=>$]||"Unknown","cgidir"=>$cgidir,"cgiurl"=>(split("/",$ENV{'SCRIPT_NAME'}))[-1],"ltime"=>time,"stime"=>time,"prod_id"=>12,"prog_build"=>'1295',"templatedir1"=>'../templates',"templatedir2"=>'../templates/interface',"debug"=>0,);%hh=('filelock'=>"$cgidir/../data/filelock.lock",'datadir'=>"$cgidir/../data",);
use Fcntl qw(:DEFAULT :flock);for(0..9){push(@al,"limage$_")}for(1..75){push(@al,"lfield$_")}
for(0..9){push(@an,"himage$_")}for(1..50){push(@an,"hfield$_")}for(1..50){push(@af,"lfield$_"."_name");
push(@af,"lfield$_"."_type");push(@af,"lfield$_"."_active")}for(51..75){push(@ak,"lfield$_"."_name");
push(@ak,"lfield$_"."_type");push(@ak,"lfield$_"."_active")}for(1..50){push(@af,"hfield$_"."_name");
push(@af,"hfield$_"."_type");push(@af,"hfield$_"."_active")}%hi=("datafile"=>"listing.dat","filelock"=>"filelock.lock","fields"=>[qw(num owner created updated),@al,hidden],"backup"=>"disabled","cgiext"=>".cgi");%hj=("datafile"=>"user.dat","filelock"=>"filelock.lock","fields"=>[qw(num name login_id login_pw access created_mon created_day created_year expires_mon expires_day expires_year expires_date expires_never disabled listings_max listings_unlimited user_listed specify_filename homepage_filename notes),@an,listings_hidden],"backup"=>"disabled","cgiext"=>".cgi");%hl=("datafile"=>"setup.dat","filelock"=>"filelock.lock","fields"=>["num",@af,qw(company_name domain_name product_id publish_listing_index publish_homepage_index publish_listing_image0 publish_homepage_image0 upload_maxk login_timeout listing_perpage homepage_perpage userman_perpage db_sorting titlebar footerbar logoff_url image_url listing_dir listing_url homepage_dir homepage_url search_url time_adjh time_adj_hour time_adjm time_adj_min installed),@ak,qw(d prog_ver max_filelock_duration c demo branding publish_ext thumbnail_create thumbnail_width thumbnail_height)],"backup"=>"disabled","cgiext"=>".cgi");%ib=("datafile"=>"help.dat","filelock"=>"filelock.lock","fields"=>[qw(num parent title content)],"backup"=>"disabled","cgiext"=>".cgi");%hd=&uq;%ho=&up;{
my$datafile="$he{'cgidir'}/../data/$hl{'datafile'}$hl{'cgiext'}";if(open(FILE,"<$datafile")){
my($data_line)=grep{/^\d/}<FILE>;close(FILE);$hb{'max_filelock_duration'}=(split(/¡/,$data_line))[405]}
if($hb{'max_filelock_duration'}<5){$hb{'max_filelock_duration'}=5}}&sk(\%hl,\%hb,1);$he{'titlebar'}=$hb{'titlebar'};
$he{'footerbar'}=$hb{'footerbar'};$he{'image_url'}=$hb{'image_url'};$he{'homepage_url'}=$hb{'homepage_url'};
$he{'listing_url'}=$hb{'listing_url'};$he{'search_url'}=$hb{'search_url'};$he{'search_homepage_url'}=$hb{'search_url'};
$he{'search_homepage_url'}=~s/search\.(\w+)$/search_homepage.$1/i;$he{'header_product'}="Auto Manager";
$he{'header_version'}=$he{'progVer'};$he{'header_company_name'}=$hb{'company_name'};$he{'header_domain_name'}=$hb{'domain_name'};
$he{'header_license_num'}=&vu($hb{'product_id'});$he{'upload_maxk'}=$hb{'upload_maxk'};$he{'publish_ext'}=$hb{'publish_ext'}||"html";
$he{'thumbnail_width'}=$hb{'thumbnail_width'};$he{'thumbnail_height'}=$hb{'thumbnail_height'};
if($hb{'time_adjh'}eq"add"){$he{'ltime'}+=(int($hb{'time_adj_hour'}*60*60))};if($hb{'time_adjh'}
eq"minus"){$he{'ltime'}-=(int($hb{'time_adj_hour'}*60*60))};if($hb{'time_adjm'}eq"add"){$he{'ltime'}+=(int($hb{'time_adj_min'}*60))};
if($hb{'time_adjm'}eq"minus"){$he{'ltime'}-=(int($hb{'time_adj_min'}*60))};$hn{'mon'}=(localtime($he{'ltime'}))[4]+1;
$hn{'day'}=(localtime($he{'ltime'}))[3];$hn{'year'}=(localtime($he{'ltime'}))[5]+1900;$hn{'date'}=sprintf("%04d%02d%02d",$hn{'year'},$hn{'mon'},$hn{'day'});
$|++;%hm=&tl("$he{'cgidir'}/config.ini");umask oct($hm{'umask'})if$hm{'umask'};if($hm{'thumbnailing'}{'disable_thumbnails'}){
$hb{'thumbnail_create'}=0;&sn(\%hl,\%hb,1)}sub tl{local(*FILE);my($file)=$_[0];my(@ah,$ref,%hk);
$ref=\%hk;if(!$_[0]){die"INI_Load : No ini file was specified!\n"}if(!-e $_[0]){return %hk=()}
open(FILE,"<$file")||die("INI_Load : Could open ini file! $!\n");@ah=<FILE>;close(FILE);foreach(@ah){/^\s*#/m&&next;
if(/^\s*\[/m){$ref=\%hk;foreach(/\[(.+?)\]/g){$ref=\%{$ref->{$_}}}next}my$pos=index($_,'=');
if($pos>0){my$name=substr($_,0,$pos);my$value=substr($_,$pos+1);foreach($name,$value){s/^\s+//; s/\s+$//}$name=~/[^\w]/&&die("INI_Load : Invalid key '$name' in ini file '$file'!\n");
defined $ref->{$name}&&die("INI_Load : Key '$name' defined twice in ini file '$file'!\n");
$ref->{$name}=$value}elsif($pos==-1){my$name=$_;for($name){s/^\s+//; s/\s+$//}if(!length $name){
next}defined $ref->{$name}&&die("INI_Load : Key '$name' defined twice in ini file '$file'!\n");
$ref->{$name}=1}}return %hk}sub vu{my($w,$x,$y,$z)=split(/-/,shift);my($v)=$w+join("",unpack("C3",$x))+$z;
while(length $v>7){$v>>=1}if(!($w%47)&&$w/20.68==(5*20)&&$x=~/^[A-Z]{3}$/&&!($z%47)&&$y==$v){
if($x eq"\x43\x47\x57"){return(($z/47)+6000)}elsif($x eq"\x55\x50\x47"){return(($z/47)+8000)}
elsif($x eq"\x45\x44\x49"){return(($z/47))}else{return(0)}}else{return(0)}}if(!$hb{'installed'}){
print"Content-type: text/html\n\n" unless($ContentType++);print&vh('_install_rm.html',\%ha);
exit}my($script_filename)=$0;$script_filename=~s/.*[\/\\]//;if(("3247:2855555555555555555555555555","7863082")- &wb([$script_filename],[])){
print"Content-type: text/html\n\n" unless($ContentType++);print&vh("\x5F\x70\x72\x6F\x67\x72\x61\x6D\x5F\x63\x6F\x72\x72\x75\x70\x74\x65\x64\x2E\x68\x74\x6D\x6C",{});
exit}&vz();my($cgidir2);($cgidir2=lc$cgidir)=~s/[^a-z0-9]//g;if($hb{'c'}!=unpack '%32C*',pack 'u',$cgidir2){
$hb{'c'}=unpack '%32C*',pack 'u',$cgidir2;&sn(\%hl,\%hb,1);&vx()}if($ENV{'QUERY_STRING'}eq"r"){&vx()}
if($hb{'d'}){print"Content-type: text/html\n\n" unless($ContentType++);print&vh("\x5F\x6C\x69\x63\x65\x6E\x73\x65\x5F\x64\x69\x73\x61\x62\x6C\x65\x64\x2E\x68\x74\x6D\x6C",{});
exit}if($hd{'help'}){&sv}if($hd{'help_index'}){&sw}&sb;if($hd{'login_about'}){&ug}if($hd{'logoff'}){&uh}
&uf;if($hd{'listing_add'}){&tn}if($hd{'listing_edit'}){&tp}if($hd{'listing_confirm_erase'}){&to}
if($hd{'listing_erase'}){&tq}if($hd{'listing_save'}){&ue}if($hd{'listing_list'}){&ua}if($hd{'listing_listall'}){&ua}
if($hd{'listing_iview'}){&ty}if($hd{'listing_iviewall'}){&tz}if($hd{'listing_iedit'}){&ts}
if($hd{'listing_iedit_save'}){&tt}if($hd{'listing_iconfirm_erase'}){&tr}if($hd{'listing_ierase'}){&tu}
if($hd{'listing_iupload_step1'}){&tw}if($hd{'listing_iupload_step2'}){&tx}if($hd{'listing_iupload_save'}){&tv}
if($hd{'homepage_edit'}){&sx}if($hd{'homepage_save'}){&tk}if($hd{'homepage_list'}){&th}if($hd{'homepage_listall'}){&th}
if($hd{'homepage_iview'}){&tf}if($hd{'homepage_iviewall'}){&tg}if($hd{'homepage_iedit'}){&sz}
if($hd{'homepage_iedit_save'}){&ta}if($hd{'homepage_iconfirm_erase'}){&sy}if($hd{'homepage_ierase'}){&tb}
if($hd{'homepage_iupload_step1'}){&td}if($hd{'homepage_iupload_step2'}){&te}if($hd{'homepage_iupload_save'}){&tc}
if($hd{'userman_add'}){&vo}if($hd{'userman_edit'}){&vq}if($hd{'userman_confirm_erase'}){&vp}
if($hd{'userman_erase'}){&vr}if($hd{'userman_save'}){&vt}if($hd{'userman_list'}){&vs}if($hd{'userman_listall'}){&vs}
if($hd{'setup_options_edit'}){&va}if($hd{'setup_options_save'}){&vb}if($hd{'setup_lfields_edit'}){&ux}
if($hd{'setup_lfields_confirm_reset'}){&uw}if($hd{'setup_lfields_reset'}){&uy}if($hd{'setup_lfields_save'}){&uz}
if($hd{'setup_hfields_edit'}){&ut}if($hd{'setup_hfields_confirm_reset'}){&us}if($hd{'setup_hfields_reset'}){&uu}
if($hd{'setup_hfields_save'}){&uv}if($hd{'setup_publish_listings'}){&vf}if($hd{'setup_publish_listing_index'}){&ve}
if($hd{'setup_publish_homepages'}){&vd}if($hd{'setup_publish_homepage_index'}){&vc}if($hd{'setup_recreate_thumbnails'}){&vg}
&sa;exit;sub wc{my@ah=@_;if(!$he{'debug'}){return};my$line;foreach$line(@ah){$he{'debug_lines'}.=$line."<br>\n"}}
sub sv{$num=int$hd{'help'};&sk(\%ib,\%hq,$num)||&sw;print"Content-type: text/html\n\n";print&vh("_help.html",\%hq);
&wp;exit}sub sw{&vh("_help.html");$rowcode=sub{$hr{$hq{'num'}}=$hq{'parent'}||0;$hw{$hq{'num'}}=$hq{'title'};
$ij{$hq{'num'}}=$hq{'content'}};&sh(\%ib,$rowcode,undef,\%hq);foreach$a(sort{$a<=>$b} keys %hr){
if($hr{$a}==0){$content.=qq|<p><a href="$he{'cgiurl'}?help=$a">$hw{$a}</a><br>\n|;foreach$b(sort{
$a<=>$b} keys %hr){if($hr{$b}==$a){$num=$b;$title=$hw{$num};$content.=&vi('row1');foreach$c(sort{
$a<=>$b} keys %hr){$num=$c;$title=$hw{$num};if($hr{$c}==$b){$content.=&vi('row2')}}}}}}print"Content-type: text/html\n\n";
print&vh("_help.html");&wp;exit}sub sb{if(!$hb{&ui('cHJvZHVjdF9pZA==')}||!&vu($hb{&ui('cHJvZHVjdF9pZA==')})){
print"Content-type: text/html\n\n" unless($ContentType++);print&vh(&ui('X2luc3RhbGxfcm0uaHRtbA=='),\%ha);
exit}}sub uf{&vh("_rm_login.html");$id=lc$hd{'id'}||lc$ho{'id'};$pw=lc$hd{'pw'}||lc$ho{'pw'};
$rowcode=sub{$hs{(lc$hc{'login_id'})}=lc$hc{'login_pw'};$ih{(lc$hc{'login_id'})}=$hc{'num'}};
&sh(\%hj,$rowcode,undef,\%hc);if(!$hd{'login'}&&(!$id||!$pw)&&$ENV{'CONTENT_LENGTH'}){$error=&vi("session_expired")}
elsif(!$hd{'login'}&&(!$id||!$pw)&&$ENV{'QUERY_STRING'}){$error=&vi("session_expired")}elsif(defined $hd{'id'}
&&!$hd{'id'}){$error=&vi("no_username")}elsif(defined $hd{'pw'}&&!$hd{'pw'}){$error=&vi("no_password")}
elsif($id&&!$hs{$id}){$error=&vi("invalid_username")}elsif($pw&&$pw ne$hs{$id}){$error=&vi("invalid_password")}
if($hs{$id}&&$pw eq$hs{$id}){&sk(\%hj,\%hc,$ih{$id});if($hc{'disabled'}){$error=&vi("disabled")}
if($hc{'access'}<2){$error=&vi("newuser")}elsif($hc{'expires_date'}<=$hn{'date'}&&!$hc{'expires_never'}){
$error=&vi("expired")}}if(!$error&&$hs{$id}&&$pw eq$hs{$id}){$expires=time+(($hb{'login_timeout'}|1)*60);
&ur('id',$id,$expires);&ur('pw',$pw,$expires);%hf=%hc;return}if($error){$he{'footerbar'}=$error}
print"Content-type: text/html\n\n" unless($ContentType++);print&vh("_rm_login.html");&wp;exit}
sub ug{$ha{'company_name'}=$hb{'company_name'};$ha{'domain_name'}=$hb{'domain_name'};$ha{'license_num'}=&vu($hb{'product_id'});
print"Content-type: text/html\n\n";print&vh("_rm_login_about.html",\%ha);&wp;exit}sub uh{&ur('id',"");
&ur('pw',"");&ur('listing_keyword',"");if($hb{'logoff_url'}){print"Content-type: text/html\n\n";
print qq|<html><head>|;print qq|<meta http-equiv="REFRESH" content="0; URL=$hb{'logoff_url'}">|;
print qq|</head></html>|;exit}else{print"Content-type: text/html\n\n" unless($ContentType++);
print&vh("_rm_login.html");&wp;exit}}sub sa{&sq(4);&vh("_rm_about.html");$ha{'name'}=$hf{'name'};
$ha{'access'}=&vi("access$hf{'access'}");$ha{'created'}=&vi("mon$hf{'created_mon'}");$ha{'created'}.=sprintf(" %02d,",$hf{'created_day'});
$ha{'created'}.=$hf{'created_year'};if($hf{'expires_never'}){$ha{'expires'}=&vi('never')}else{
$ha{'expires'}=&vi("mon$hf{'expires_mon'}");$ha{'expires'}.=sprintf(" %02d,",$hf{'expires_day'});
$ha{'expires'}.=$hf{'expires_year'}}if($hf{'listings_hidden'}){$ha{'publish'}=&vi("disallow")}
else{$ha{'publish'}=&vi("allow")}if($hf{'listings_unlimited'}){$ha{'listings'}=&vi("unlimited")}
else{$ha{'listings'}=int$hf{'listings_max'}}if($hf{'user_listed'}){$ha{'displayed'}=&vi("yes")}
else{$ha{'displayed'}=&vi("no")}if($hf{'specify_filename'}&&$hf{'homepage_filename'}){$hp_file=$hf{'homepage_filename'}}
else{$hp_file=sprintf("h%04d.".$he{'publish_ext'},$hf{'num'})}$ha{'homepage'}="$hb{'homepage_url'}/$hp_file";
&sr("_rm_about.html",\%ha)}sub sq{local($hnum)=int($_[0]);print"Content-type: text/html\n\n" unless($ContentType++);
unless($ContentHeader++){if($hf{'access'}==4){print&vh("_ui_superuser.html")}elsif($hf{'access'}==3){
print&vh("_ui_admin.html")}elsif($hf{'access'}==2){print&vh("_ui_regular.html")}else{print&vh("_ui_disabled.html")}}
&wp}sub sr{local($file)=$_[0];local($out)=$_[1];unless($file){die("Display_Page : No template file was specified!\n")}
print"Content-type: text/html\n\n" unless($ContentType++);unless($ContentHeader++){if($hf{'access'}==4){
print&vh("_ui_superuser.html")}elsif($hf{'access'}==3){print&vh("_ui_admin.html")}elsif($hf{'access'}==2){
print&vh("_ui_regular.html")}else{print&vh("_ui_disabled.html")}}$ha{'content'}=&vh($file,$out);
&vh("_ui_buttons.html");$ha{'buttons'}=&vi("$file.buttons");$ha{'cuser_name'}="$hf{'name'}";
unless($ContentBody++){print&vi("pagebody",\%ha)}&wp;if($he{'debug'}){print"<p>Debug output<p>\n";
print$he{'debug_lines'}}exit}sub su{print"Content-type: text/html\n\n" unless($ContentType++);
foreach(@_){$ha{'error'}.="$_ "}print$ha{'error'};if($he{'debug'}){print"<p>Debug output<p>\n";
print$he{'debug_lines'}}exit}sub wa{unless($hb{'branding'}){return}my$content=shift;my$time=scalar(localtime());
my$gen='<meta name="generator" content="Auto Manager,http://www.interactivetools.com">';$$content='<!-- Last Updated '.$time.' with Auto Manager by interactivetools.com -->'."\n\n".$$content;
unless($$content=~s/(<meta[^>]+>)/$gen\n$1/is){$$content=~s/(<head[^>]*>)/$1\n$gen\n/i}}sub wp{
print'<!--'."\n";print$he{'titlebar'}.' v'.$he{'header_version'}.' (Build: '.$he{'prod_id'}.'.'.$he{'prog_build'}.")\n";
print'License #'.$he{'header_license_num'}.' ~ '.$he{'header_company_name'}.' ~ '.$he{'header_domain_name'}."\n";
printf('Execute time: %01d seconds'."\n",time() - $^T);print'-->'."\n"}sub ua{my($bypass_cookies)=(@_);
$pagenum=$hd{'pagenum'}||$ho{'listing_pagenum'}||1;$perpage=int$hb{'listing_perpage'}||10;
$search=$hd{'search'}||$ho{'listing_search'};if(defined $hd{'keyword'}){$keyword=$hd{'keyword'}}
else{$keyword=$ho{'listing_keyword'}}if($hd{'listing_listall'}){$search=""; $keyword=""}if(defined $hd{'keyword'}||$hd{'listing_listall'}){
$pagenum=1}if(!$bypass_cookies){&ur("listing_search",$search);&ur("listing_keyword",$keyword);
&ur("listing_pagenum",$pagenum)}local(%hz,%hu);$rowcode=sub{$hz{$hc{'num'}}=$hc{'name'};$hu{
$hc{'num'}}=$hc{'listings_hidden'}};&sh(\%hj,$rowcode,undef,\%hc);for$fnum(1..75){if($hb{"lfield$fnum"."_active"}){
$fname=$hb{"lfield$fnum"."_name"};if($fname=~m/^(.*?)\((.*?)\)$/i){$fname=$1}if($search eq$fnum){
$ha{'search_options'}.=qq|<option value="$fnum" selected>$fname\n|}else{$ha{'search_options'}.=qq|<option value="$fnum">$fname\n|}}}
&sq(10);&vh("_listing_list.html");$ha{'lfield1_name'}=$hb{'lfield1_name'};if($ha{'lfield1_name'}=~m/^(.*?)\((.*?)\)$/i){
$ha{'lfield1_name'}=$1}if($hf{'access'}>=3){$ha{'list'}.=&vi("header",\%ha)}else{$ha{'list'}.=&vi("header2",\%ha)}
if($hf{'access'}>=3){$query=sub{if(!$keyword){return(1)}if($search eq"all"&&$keyword){for(1..75){
if($hg{"lfield$_"}=~/\Q$keyword\E/i){return(1)}}}if($search eq"lby"&&$hz{$hg{'owner'}}=~/\Q$keyword\E/i){
return(1)}if($hg{"lfield$search"}=~/\Q$keyword\E/i){return(1)}return(0)}}else{$query=sub{if($hg{'owner'}!=$hf{'num'}){
return(0)}$listing_count++;if(!$keyword){return(1)}if($search eq"all"&&$keyword){for(1..75){
if($hg{"lfield$_"}=~/\Q$keyword\E/i){return(1)}}}if($hg{"lfield$search"}=~/\Q$keyword\E/i){
return(1)}return(0)}};$match=sub{if($hu{$hg{'owner'}}){$hg{'status'}=&vi("user_hidden",\%hg)}
elsif($hg{'hidden'}){$hg{'status'}=&vi("hidden",\%hg)}else{$hg{'status'}=&vi("visible",\%hg)}$hg{'owner'}=$hz{
$hg{'owner'}};if($hf{'access'}>=3){$ha{'list2'}.=&vi("row",\%hg)}else{$ha{'list2'}.=&vi("row2",\%hg)}};
if($hb{'db_sorting'}){$sort="14"}else{$sort=undef}($ha{'pcount'},$ha{'mcount'},$ha{'rcount'},$ha{'cpage'},$ha{'lpage'},$ha{'npage'})=&si(\%hi,$query,$match,$sort,\%hg,$pagenum,$perpage);
if(!$ha{'list2'}){$ha{'list2'}=&vi("not_found")}$ha{"search_$search"."_selected"}="selected";
$ha{'keyword'}=$keyword;if($search eq"lby"){$search_lby_selected="selected"}if($hf{'access'}>2){
$ha{'search_options'}=&vi("listedby").$ha{'search_options'}}if($hf{'access'}<3){$ha{'rcount'}=$listing_count}
if($error){$ha{'error'}=&vi("exceeded_listing_limit")}&sr("_listing_list.html",\%ha)}sub tn{
if(!$hf{'listings_unlimited'}){$rowcode=sub{if($hg{'owner'}==$hf{'num'}){$lcount++}};&sh(\%hi,$rowcode,undef,\%hg);
$max=int$hf{'listings_max'};if($lcount>=$max){$error++;&ua}}&sq(11);&vh("_listing_add.html");
local($listedby_list);$rowcode=sub{my$status;if($hc{'disabled'}){$status.=&vi('user_disabled').','}
if($hc{'listings_hidden'}){$status.=&vi('listings_hidden').','}1 while($status=~s/,$//);if($status){
$status="($status)"}if($hf{'num'}eq$hc{'num'}){$listedby_list.=qq|<option value="$hc{'num'}" selected>$hc{'name'} $status\n|}
else{$listedby_list.=qq|<option value="$hc{'num'}">$hc{'name'} $status\n|}};$sortcode="1";
&sh(\%hj,$rowcode,$sortcode,\%hc);for$fnum(1..75){if(!$hb{"lfield$fnum"."_active"}){next}$ftype=$hb{"lfield$fnum"."_type"};
$fname=$hb{"lfield$fnum"."_name"};$fvalue="";$foptions="";if($fname=~m/^(.*?)\((.*?)\)$/i){($fname,$fostr)=($1,$2)}
else{$fostr=""}$fostr=~s/(^|[^\\]),/$1 ,/g;if($ftype==3){foreach(split(/ ,/,$fostr)){s/\\,/,/go;
s/(^\s+|\s+$)//go;if($fvalue&&$fvalue eq$_){$foptions.="<option selected>$_\n"}else{$foptions.="<option>$_\n"}}}
elsif($ftype==4){my(@ad,$choice);my$rowcount=0;foreach$choice(split(/ ,/,$fostr)){$rowcount++;
$choice=~s/\\,/,/go;$choice=~s/(^\s+|\s+$)//go;$choice=&st($choice);push(@ad,qq|<nobr><input type="checkbox" name="lfield$fnum\_$rowcount" id="lfield$fnum\_$rowcount" value="$choice" style="vertical-align: middle"$checked><label for="lfield$fnum\_$rowcount">\x20$choice</label></nobr><br>|)}$fcheckboxes='<font size="2" face="arial">'."\n";
$fcheckboxes.=join("\n",@ad);$fcheckboxes.="\n</font>"}elsif($ftype==5){$ha{'wysiwyg_javascript'}.=&vi('wysiwygJS')}
if($ftype==1){$ha{'list'}.=&vi("text_field")}elsif($ftype==2){$ha{'list'}.=&vi("text_box")}
elsif($ftype==3){$ha{'list'}.=&vi("dropdown")}elsif($ftype==4){$ha{'list'}.=&vi("checkbox")}
elsif($ftype==5){$ha{'list'}.=&vi("wysiwyg")}}$owner=$hf{'name'};if($hf{'access'}>=3){$ha{'listedby'}=&vi("listedby_select")}
else{$ha{'listedby'}=&vi("listedby_cuser")}$ha{"hidden_$hg{'hidden'}_checked"}='checked';&sr("_listing_add.html",\%ha)}
sub tp{$num=int$hd{'listing_edit'}||int$hd{'num'};&sk(\%hi,\%hg,$num)||&ua;if($hf{'access'}<3&&$hg{'owner'}!=$hf{'num'}){&ua}
&sq(12);&vh("_listing_edit.html");local($listedby_list);$rowcode=sub{my$status;if($hc{'disabled'}){
$status.=&vi('user_disabled').','}if($hc{'listings_hidden'}){$status.=&vi('listings_hidden').','}1 while($status=~s/,$//);
if($status){$status="($status)"}if($hc{'num'}eq$hg{'owner'}){$listedby_list.=qq|<option value="$hc{'num'}" selected>$hc{'name'} $status\n|}
else{$listedby_list.=qq|<option value="$hc{'num'}">$hc{'name'} $status\n|}};$sortcode="1";
&sh(\%hj,$rowcode,$sortcode,\%hc);for$fnum(1..75){if(!$hb{"lfield$fnum"."_active"}){next}$ftype=$hb{"lfield$fnum"."_type"};
$fname=$hb{"lfield$fnum"."_name"};$fvalue=$hg{"lfield$fnum"};$foptions="";if($fname=~m/^(.*?)\((.*?)\)$/i){($fname,$fostr)=($1,$2)}
else{$fostr=""}$fostr=~s/(^|[^\\]),/$1 ,/g;if($ftype==3){foreach(split(/ ,/,$fostr)){s/\\,/,/go;
s/(^\s+|\s+$)//go;if($fvalue&&$fvalue eq$_){$foptions.="<option selected>$_\n"}else{$foptions.="<option>$_\n"}}}
elsif($ftype==4){my(@ad,$choice);my$rowcount=0;foreach$choice(split(/ ,/,$fostr)){$rowcount++;
$choice=~s/\\,/,/go;$choice=~s/(^\s+|\s+$)//go;my$checked;if($fvalue=~s/(^|,\x20)\Q$choice\E(,\x20|$)/$1$2/){
$checked=' checked'}$choice=&st($choice);push(@ad,qq|<nobr><input type="checkbox" name="lfield$fnum\_$rowcount" id="lfield$fnum\_$rowcount" value="$choice" style="vertical-align: middle"$checked><label for="lfield$fnum\_$rowcount">\x20$choice</label></nobr><br>|)}$fcheckboxes='<font size="2" face="arial">'."\n";
$fcheckboxes.=join("\n",@ad);$fcheckboxes.="\n</font>"}elsif($ftype==5){$ha{'wysiwyg_javascript'}.=&vi('wysiwygJS')}
if($ftype==1){$ha{'list'}.=&vi("text_field")}elsif($ftype==2){$ha{'list'}.=&vi("text_box")}
elsif($ftype==3){$ha{'list'}.=&vi("dropdown")}elsif($ftype==4){$ha{'list'}.=&vi("checkbox")}
elsif($ftype==5){$ha{'list'}.=&vi("wysiwyg")}}opendir(DIR,"$he{'cgidir'}/$hb{'listing_dir'}/images/");
my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));closedir(DIR);foreach$file(@ab){my($desc);
my($descfile)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file.dat";if(-e $descfile){open(FILE,"<$descfile");
$desc=<FILE>;close(FILE)}else{$desc="No description"}if(length $desc>45){$desc=substr($desc,0,45)."..."}
for$lnum(0..10){if($hg{"limage$lnum"}eq$file){$ha{"ilist$lnum"}.=qq|<option value="$file" selected>$desc\n|}
else{$ha{"ilist$lnum"}.=qq|<option value="$file">$desc\n|}}}$owner=$hf{'name'};if($hf{'access'}>=3){
$ha{'listedby'}=&vi("listedby_select")}else{$ha{'listedby'}=&vi("listedby_cuser")}$ha{"hidden_$hg{'hidden'}_checked"}='checked';
$ha{'hide_listing'}=&vi("hide_listing_checkbox",\%ha);$ha{'num'}=int$num;&sr("_listing_edit.html",\%ha)}
sub to{my($num)=int$hd{'listing_confirm_erase'};&sk(\%hi,\%hg,$num)||&ua;if($hf{'access'}<3&&$hg{'owner'}!=$hf{'num'}){&ua}
&sq(13);&sr("_listing_confirm_erase.html",\%hg)}sub tq{my($num)=int$hd{'num'};&sk(\%hi,\%hg,$num)||&ua;
if($hf{'access'}<3&&$hg{'owner'}!=$hf{'num'}){&ua}&sf(\%hi,$num)||&ua;my($pfile)=sprintf("l%04d.".$he{'publish_ext'},$num);
unlink("$he{'cgidir'}/$hb{'listing_dir'}/$pfile");opendir(DIR,"$he{'cgidir'}/$hb{'listing_dir'}/images/");
my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));closedir(DIR);foreach$file(@ab){$thumbnail=&vl($file);
unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$file");unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$thumbnail");
unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$file.dat")}if($hb{'publish_listing_index'}){&ud}
my$bypass_cookies=1;&ua($bypass_cookies)}sub ue{$num=int$hd{'num'};if(!$num&&!$hf{'listings_unlimited'}){
$rowcode=sub{if($hg{'owner'}==$hf{'num'}){$lcount++}};&sh(\%hi,$rowcode,undef,\%hg);$max=int$hf{'listings_max'};
if($lcount>=$max){$error++;&ua}}if(!$return){&sq(10)}if($num){&sk(\%hi,\%hg,$num);if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}}
if($hf{'access'}>=3){$hd{'owner'}=int$hd{'owner'}}else{$hd{'owner'}=int$hf{'num'}}$hd{'created'}=$hg{'created'}||$he{'ltime'};
$hd{'updated'}=$he{'ltime'};my$field_name;foreach$field_name(@{$hi{'fields'}}){if($field_name=~/^lfield/){
unless(defined $hd{$field_name}){$hd{$field_name}=join(",\x20",map{$hd{$_}} sort{substr($a,9)<=>substr($b,9)} grep{/^\Q$field_name\E_\d+/} keys %hd)}}}
if($num){&sn(\%hi,\%hd,$num)}else{$hd{'num'}=$num=&sd(\%hi,\%hd)}&ub($num);if($hb{'publish_listing_index'}){&ud}
if($return){return}&sr("_listing_saved.html")}sub ub{&vh("_publish_listing.html");$num=int$_[0];
my$cacheRecords=$_[1];local(%ha);$ha{'num'}=$ha{'listing_num'}=$num;&sk(\%hi,\%hg,$num,$cacheRecords);
my($pfile)=sprintf("l%04d.",$num).$he{'publish_ext'};foreach(1..75){$ha{"lfield$_"}=$hg{"lfield$_"}}$ha{'listing_file'}=$pfile;
if($hg{'owner'}){&sk(\%hj,\%hc,$hg{'owner'});$ha{"user_num"}=$hc{'num'};$ha{"user_name"}=$hc{'name'}}
if($hc{'specify_filename'}&&$hc{'homepage_filename'}){$ha{"user_file"}=$hc{'homepage_filename'}}
else{$ha{"user_file"}=sprintf("h%04d.",$hc{'num'}).$he{'publish_ext'}}foreach(1..50){$ha{"hfield$_"}=$hc{"hfield$_"}}
if($hb{'publish_listing_image0'}){$start_inum=0}else{$start_inum=1}my$path="$he{'cgidir'}/$hb{'listing_dir'}/images";
for($start_inum..9){$file=$hg{"limage$_"};$filepath="$path/$file";$thumbnail=&vk($path,$file);
open(FILE,"<$filepath.dat");$desc=<FILE>;close(FILE);$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;
$ha{'desc'}=$desc;if($file&&-e $filepath){$ha{'images'}.=&vi("image",\%ha)}}if(!$ha{'images'}){
$ha{'images'}=&vi("no_images",\%ha)}foreach(keys %ha){$ha{$_}=~s/\<\!--#/<!--|/go}my($filename)="$he{'cgidir'}/$hb{'listing_dir'}/$pfile";
if($hg{'hidden'}||$hc{'listings_hidden'}){unlink("$filename")}else{open(FILE,">$filename");
my$content=&vh("_publish_listing.html",\%ha);&wa(\$content);print FILE$content;close(FILE)}}
sub ud{my$count;my$heartbeat=$hm{'publish_index_heartbeat'};print"Content-type: text/html\n\n" unless($ContentType++);
&vh("_publish_listing_index.html");local %ha;$rowcode=sub{$ig{$hc{'num'}}=$hc{'name'};if($hc{'specify_filename'}
&&$hc{'homepage_filename'}){$id{$hc{'num'}}=$hc{'homepage_filename'}}else{$id{$hc{'num'}}=sprintf("h%04d.",$hc{'num'}).$he{'publish_ext'}}$hu{
$hc{'num'}}=$hc{'listings_hidden'}};&sh(\%hj,$rowcode,undef,\%hc);my$path="$he{'cgidir'}/$hb{'listing_dir'}/images";
$rowcode=sub{if($hg{'hidden'}||$hu{$hg{'owner'}}){return};$file=$hg{"limage0"};$filepath="$path/$file";
$thumbnail=&vk($path,$file);if($file&&-e $filepath){$ha{'file'}=$file; $ha{'thumbnail'}=$thumbnail}
else{$ha{'file'}=""; $ha{'thumbnail'}=""}$ha{"user_num"}=$ik{$hg{'owner'}};$ha{"user_name"}=$ig{
$hg{'owner'}};$ha{"user_file"}=$id{$hg{'owner'}};foreach(1..75){$ha{"lfield$_"}=$hg{"lfield$_"}}$ha{'listing_file'}=sprintf("l%04d.",$hg{'num'}).$he{'publish_ext'};
$ha{'listing_num'}=$hg{'num'};if($ha{'file'}){$ha{'list'}.=&vi("listing_image",\%ha)}else{
$ha{'list'}.=&vi("listing_noimage",\%ha)}if(($heartbeat>0)&&(++$count % $heartbeat==0)){print"<!-- index $count -->\n";
print"<script language='javascript'>window.status='Published $count';</script>"}};my$sortcode;
if($hb{'db_sorting'}){$sortcode="14"}else{$sortcode=undef}&sh(\%hi,$rowcode,$sortcode,\%hg);
if($heartbeat){print"<script language='javascript'>window.status='';</script>"}foreach(keys %ha){
$ha{$_}=~s/\<\!--#/<!--|/go}open(FILE,">$he{'cgidir'}/$hb{'listing_dir'}/index.".$he{'publish_ext'});
my$content=&vh("_publish_listing_index.html",\%ha);&wa(\$content);print FILE$content;close(FILE)}
sub ty{$return=1;&ue;my($num)=int$hd{'num'};my($file)=$hd{'limage10'};my$thumbnail=&vl($file);
my($filepath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file";&sk(\%hi,\%hg,$num);if(!$file){&tp}
if($file!~/^$num\_/){&tp}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&tp}if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}
&sq(14);$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");
$ha{'desc'}=<FILE>;close(FILE);$ha{'num'}=$num;&sr("_listing_iview.html",\%ha)}sub tz{$return=1;
&ue;my($num)=int$hd{'num'};&sk(\%hi,\%hg,$num);if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}
&sq(14);&vh("_listing_iviewall.html");opendir(DIR,"$he{'cgidir'}/$hb{'listing_dir'}/images/");
my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));closedir(DIR);foreach$file(@ab){local($desc,$thumbnail);
my($descfile)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file.dat";if(-e $descfile){open(FILE,"<$descfile");
$desc=<FILE>;close(FILE)}else{$desc=""}$thumbnail=&vl($file);$size=(-s "$he{'cgidir'}/$hb{'listing_dir'}/images/$file");
$ha{'list'}.=&vi("row")}if(!$ha{'list'}){&tp}$ha{'num'}=$num;&sr("_listing_iviewall.html",\%ha)}
sub ts{$return=1;&ue;my($num)=int$hd{'num'};my($file)=$hd{'limage10'};my($filepath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file";
my$thumbnail=&vl($file);&sk(\%hi,\%hg,$num);if(!$file){&tp}if($file!~/^$num\_/){&tp}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&tp}
if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}&sq(14);$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;
$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");$ha{'desc'}=<FILE>;close(FILE);$ha{'num'}=$num;
&sr("_listing_iedit.html",\%ha)}sub tt{my($num)=int$hd{'num'};my($file)=$hd{'file'};my($desc)=$hd{'desc'};
my($filepath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file";my$thumbnail=&vl($file);&sk(\%hi,\%hg,$num);
if(!$file){&tp}if($file!~/^$num\_/){&tp}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&tp}if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}
open(FILE,">$filepath.dat");print FILE$desc;close(FILE);&tp}sub tr{$return=1;&ue;&sq(14);my($num)=int$hd{'num'};
my($file)=$hd{'limage10'};my($filepath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file";my$thumbnail=&vl($file);
&sk(\%hi,\%hg,$num);if(!$file){&tp}if($file!~/^$num\_/){&tp}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&tp}
if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;
$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");$ha{'desc'}=<FILE>;close(FILE);$ha{'num'}=$num;
&sr("_listing_iconfirm_erase.html",\%ha)}sub tu{my($num)=int$hd{'num'};my($file)=$hd{'file'};
my($filepath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$file";my$thumbnail=&vl($file);my($thumbpath)="$he{'cgidir'}/$hb{'listing_dir'}/images/$thumbnail";
&sk(\%hi,\%hg,$num);if(!$file){&tp}if($file!~/^$num\_/){&tp}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&tp}
if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}unlink("$filepath");unlink("$thumbpath");
unlink("$filepath.dat");&tp}sub tw{$return=1;&ue;my($num)=int$hd{'num'};&sk(\%hi,\%hg,$num);
if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}&sq(14);$ha{'num'}=$num;&sr("_listing_iupload_step1.html",\%ha)}
sub tx{&sq(14);&vh("_listing_iupload_step2.html");my($num)=int$hd{'num'};&sk(\%hi,\%hg,$num);
if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}for(1..10){local($file_uploaded)=$hd{"image$_"."_file"};
local($data)=$hd{"image$_"};local($size)=length $data;if(!$file_uploaded||!$data){next}elsif($size>$hb{'upload_maxk'}*1000){
$ha{'list'}.=&vi("too_large")}elsif($file_uploaded!~/\.(jpg|gif)$/i){$ha{'list'}.=&vi("invalid_format")}
else{my($inum)=1;my($ext)=lc$hd{"image$_"."_ext"};my($savefile)="$he{'cgidir'}/$hb{'listing_dir'}/images/$num"."_$inum.$ext";
while(-e $savefile){$inum++;$savefile="$he{'cgidir'}/$hb{'listing_dir'}/images/$num"."_$inum.$ext"}
open(FILE,">$savefile");binmode(STDIN);binmode(FILE);print FILE$data;close(FILE);if($hb{'thumbnail_create'}){&vj($savefile)}$file="$num"."_$inum.$ext";
$thumbnail=&vl($file);$ha{'list'}.=&vi("row")}}$ha{'num'}=$num;&sr("_listing_iupload_step2.html",\%ha)}
sub tv{my($num)=int$hd{'num'};&sk(\%hi,\%hg,$num);if($hf{'access'}<3&&$hf{'num'}!=$hg{'owner'}){&tp}
foreach(keys %hd){local($file)="$he{'cgidir'}/$hb{'listing_dir'}/images/$_";if(/^$num\_/&&/(gif|jpg)$/&&-e $file){
open(FILE,">$file.dat");print FILE$hd{$_};close(FILE)}}&tp}sub uc{my($user_num)=@_;my(@ae);
my$rowcode=sub{if($user_num eq"all" or $hg{'owner'}==$user_num){push(@ae,$hg{'num'})}};&sh(\%hi,$rowcode,undef,\%hg);
my$total=@ae;$|++;print"Content-type: text/html\n\n" unless($ContentType++);my$count;my$heartbeat=$hm{'publish_all_heartbeat'};
my$cacheRecords=[];my$num;foreach$num(@ae){&ub($num,$cacheRecords);if($heartbeat&&(++$count % $heartbeat==0)){
print"<!-- listing $count -->\n";print"<script language='javascript'>window.status='Published $count of $total';</script>\n"}}
if($heartbeat){print"<script language='javascript'>window.status='';</script>"}undef $cacheRecords}
sub th{if($hf{'access'}<3){&sx}$pagenum=$hd{'pagenum'}||$ho{'homepage_pagenum'}||1;$perpage=int$hb{'homepage_perpage'}||10;
$search=$hd{'search'}||$ho{'homepage_search'};if(defined $hd{'keyword'}){$keyword=$hd{'keyword'}}
else{$keyword=$ho{'homepage_keyword'}}if($hd{'homepage_listall'}){$search=""; $keyword=""}
if(defined $hd{'keyword'}||$hd{'homepage_listall'}){$pagenum=1}&ur("homepage_search",$search);
&ur("homepage_keyword",$keyword);&ur("homepage_pagenum",$pagenum);&sq(20);&vh("_homepage_list.html");
$query=sub{if(!$hc{'expires_never'}&&$hc{'expires_date'}<=$hn{'date'}){$hc{'expired'}=1}else{
$hc{'expired'}=0}if($keyword&&$hc{'name'}!~/\Q$keyword\E/i){return(0)}if(!$search||$search eq"all"){
return(1)}if($hc{'access'}eq$search&&!$hc{'expired'}&&!$hc{'disabled'}){return(1)}if($search==5&&$hc{'expired'}){
return(1)}if($search eq"D"&&$hc{'disabled'}){return(1)}return(0)};$match=sub{if($hc{'expires_never'}){
$hc{'expires'}=&vi("never")}elsif(!$hc{'expires_never'}&&$hc{'expires_date'}<=$hn{'date'}){
$hc{'expires'}=&vi("expired")}else{$hc{'expires'}=&vi("mon$hc{'expires_mon'}");$hc{'expires'}.=sprintf(" %02d,",$hc{'expires_day'});
$hc{'expires'}.=" $hc{'expires_year'}"}if($hc{'disabled'}){$ha{'list'}.=&vi("disabled",\%hc)}
elsif($hc{'access'}==1){$ha{'list'}.=&vi("newuser",\%hc)}elsif($hc{'access'}==2){$ha{'list'}.=&vi("regular",\%hc)}
elsif($hc{'access'}==3){$ha{'list'}.=&vi("admin",\%hc)}elsif($hc{'access'}==4){$ha{'list'}.=&vi("superuser",\%hc)}};
$sort="1";($ha{'pcount'},$ha{'mcount'},$ha{'rcount'},$ha{'cpage'},$ha{'lpage'},$ha{'npage'})=&si(\%hj,$query,$match,$sort,\%hc,$pagenum,$perpage);
if(!$ha{'list'}){$ha{'list'}=&vi("not_found")}$ha{"search_$search"."_selected"}="selected";
$ha{'keyword'}=$keyword;&sr("_homepage_list.html",\%ha)}sub sx{if($hf{'access'}<3){$num=$hf{'num'}}
else{$num=int$hd{'homepage_edit'}||int$hd{'num'}}&sq(21);&vh("_homepage_edit.html");&sk(\%hj,\%hx,$num);
$ha{'name'}=$hx{'name'};for$fnum(1..50){if(!$hb{"hfield$fnum"."_active"}){next}$ftype=$hb{"hfield$fnum"."_type"};
$fname=$hb{"hfield$fnum"."_name"};$fvalue=$hx{"hfield$fnum"};$foptions="";if($fname=~m/^(.*?)\((.*?)\)$/i){($fname,$fostr)=($1,$2)}
else{$fostr=""}$fostr=~s/(^|[^\\]),/$1 ,/g;if($ftype==3){foreach(split(/ ,/,$fostr)){s/\\,/,/go;
s/(^\s+|\s+$)//go;if($fvalue&&$fvalue eq$_){$foptions.="<option selected>$_\n"}else{$foptions.="<option>$_\n"}}}
elsif($ftype==4){my(@ad,$choice);my$rowcount=0;foreach$choice(split(/ ,/,$fostr)){$rowcount++;
$choice=~s/\\,/,/go;$choice=~s/(^\s+|\s+$)//go;my$checked;if($fvalue=~s/(^|,\x20)\Q$choice\E(,\x20|$)/$1$2/){
$checked=' checked'}$choice=&st($choice);push(@ad,qq|<nobr><input type="checkbox" name="hfield$fnum\_$rowcount" id="hfield$fnum\_$rowcount" value="$choice" style="vertical-align: middle"$checked><label for="hfield$fnum\_$rowcount">\x20$choice</label></nobr><br>|)}$fcheckboxes='<font size="2" face="arial">'."\n";
$fcheckboxes.=join("\n",@ad);$fcheckboxes.="\n</font>"}elsif($ftype==5){$ha{'wysiwyg_javascript'}.=&vi('wysiwygJS')}
if($ftype==1){$ha{'list'}.=&vi("text_field")}elsif($ftype==2){$ha{'list'}.=&vi("text_box")}
elsif($ftype==3){$ha{'list'}.=&vi("dropdown")}elsif($ftype==4){$ha{'list'}.=&vi("checkbox")}
elsif($ftype==5){$ha{'list'}.=&vi("wysiwyg")}}opendir(DIR,"$he{'cgidir'}/$hb{'homepage_dir'}/images/");
my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));closedir(DIR);foreach$file(@ab){my($desc);
my($descfile)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file.dat";if(-e $descfile){open(FILE,"<$descfile");
$desc=<FILE>;close(FILE)}else{$desc="No description"}if(length $desc>45){$desc=substr($desc,0,45)."..."}
for$hnum(0..10){if($hx{"himage$hnum"}eq$file){$ha{"ilist$hnum"}.=qq|<option value="$file" selected>$desc\n|}
else{$ha{"ilist$hnum"}.=qq|<option value="$file">$desc\n|}}}$ha{'num'}=int$num;&sr("_homepage_edit.html",\%ha)}
sub tk{if($hf{'access'}<3){$num=$hf{'num'}}else{$num=int$hd{'num'}}if(!$return){&sq(21)}&sk(\%hj,\%hc,$num);
my$field_name;foreach$field_name(keys %hc){if($field_name=~/^himage/){$hc{$field_name}=$hd{
$field_name}}if($field_name=~/^hfield/){if(defined $hd{$field_name}){$hc{$field_name}=$hd{
$field_name}}else{$hc{$field_name}=join(",\x20",map{$hd{$_}} sort{substr($a,9)<=>substr($b,9)} grep{/^\Q$field_name\E_\d+/} keys %hd)}}}
&sn(\%hj,\%hc,$num);&ti($num);if($hb{'publish_homepage_index'}){&tj}&uc($num);if($hb{'publish_listing_index'}){&ud}
if($return){return}&sr("_homepage_saved.html")}sub ti{&vh("_publish_homepage.html");$num=int$_[0];
local(%ha);&sk(\%hj,\%hc,$num);my($pfile)=sprintf("h%04d.",$num).$he{'publish_ext'};foreach(1..50){
$ha{"hfield$_"}=$hc{"hfield$_"}}$ha{"user_num"}=$hc{'num'};$ha{"user_name"}=$hc{'name'};$ha{"user_file"}=$pfile;
if($hc{'specify_filename'}&&$hc{'homepage_filename'}){$pfile=$hc{'homepage_filename'}}if($hb{'publish_homepage_image0'}){
$start_inum=0}else{$start_inum=1}my$path="$he{'cgidir'}/$hb{'homepage_dir'}/images";for($start_inum..9){
$file=$hc{"himage$_"};$filepath="$path/$file";$thumbnail=&vk($path,$file);open(FILE,"<$filepath.dat");
$desc=<FILE>;close(FILE);$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;$ha{'desc'}=$desc;if($file&&-e $filepath){
$ha{'images'}.=&vi("image",\%ha)}}if(!$ha{'images'}){$ha{'images'}=&vi("no_images",\%ha)}foreach(keys %ha){
$ha{$_}=~s/\<\!--#/<!--|/go}my($filename)="$he{'cgidir'}/$hb{'homepage_dir'}/$pfile";open(FILE,">$filename");
my$content=&vh("_publish_homepage.html",\%ha);&wa(\$content);print FILE$content;close(FILE)}
sub tj{my$count;my$heartbeat=$hm{'publish_index_heartbeat'};print"Content-type: text/html\n\n" unless($ContentType++);
&vh("_publish_homepage_index.html");local %ha;my$path="$he{'cgidir'}/$hb{'homepage_dir'}/images";
$rowcode=sub{$file=$hc{"himage0"};$filepath="$path/$file";$thumbnail=&vk($path,$file);if($file&&-e $filepath){
$ha{'file'}=$file; $ha{'thumbnail'}=$thumbnail}else{$ha{'file'}=""; $ha{'thumbnail'}=""}$ha{"user_num"}=$hc{'num'};
$ha{"user_name"}=$hc{'name'};if($hc{'specify_filename'}&&$hc{'homepage_filename'}){$ha{"user_file"}=$hc{'homepage_filename'}}
else{$ha{"user_file"}=sprintf("h%04d.".$he{'publish_ext'},$hc{'num'})}foreach(1..50){$ha{"hfield$_"}=$hc{"hfield$_"}}
if($hc{'user_listed'}){if($ha{'file'}){$ha{'list'}.=&vi("user_image",\%ha)}else{$ha{'list'}.=&vi("user_noimage",\%ha)}}
if(($heartbeat>0)&&(++$count % $heartbeat==0)){print"<!-- index $count -->\n"}};my$sortcode=undef;
&sh(\%hj,$rowcode,$sortcode,\%hc);foreach(keys %ha){$ha{$_}=~s/\<\!--#/<!--|/go}open(FILE,">$he{'cgidir'}/$hb{'homepage_dir'}/index.".$he{'publish_ext'});
my$content=&vh("_publish_homepage_index.html",\%ha);&wa(\$content);print FILE$content;close(FILE)}
sub tf{$return=1;&tk;if($hf{'access'}<3){$num=$hf{'num'}}else{$num=int$hd{'num'}}my($file)=$hd{'himage10'};
my$thumbnail=&vl($file);my($filepath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file";if(!$file){&sx}
if($file!~/^$num\_/){&sx}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&sx}&sq(22);$ha{'file'}=$file;
$ha{'thumbnail'}=$thumbnail;$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");$ha{'desc'}=<FILE>;
close(FILE);$ha{'num'}=$num;&sr("_homepage_iview.html",\%ha)}sub tg{$return=1;&tk;local %ha;
if($hf{'access'}<3){$num=$hf{'num'}}else{$num=int$hd{'num'}}&sq(22);&vh("_homepage_iviewall.html");
opendir(DIR,"$he{'cgidir'}/$hb{'homepage_dir'}/images/");my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));
closedir(DIR);foreach$file(@ab){local($desc,$thumbnail);my($descfile)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file.dat";
if(-e $descfile){open(FILE,"<$descfile");$desc=<FILE>;close(FILE)}else{$desc=""}$thumbnail=&vl($file);
$size=(-s "$he{'cgidir'}/$hb{'homepage_dir'}/images/$file");$ha{'list'}.=&vi("row")}if(!$ha{'list'}){&sx}$ha{'num'}=$num;
&sr("_homepage_iviewall.html",\%ha)}sub sz{$return=1;&tk;if($hf{'access'}<3){$num=$hf{'num'}}
else{$num=int$hd{'num'}}my($file)=$hd{'himage10'};my($filepath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file";
my$thumbnail=&vl($file);if(!$file){&sx}if($file!~/^$num\_/){&sx}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&sx}
&sq(22);$ha{'file'}=$file;$ha{'thumbnail'}=$thumbnail;$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");
$ha{'desc'}=<FILE>;close(FILE);$ha{'num'}=$num;&sr("_homepage_iedit.html",\%ha)}sub ta{if($hf{'access'}<3){
$num=$hf{'num'}}else{$num=int$hd{'num'}}my($file)=$hd{'file'};my($desc)=$hd{'desc'};my($filepath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file";
my$thumbnail=&vl($file);if(!$file){&sx}if($file!~/^$num\_/){&sx}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&sx}
open(FILE,">$filepath.dat");print FILE$desc;close(FILE);&sx}sub sy{$return=1;&tk;&sq(22);if($hf{'access'}<3){
$num=$hf{'num'}}else{$num=int$hd{'num'}}my($file)=$hd{'himage10'};my($filepath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file";
my$thumbnail=&vl($file);if(!$file){&sx}if($file!~/^$num\_/){&sx}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&sx}$ha{'file'}=$file;
$ha{'thumbnail'}=$thumbnail;$ha{'size'}=(-s $filepath);open(FILE,"<$filepath.dat");$ha{'desc'}=<FILE>;
close(FILE);$ha{'num'}=$num;&sr("_homepage_iconfirm_erase.html",\%ha)}sub tb{if($hf{'access'}<3){
$num=$hf{'num'}}else{$num=int$hd{'num'}}my($file)=$hd{'file'};my($filepath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$file";
my$thumbnail=&vl($file);my($thumbpath)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$thumbnail";
if(!$file){&sx}if($file!~/^$num\_/){&sx}if($file!~/^\d+\_\d{1,2}\.(jpg|gif)$/){&sx}unlink("$filepath");
unlink("$thumbpath");unlink("$filepath.dat");&sx}sub td{$return=1;&tk;if($hf{'access'}<3){
$num=$hf{'num'}}else{$num=int$hd{'num'}}&sq(22);$ha{'num'}=$num;&sr("_homepage_iupload_step1.html",\%ha)}
sub te{&sq(22);&vh("_homepage_iupload_step2.html");if($hf{'access'}<3){$num=$hf{'num'}}else{
$num=int$hd{'num'}}for(1..10){local($file_uploaded)=$hd{"image$_"."_file"};local($data)=$hd{"image$_"};
local($size)=length $data;if(!$file_uploaded||!$data){next}elsif($size>$hb{'upload_maxk'}*1000){
$ha{'list'}.=&vi("too_large")}elsif($file_uploaded!~/\.(jpg|gif)$/i){$ha{'list'}.=&vi("invalid_format")}
else{my($inum)=1;my($ext)=lc$hd{"image$_"."_ext"};my($savefile)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$num"."_$inum.$ext";
while(-e $savefile){$inum++;$savefile="$he{'cgidir'}/$hb{'homepage_dir'}/images/$num"."_$inum.$ext"}
open(FILE,">$savefile");binmode(STDIN);binmode(FILE);print FILE$data;close(FILE);if($hb{'thumbnail_create'}){&vj($savefile)}$file="$num"."_$inum.$ext";
$thumbnail=&vl($file);$ha{'list'}.=&vi("row")}}$hd{'num'}=$num;if(!$ha{'list'}){&sx}$ha{'num'}=$num;
&sr("_homepage_iupload_step2.html",\%ha)}sub tc{if($hf{'access'}<3){$num=$hf{'num'}}else{$num=int$hd{'num'}}
foreach(keys %hd){local($file)="$he{'cgidir'}/$hb{'homepage_dir'}/images/$_";if(/^$num\_/&&/(gif|jpg)$/&&-e $file){
open(FILE,">$file.dat");print FILE$hd{$_};close(FILE)}}&sx}sub vs{if($hf{'access'}<3){return}$pagenum=$hd{'pagenum'}||$ho{'userman_pagenum'}||1;
$perpage=int$hb{'userman_perpage'}||10;$search=$hd{'search'}||$ho{'userman_search'};if(defined $hd{'keyword'}){
$keyword=$hd{'keyword'}; $pagenum=1}else{$keyword=$ho{'userman_keyword'}}if($hd{'userman_listall'}){
$search=""; $keyword=""; $pagenum=1}&ur("userman_search",$search);&ur("userman_keyword",$keyword);
&ur("userman_pagenum",$pagenum);&sq(30);&vh("_userman_list.html",\%ha);$query=sub{if($hf{'access'}<4&&$hc{'access'}==4){
return(0)}$admin_count++;if(!$hc{'expires_never'}&&$hc{'expires_date'}<=$hn{'date'}){$hc{'expired'}=1}
else{$hc{'expired'}=0}if($keyword&&$hc{'name'}!~/\Q$keyword\E/i){return(0)}if(!$search||$search eq"all"){
return(1)}if($hc{'access'}eq$search&&!$hc{'expired'}&&!$hc{'disabled'}){return(1)}if($search==5&&$hc{'expired'}){
return(1)}if($search eq"D"&&$hc{'disabled'}){return(1)}return(0)};$match=sub{if($hc{'expires_never'}){
$hc{'expires'}=&vi("never")}elsif(!$hc{'expires_never'}&&$hc{'expires_date'}<=$hn{'date'}){
$hc{'expires'}=&vi("expired")}else{$hc{'expires'}=&vi("mon$hc{'expires_mon'}");$hc{'expires'}.=sprintf(" %02d,",$hc{'expires_day'});
$hc{'expires'}.=" $hc{'expires_year'}"}if($hc{'listings_hidden'}){$hc{'listings_status'}=&vi("listings_hidden",\%hc)}
else{$hc{'listings_status'}=&vi("listings_visible",\%hc)}if($hc{'disabled'}){$ha{'list'}.=&vi("disabled",\%hc)}
elsif($hc{'access'}==1){$ha{'list'}.=&vi("newuser",\%hc)}elsif($hc{'access'}==2){$ha{'list'}.=&vi("regular",\%hc)}
elsif($hc{'access'}==3){$ha{'list'}.=&vi("admin",\%hc)}elsif($hc{'access'}==4){$ha{'list'}.=&vi("superuser",\%hc)}};
$sort="1";($ha{'pcount'},$ha{'mcount'},$ha{'rcount'},$ha{'cpage'},$ha{'lpage'},$ha{'npage'})=&si(\%hj,$query,$match,$sort,\%hc,$pagenum,$perpage);
if(!$ha{'list'}){$ha{'list'}=&vi("not_found")}$ha{"search_$search"."_selected"}="selected";
$ha{'keyword'}=$keyword;if($hf{'access'}==4){$ha{'extra_option'}=&vi('search_superuser',\%ha)}$ha{'rcount'}=$admin_count;
&sr("_userman_list.html",\%ha)}sub vo{if($hf{'access'}<3){return}&sq(31);if($hd{'userman_save'}){%ha=%hd;
$ha{"access_$ha{'access'}_selected"}="selected";$ha{"created_mon_$ha{'created_mon'}_selected"}="selected";
$ha{"created_day_$ha{'created_day'}_selected"}="selected";$ha{"created_year_$ha{'created_year'}_selected"}="selected";
$ha{"expires_mon_$ha{'expires_mon'}_selected"}="selected";$ha{"expires_day_$ha{'expires_day'}_selected"}="selected";
$ha{"expires_year_$ha{'expires_year'}_selected"}="selected";$ha{"expires_never_checked"}="checked"if$ha{'expires_never'};
$ha{"disabled_$ha{'disabled'}_checked"}="checked";$ha{"listings_hidden_$ha{'listings_hidden'}_checked"}="checked";
$ha{"listings_max"}=int$ha{"listings_max"};$ha{"listings_unlimited_checked"}="checked"if$ha{'listings_unlimited'};
$ha{"user_listed_$ha{'user_listed'}_checked"}="checked";$ha{"specify_filename_$ha{'specify_filename'}_checked"}="checked"}
else{$ha{'access_2_selected'}="selected";$ha{"created_mon_$hn{'mon'}_selected"}="selected";
$ha{"created_day_$hn{'day'}_selected"}="selected";$ha{"created_year_$hn{'year'}_selected"}="selected";
$ha{"expires_mon_$hn{'mon'}_selected"}="selected";$ha{"expires_day_$hn{'day'}_selected"}="selected";
$ha{"expires_year_".($hn{'year'}+1)."_selected"}="selected";$ha{"disabled_0_checked"}="checked";
$ha{"listings_hidden_0_checked"}="checked";$ha{"user_listed_1_checked"}="checked";$ha{"specify_filename_0_checked"}="checked"}
&vh("_userman_add.html",\%ha);if($hf{'access'}==4){$ha{'extra_option'}=&vi('superuser',\%ha)}
if($error eq"invalid_login_name"){$ha{'error'}=&vi("invalid_login_name")}if($error eq"invalid_filename"){
$ha{'error'}=&vi("invalid_filename")}&sr("_userman_add.html",\%ha)}sub vq{if($hf{'access'}<3){
return}my($num)=int$hd{'userman_edit'}||int$hd{'num'};&sk(\%hj,\%hc,$num)||&vs;if($hf{'access'}<4&&$hc{'access'}==4){&vs}
&sq(32);if($hd{'userman_save'}){%ha=%hd;$ha{"access_$ha{'access'}_selected"}="selected";$ha{"created_mon_$ha{'created_mon'}_selected"}="selected";
$ha{"created_day_$ha{'created_day'}_selected"}="selected";$ha{"created_year_$ha{'created_year'}_selected"}="selected";
$ha{"expires_mon_$ha{'expires_mon'}_selected"}="selected";$ha{"expires_day_$ha{'expires_day'}_selected"}="selected";
$ha{"expires_year_$ha{'expires_year'}_selected"}="selected";$ha{"expires_never_checked"}="checked"if$ha{'expires_never'};
$ha{"disabled_$ha{'disabled'}_checked"}="checked";$ha{"listings_hidden_$ha{'listings_hidden'}_checked"}="checked";
$ha{"listings_max"}=int$ha{"listings_max"};$ha{"listings_unlimited_checked"}="checked"if$ha{'listings_unlimited'};
if($ha{'user_listed'}){$ha{'user_listed_1_checked'}="checked"}else{$ha{'user_listed_0_checked'}="checked"}
if($ha{'specify_filename'}){$ha{'specify_filename_1_checked'}="checked"}else{$ha{'specify_filename_0_checked'}="checked"}}
else{$hc{"access_$hc{'access'}_selected"}="selected";$hc{"created_mon_$hc{'created_mon'}_selected"}="selected";
$hc{"created_day_$hc{'created_day'}_selected"}="selected";$hc{"created_year_$hc{'created_year'}_selected"}="selected";
$hc{"expires_mon_$hc{'expires_mon'}_selected"}="selected";$hc{"expires_day_$hc{'expires_day'}_selected"}="selected";
$hc{"expires_year_$hc{'expires_year'}_selected"}="selected";$hc{"expires_never_checked"}="checked"if$hc{'expires_never'};
$hc{"listings_max"}=int$hc{"listings_max"};$hc{"listings_unlimited_checked"}="checked"if$hc{'listings_unlimited'};
if($hc{'disabled'}){$hc{'disabled_1_checked'}="checked"}else{$hc{'disabled_0_checked'}="checked"}
if($hc{'listings_hidden'}){$hc{'listings_hidden_1_checked'}="checked"}else{$hc{'listings_hidden_0_checked'}="checked"}
if($hc{'user_listed'}){$hc{'user_listed_1_checked'}="checked"}else{$hc{'user_listed_0_checked'}="checked"}
if($hc{'specify_filename'}){$hc{'specify_filename_1_checked'}="checked"}else{$hc{'specify_filename_0_checked'}="checked"}%ha=%hc}
&vh("_userman_edit.html",\%ha);if($hf{'access'}==4){$ha{'extra_option'}=&vi('superuser',\%ha)}
if($error eq"invalid_login_name"){$ha{'error'}=&vi("invalid_login_name")}if($error eq"invalid_filename"){
$ha{'error'}=&vi("invalid_filename")}&sr("_userman_edit.html",\%ha)}sub vp{if($hf{'access'}<3){
return}my($num)=int$hd{'userman_confirm_erase'};&sk(\%hj,\%hc,$num)||&vs;if($hf{'access'}<4&&$hc{'access'}==4){&vs}
&sq(33);%ha=%hc;&sr("_userman_confirm_erase.html",\%ha)}sub vr{if($hf{'access'}<3){return}
my($num)=int$hd{'num'};&sk(\%hj,\%hc,$num)||&vs;if($hf{'access'}<4&&$hc{'access'}==4){&vs}
&sq(33);&sf(\%hj,$num)||&vs;my($pfile);if($hc{'specify_filename'}&&$hc{'homepage_filename'}){
$pfile=$hc{'homepage_filename'}}else{$pfile=sprintf("h%04d.".$he{'publish_ext'},$num)}my($ppath)="$he{'cgidir'}/$hb{'homepage_dir'}/$pfile";
unlink($ppath);opendir(DIR,"$he{'cgidir'}/$hb{'homepage_dir'}/images/");my(@ab)=grep(/^$num\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));
closedir(DIR);foreach$file(@ab){my$thumbfile=&vl($file);unlink("$he{'cgidir'}/$hb{'homepage_dir'}/images/$file");
unlink("$he{'cgidir'}/$hb{'homepage_dir'}/images/$thumbfile");unlink("$he{'cgidir'}/$hb{'homepage_dir'}/images/$file.dat")}
my(@am);$rowcode=sub{if($hg{'owner'}==$num){push(@am,$hg{'num'})}};&sh(\%hi,$rowcode,undef,\%hg);
foreach$lnum(@am){&sf(\%hi,$lnum);my($pfile)=sprintf("l%04d.".$he{'publish_ext'},$lnum);unlink("$he{'cgidir'}/$hb{'listing_dir'}/$pfile");
opendir(DIR,"$he{'cgidir'}/$hb{'listing_dir'}/images/");my(@ab)=grep(/^$lnum\_\d{1,2}\.(jpg|gif)$/,readdir(DIR));
closedir(DIR);foreach$file(@ab){my$thumbfile=&vl($file);unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$file");
unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$thumbfile");unlink("$he{'cgidir'}/$hb{'listing_dir'}/images/$file.dat")}}
if($hb{'publish_homepage_index'}){&tj}if($hb{'publish_listing_index'}){&ud}&sr("_userman_erased.html",\%ha)}
sub vt{if($hf{'access'}<3){return}my($num)=int$hd{'num'};$hd{'login_id'}=lc$hd{'login_id'};
$hd{'homepage_filename'}=lc$hd{'homepage_filename'};if($hf{'access'}<4&&$hd{'access'}>=4){&vs}
my%ia;$rowcode=sub{$ia{lc$hc{'login_id'}}=$hc{'num'};$if{lc$hc{'homepage_filename'}}=$hc{'num'}};
&sh(\%hj,$rowcode,undef,\%hc);if($hd{'login_id'}&&$ia{$hd{'login_id'}}&&$num!=$ia{$hd{'login_id'}}){
$error="invalid_login_name"}if($hd{'homepage_filename'}&&$if{$hd{'homepage_filename'}}&&$num!=$if{
$hd{'homepage_filename'}}){$error="invalid_filename"}if($error){if($num){&vq}else{&vo}}&sq(30);
$hd{'expires_date'}=sprintf("%04d%02d%02d",$hd{'expires_year'},$hd{'expires_mon'},$hd{'expires_day'});
if($num){&sk(\%hj,\%hc,$num);foreach(keys %hc){if(/^himage/){next}if(/^hfield/){next}$hc{$_}=$hd{
$_}}&sn(\%hj,\%hc,$num)}else{$num=&sd(\%hj,\%hd)}&ti($num);if($hb{'publish_homepage_index'}){&tj}
&uc($num);if($hb{'publish_listing_index'}){&ud}&sr("_userman_saved.html",\%ha)}sub va{if($hf{'access'}<4){
return}&sq(40);&sk(\%hl,\%hb,1);if($hb{'demo'}){$hb{'product_id'}='********************'}foreach$var("publish_listing_index","publish_homepage_index","publish_listing_image0","publish_homepage_image0","db_sorting","branding","thumbnail_create"){
if($hb{$var}){$hb{"$var"."_1_checked"}="checked"; $hb{"$var"."_0_checked"}=""}else{$hb{"$var"."_0_checked"}="checked"; $hb{"$var"."_1_checked"}=""}}
if($hb{'time_adjh'}eq"add"){$hb{'time_adjh_add_selected'}="selected"}if($hb{'time_adjh'}eq"minus"){
$hb{'time_adjh_minus_selected'}="selected"}if($hb{'time_adjm'}eq"add"){$hb{'time_adjm_add_selected'}="selected"}
if($hb{'time_adjm'}eq"minus"){$hb{'time_adjm_minus_selected'}="selected"}$hb{'server_time'}=localtime($he{'stime'});
$hb{'time_adj_hour'}=int$hb{'time_adj_hour'};$hb{'time_adj_min'}=int$hb{'time_adj_min'};$hb{'local_time'}=localtime($he{'ltime'});
$hb{'str'}="c=".&vn($hb{'company_name'});$hb{'str'}.="&d=".&vn($hb{'domain_name'});$hb{'str'}.="&p=".&vn($hb{'product_id'});
$hb{'str'}.="&v=".&vn($he{'progVer'});$hb{'str'}.="&h=".&vn($ENV{'HTTP_HOST'});$hb{'str'}.="&s=".&vn($ENV{'SERVER_NAME'});
$hb{'upgrade_id'}=&uj($hb{'str'});%ha=%hb;&vh("_setup_options_edit.html");if($hm{'thumbnailing'}{'disable_thumbnails'}){
$ha{'thumbnail_status'}=&vi("thumbnail_disallowed",\%ha);$hb{'thumbnail_create'}=0}else{&uk();
if($hh{'core-graph'}{'im'}){$ha{'thumbnail_status'}=$hh{'core-graph'}{'im'}.&vi("thumbnail_im_note",\%ha)} elsif($hh{'core-graph'}{'gd'}){
if($hh{'core-graph'}{'version'}>=1.26){$ha{'thumbnail_status'}=$hh{'core-graph'}{'gd'}.&vi("thumbnail_gd_note",\%ha)}
else{$ha{'thumbnail_status'}=$hh{'core-graph'}{'gd'}.&vi("thumbnail_too_old",\%ha);$hb{'thumbnail_create'}=0}}
else{$ha{'thumbnail_status'}=&vi("thumbnail_no_module",\%ha)}}&sr("_setup_options_edit.html",\%ha)}
sub vb{if($hf{'access'}<4){return}if($hb{'demo'}){print"Content-type: text/html\n\n" unless($ContentType++);
$message="The ability to alter Setup Options has been removed from our demo version.A registered version of Auto Manager would allow you to change any of these fields.";
print&vh("_demo_break.html",{'message'=>$message});exit}$he{'titlebar'}=$hd{'titlebar'};$he{'footerbar'}=$hd{'footerbar'};
&sq(40);&sk(\%hl,\%hb,1);foreach$field(keys %hb){if($field=~/^lfield/){next}if($field=~/^hfield/){
next}if($field eq"product_id"){next}if($field eq"installed"){next}if($field eq"d"){next}if($field eq"prog_ver"){
next}$hb{$field}=$hd{$field}}$hb{'login_timeout'}=int$hb{'login_timeout'}||1;if($hb{'max_filelock_duration'}<5){
$hb{'max_filelock_duration'}=5}&uk();if($hm{'thumbnailing'}{'disable_thumbnails'}||$hh{'core-graph'}{'module'}
eq''){$hb{'thumbnail_create'}=0}my$license_id_changed;if($hd{'product_id'}ne$hb{'product_id'}){
if(&vu($hd{'product_id'})){$license_id_changed++;$hb{'product_id'}=$hd{'product_id'}}else{&sr("_setup_invalid_license_id.html",\%ha);
exit}}&sn(\%hl,\%hb,1);if($license_id_changed){&vx()}%ha=%hb;&sr("_setup_options_saved.html",\%ha)}
sub ux{if($hf{'access'}<4){return}&sq(41);&sk(\%hl,\%hb,1);for$num(1..75){if($hb{"lfield$num"."_active"}){
$hb{"lfield$num"."_active_checked"}="checked"}$val=$hb{"lfield$num"."_type"};if($val){$hb{"lfield$num"."_type_$val"."_selected"}="selected"}}%ha=%hb;
&sr("_setup_lfields_edit.html",\%ha)}sub uw{if($hf{'access'}<4){return}&sq(41);$num=int$hd{'setup_lfields_confirm_reset'};
$ha{'name'}=$hb{"lfield$num"."_name"};if($ha{'name'}=~m/^(.*?)\((.*?)\)$/i){$ha{'name'}=$1}$ha{'num'}=$num;
&sr("_setup_lfields_confirm_reset.html",\%ha)}sub uy{if($hf{'access'}<4){return}$num=int$hd{'num'};
&sk(\%hl,\%hb,1);$hb{"lfield$num"."_name"}="";$hb{"lfield$num"."_type"}="";$hb{"lfield$num"."_active"}="";
&sn(\%hl,\%hb,1);$rowcode=sub{$hg{"lfield$num"}=""};&sj(\%hi,$rowcode,undef,\%hg);&ux}sub uz{
if($hf{'access'}<4){return}&sq(41);&sk(\%hl,\%hb,1);foreach$field(keys %hb){if($field!~/^lfield/){
next}$hb{$field}=$hd{$field}}&sn(\%hl,\%hb,1);if($return){return}%ha=%hb;&sr("_setup_lfields_saved.html",\%ha)}
sub ut{if($hf{'access'}<4){return}&sq(42);&sk(\%hl,\%hb,1);for$num(1..50){if($hb{"hfield$num"."_active"}){
$hb{"hfield$num"."_active_checked"}="checked"}}for$num(1..50){$val=$hb{"hfield$num"."_type"};
$hb{"hfield$num"."_type_$val"."_selected"}="selected"}%ha=%hb;&sr("_setup_hfields_edit.html",\%ha)}
sub us{if($hf{'access'}<4){return}&sq(42);$num=int$hd{'setup_hfields_confirm_reset'};$ha{'name'}=$hb{"hfield$num"."_name"};
if($ha{'name'}=~m/^(.*?)\((.*?)\)$/i){$ha{'name'}=$1}$ha{'num'}=$num;&sr("_setup_hfields_confirm_reset.html",\%ha)}
sub uu{if($hf{'access'}<4){return}$num=int$hd{'num'};&sk(\%hl,\%hb,1);$hb{"hfield$num"."_name"}="";
$hb{"hfield$num"."_type"}="";$hb{"hfield$num"."_active"}="";&sn(\%hl,\%hb,1);$rowcode=sub{
$hc{"hfield$num"}=""};&sj(\%hj,$rowcode,undef,\%hc);&ut}sub uv{if($hf{'access'}<4){return}
&sq(42);&sk(\%hl,\%hb,1);foreach$field(@{$hl{"fields"}}){if($field!~/^hfield/){next}$hb{$field}=$hd{
$field}}&sn(\%hl,\%hb,1);%ha=%hb;&sr("_setup_hfields_saved.html",\%ha)}sub vf{if($hf{'access'}<4){
return}&uc("all");&va()}sub ve{if($hf{'access'}<4){return}&ud;&va}sub vd{if($hf{'access'}<4){
return}my(@ae);$rowcode=sub{push(@ae,$hc{'num'})};&sh(\%hj,$rowcode,undef,\%hc);foreach$num(@ae){&ti($num)}
&va}sub vc{if($hf{'access'}<4){return}&tj;&va}sub vg{if($hf{'access'}<4){return}my@ab;my$path="$he{'cgidir'}/$hb{'listing_dir'}/images";
opendir(DIR,$path);while($file=readdir(DIR)){if($file=~/^(\d+)\_\d{1,2}\.(jpg|gif)$/){push(@ab,"$path/$file")}}
closedir(DIR);$path="$he{'cgidir'}/$hb{'homepage_dir'}/images";opendir(DIR,$path);while($file=readdir(DIR)){
if($file=~/^(\d+)\_\d{1,2}\.(jpg|gif)$/){push(@ab,"$path/$file")}}closedir(DIR);my$heartbeat=$hm{'thumbnailing'}{'thumbnail_heartbeat'};
my$count;my$total=@ab;$|++;print"Content-type: text/html\n\n" unless($ContentType++);foreach$file(@ab){&vj($file);
if($heartbeat&&(++$count % $heartbeat==0)){print"<!-- thumbnail $count -->\n";print"<script language='javascript'>window.status='Thumbnailed $count of $total';</script>\n"}}
if($heartbeat){print"<script language='javascript'>window.status='';</script>"}&va}sub sh{
if(ref($_[0])ne"HASH"){die"DB_List : The first argument must be a HASH reference!\n"}if(ref($_[1])ne"CODE"&&$_[1]){
die"DB_List : The second argument must be a CODE reference!\n"}if(ref($_[3])ne"HASH"&&$_[3]){
die"DB_List : The fourth argument must be a HASH reference!\n"}if(!$_[0]->{'datafile'}){die"DB_List : No datafile was specified in the DB definition!\n"}
if(!$_[0]->{'filelock'}){die"DB_List : No filelock was specified in the DB definition!\n"}
if(ref($_[0]->{fields})ne"ARRAY"){die"DB_List : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_List : No fields were specified in the DB definition!\n"}
my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";
my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};$datafile.=$_[0]->{'cgiext'};
my($rowcode)=$_[1];my($sortcode)=$_[2];my($out)=$_[3];my(@aa);my(@ac);unless(-e $datafile){
return(0)}if($backup){&se($_[0])}&sl($filelock);open(FILE,"<$datafile")||die("DB_List : Can't open '$datafile'.$!\n");@aa=<FILE>;
close(FILE);&so($filelock);if($sortcode){if(ref $sortcode eq'CODE'){@aa=sort{&$sortcode} @aa}
else{@aa=&wd('¡',$sortcode,\@aa)}}foreach(@aa){/^\d/||next;s/[^¡]+$//;undef %$out;@ac=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ac[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}
&$rowcode}}sub si{if(ref($_[0])ne"HASH"){die"DB_ListPage : The first argument must be a HASH reference!\n"}
if(ref($_[1])ne"CODE"&&$_[1]){die"DB_ListPage : The second argument must be a CODE reference!\n"}
if(ref($_[2])ne"CODE"&&$_[2]){die"DB_ListPage : The third argument must be a CODE reference!\n"}
if(ref($_[4])ne"HASH"&&$_[4]){die"DB_ListPage : The fifth argument must be a HASH reference!\n"}
if($_[5]=~/[^0-9]/){die"DB_ListPage : Page number value contains non-numeric characters!\n"}
if(!$_[6]){die"DB_ListPage : No Records PerPage value was specified!\n"}if($_[6]=~/[^0-9]/){
die"DB_ListPage : Records PerPage value contains non-numeric characters!\n"}if(!$_[0]->{'datafile'}){
die"DB_ListPage : No datafile was specified in the DB definition!\n"}if(!$_[0]->{'filelock'}){
die"DB_ListPage : No filelock was specified in the DB definition!\n"}if(ref($_[0]->{fields})ne"ARRAY"){
die"DB_ListPage : Field names in the DB definition must be a ARRAY reference!\n"}if($#{$_[0]->{
fields}}<0){die"DB_ListPage : No fields were specified in the DB definition!\n"}my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($querycode)=$_[1];my($matchcode)=$_[2];my($sortcode)=$_[3];
my($out)=$_[4];my($perpage)=int$_[6];my($pcount)=0;my($mcount)=0;my($rcount)=0;my($cpage)=int$_[5]||1;
my($lpage)=0;my($npage)=0;my(@aa);my(@ac);unless(-e $datafile){return(0,0,0,0,0,0)}if($backup){&se($_[0])}
&sl($filelock);open(FILE,"<$datafile")||die("DB_List : Can't open '$datafile'.$!\n");@aa=<FILE>;
close(FILE);&so($filelock);if($sortcode){if(ref $sortcode eq'CODE'){@aa=sort{&$sortcode} @aa}
else{@aa=&wd('¡',$sortcode,\@aa)}}foreach(@aa){/^\d/||next;$rcount++;s/[^\¡]+$//;undef %$out;@ac=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ac[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}
if(&$querycode){$mcount++;my($thispage)=($mcount%$perpage) ?int($mcount/$perpage)+1 : $mcount/$perpage;
if($thispage==$cpage){&$matchcode}}}$pcount=int($mcount / $perpage);if($mcount % $perpage){
$pcount++}if(($cpage-1)<1||($cpage-1)>$pcount){$lpage=$pcount}else{$lpage=$cpage-1}if(($cpage+1)>$pcount){
$npage=1}else{$npage=$cpage+1}if(!$pcount){$cpage=$lpage=$npage=0}return ($pcount,$mcount,$rcount,$cpage,$lpage,$npage)}
sub sj{if(ref($_[0])ne"HASH"){die"DB_ListSave : The first argument must be a HASH reference!\n"}
if(ref($_[1])ne"CODE"&&$_[1]){die"DB_ListSave : The second argument must be a CODE reference!\n"}
if(ref($_[3])ne"HASH"&&$_[3]){die"DB_ListSave : The fourth argument must be a HASH reference!\n"}
if(!$_[0]->{'datafile'}){die"DB_ListSave : No datafile was specified in the DB definition!\n"}
if(!$_[0]->{'filelock'}){die"DB_ListSave : No filelock was specified in the DB definition!\n"}
if(ref($_[0]->{fields})ne"ARRAY"){die"DB_ListSave : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_ListSave : No fields were specified in the DB definition!\n"}
my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";
my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};$datafile.=$_[0]->{'cgiext'};
my($rowcode)=$_[1];my($sortcode)=$_[2];my($out)=$_[3];my(@aa);my(@ac);unless(-e $datafile){
return(0)}if($backup){&se($_[0])}&sl($filelock);open(FILE,"<$datafile")||die("DB_List : Can't open '$datafile'.$!\n");@aa=<FILE>;
close(FILE);if($sortcode){if(ref $sortcode eq'CODE'){@aa=sort{&$sortcode} @aa}else{@aa=&wd('¡',$sortcode,\@aa)}}
foreach(@aa){/^\d/||next;s/[^¡]+$//;undef %$out;@ac=split(/\¡/);my$i;for$i(0..$#fields){$out->{
$fields[$i]}=$ac[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}&$rowcode;
$_="$ac[$i]¡";for$i(1..$#fields){my($enc)=$out->{$fields[$i]};$enc=~s/[\x1a\r\n\¡\¿]/sprintf("¿%02x",ord($&))/egx;
$_.="$enc¡"}$_.="\n"}open(FILE,">$datafile.tmp$$")||die("DB_List : Can't create temp file $datafile.tmp$$.$!\n");
open(FILE,">$datafile.tmp$$")||die("DB_ListSave : Can't create temp file $datafile.tmp$$.$!\n");
print FILE qq|#!$^X\n| or &sg("DB_ListSave: Can't write header section 1 to $datafile.tmp$$");
print FILE qq|print"Content-type: text/plain\\n\\n| or &sg("DB_ListSave: Can't write header section 2 to $datafile.tmp$$");
print FILE qq|Auto Manager v$he{'progVer'} data file.";\n__END__\n|or &sg("DB_ListSave: Can't write header section 3 to $datafile.tmp$$");
foreach(@aa){/^\d/||next;s/[^¡]+$//;print FILE"$_\n" or &sg("DB_ListSave: Can't write record to $datafile.tmp$$")}
close(FILE)||&sg("DB_ListSave: Can't close $datafile.tmp$$");rename("$datafile.tmp$$",$datafile)||&sg("DB_ListSave: Can't rename $datafile.tmp$$ to $datafile");
&so($filelock)}sub sd{if(ref($_[0])ne"HASH"){die"DB_Add : The first argument must be a HASH reference!\n"}
if(ref($_[1])ne"HASH"){die"DB_Add : The second argument must be a HASH reference!\n"}if(!$_[0]->{'datafile'}){
die"DB_Add : No datafile was specified in the DB definition!\n"}if(!$_[0]->{'filelock'}){die"DB_Add : No filelock was specified in the DB definition!\n"}
if(ref($_[0]->{fields})ne"ARRAY"){die"DB_Add : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_Add : No fields were specified in the DB definition!\n"}my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($in)=$_[1];my(@aa);my(@ac);my(%ht);if((-e $datafile)&&$backup){&se($_[0])}
&sl($filelock);if(-e "$datafile"){open(FILE,"<$datafile")||die("DB_Add : Error,Can't open '$datafile'.$!\n");@aa=<FILE>;
close(FILE)}foreach(@aa){/^\d/||next;$ht{(split(/\¡/))[0]}=1}my($nnum)=1;while($ht{$nnum}){
$nnum++}open(FILE,">$datafile.tmp$$")||die("DB_Add : Can't create temp file $datafile.tmp$$.$!\n");
print FILE qq|#!$^X\n| or &sg("DB_Add: Can't write header section 1 to $datafile.tmp$$");print FILE qq|print"Content-type: text/plain\\n\\n| or &sg("DB_Add: Can't write header section 2 to $datafile.tmp$$");
print FILE qq|Auto Manager v$he{'progVer'} data file.";\n__END__\n| or &sg("DB_Save: Can't write header section 3 to $datafile.tmp$$");
foreach(@aa){/^\d/||next;s/[^¡]+$//;print FILE"$_\n" or &sg("DB_Add: Can't rewrite record to $datafile.tmp$$")}
my($line)="$nnum¡";my$i;for$i(1..$#fields){my($enc)=$in->{$fields[$i]};$enc=~s/[\x1a\r\n\¡\¿]/sprintf("¿%02x",ord($&))/egx;
$line.="$enc¡"}print FILE"$line\n" or &sg("DB_Add: Can't write new record to $datafile.tmp$$");
close(FILE)||&sg("DB_Add: Can't close $datafile.tmp$$");rename("$datafile.tmp$$",$datafile)||&sg("DB_Add: Can't rename $datafile.tmp$$ to $datafile");
&so($filelock);return $nnum}sub sk{if(ref($_[0])ne"HASH"){die"DB_Load : The first argument must be a HASH reference!\n"}
if(ref($_[1])ne"HASH"){die"DB_Load : The second argument must be a HASH reference!\n"}if(!$_[2]){
die"DB_Load : No record number was specified!\n"}if($_[2]=~/[^0-9]/){die"DB_Load : Record number contains non-numeric characters!\n"}
if(!$_[0]->{'datafile'}){die"DB_Load : No datafile was specified in the DB definition!\n"}
if(!$_[0]->{'filelock'}){die"DB_Load : No filelock was specified in the DB definition!\n"}
if(ref($_[0]->{fields})ne"ARRAY"){die"DB_Load : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_Load : No fields were specified in the DB definition!\n"}
my$cacheRecords=$_[3];$cacheRecords||=[];my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($out)=$_[1];my($rnum)=int$_[2];my(@aa);my(@ac);unless(-e $datafile){
return(0)}if($backup){&se($_[0])}if(@{$cacheRecords}==0&&-e "$datafile"){&sl($filelock);open(FILE,"<$datafile")||die("DB_Load : Error,Can't open '$datafile'.$!\n");@$cacheRecords=<FILE>;
close(FILE);&so($filelock)}foreach(@$cacheRecords){/^$rnum\¡/||next;s/[^¡]+$//;undef %$out;@ac=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ac[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}
return(1)}return(0)}sub sf{if(ref($_[0])ne"HASH"){die"DB_Del : The first argument must be a HASH reference!\n"}
if(!$_[1]){die"DB_Del : The second argument must be a record number!\n"}if($_[1]=~/[^0-9]/){
die"DB_Del : Record number contains non-numeric characters!\n"}if(!$_[0]->{'datafile'}){die"DB_Del : No datafile was specified in the DB definition!\n"}
if(!$_[0]->{'filelock'}){die"DB_Del : No filelock was specified in the DB definition!\n"}if(ref($_[0]->{
fields})ne"ARRAY"){die"DB_Del : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_Del : No fields were specified in the DB definition!\n"}my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($rnum)=int$_[1];my(%ht);my($erased)=0;for(1..$#_){$ht{$_[$_]}++}
my(@aa);unless(-e $datafile){return(0)}if($backup){&se($_[0])}&sl($filelock);if(-e "$datafile"){
open(FILE,"<$datafile")||die("DB_Del : Error,Can't open '$datafile'.$!\n");@aa=<FILE>;close(FILE)}
open(FILE,">$datafile.tmp$$")||die("DB_Del : Can't create temp file $datafile.tmp$$.$!\n");
print FILE qq|#!$^X\n|;print FILE qq|print"Content-type: text/plain\\n\\n|;print FILE qq|Auto Manager v$he{'progVer'} data file.";\n__END__\n|;
foreach(@aa){/^(\d+)\¡/||next;if($ht{$1}){$erased++; next}s/[^¡]+$//;print FILE"$_\n"}close(FILE)||die("DB_Del: Can't write $datafile : $!");
rename("$datafile.tmp$$",$datafile)||die("DB_Del: Can't write $datafile : $!");&so($filelock);
return $erased}sub sn{if(ref($_[0])ne"HASH"){die"DB_Save : The first argument must be a HASH reference!\n"}
if(ref($_[1])ne"HASH"){die"DB_Save : The second argument must be a HASH reference!\n"}if(!$_[2]){
die"DB_Save : No record number was specified!\n"}if($_[2]=~/[^0-9]/){die"DB_Save : Record number contains non-numeric characters!\n"}
if(!$_[0]->{'datafile'}){die"DB_Save : No datafile was specified in the DB definition!\n"}
if(!$_[0]->{'filelock'}){die"DB_Save : No filelock was specified in the DB definition!\n"}
if(ref($_[0]->{fields})ne"ARRAY"){die"DB_Save : Field names in the DB definition must be a ARRAY reference!\n"}
if($#{$_[0]->{fields}}<0){die"DB_Save : No fields were specified in the DB definition!\n"}
my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";
my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};$datafile.=$_[0]->{'cgiext'};
my($in)=$_[1];my($rnum)=int$_[2];my($saved)=0;my(@aa);my(@ac);unless(-e $datafile){return(0)}
if($backup){&se($_[0])}&sl($filelock);open(FILE,"<$datafile")||die("DB_Save : Error,Can't open '$datafile'.$!\n");@aa=<FILE>;
close(FILE);open(FILE,">$datafile.tmp$$")||die("DB_Save : Can't create temp file $datafile.tmp$$.$!\n");
print FILE qq|#!$^X\n| or &sg("DB_Save: Can't write header section 1 to $datafile.tmp$$");
print FILE qq|print"Content-type: text/plain\\n\\n| or &sg("DB_Save: Can't write header section 2 to $datafile.tmp$$");
print FILE qq|Auto Manager v$he{'progVer'} data file.";\n__END__\n| or &sg("DB_Save: Can't write header section 3 to $datafile.tmp$$");
foreach(@aa){/^\d/||next;if(/^$rnum\¡/){my($line)="$rnum¡";my$i;for$i(1..$#fields){my($enc)=$in->{
$fields[$i]};$enc=~s/[\x1a\r\n\¡\¿]/sprintf("¿%02x",ord($&))/egx;$line.="$enc¡"}print FILE"$line\n" or &sg("DB_Save: Can't write updated record to $datafile.tmp$$");
$saved++;next}s/[^¡]+$//;print FILE"$_\n" or &sg("DB_Save: Can't rewrite record to $datafile.tmp$$")}
close(FILE)||&sg("DB_Save: Can't close $datafile");rename("$datafile.tmp$$",$datafile)||&sg("DB_Save: Can't rename $datafile.tmp$$ to $datafile");
&so($filelock);unless($saved){&sd(@_)}}sub se{my($datafile)="$he{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$he{'cgidir'}/../data/$_[0]->{'filelock'}";my($backup)=$_[0]->{'backup'};my($cgiext)=$_[0]->{'cgiext'};
my($bkupfile);unless($backup){return}if($backup eq"disabled"){return}if($backup eq"none"){
return}my($hour,$day,$month,$year)=(localtime(time))[2..5];$hour=sprintf("%02d",$hour);$day=sprintf("%02d",$day);
$month=sprintf("%02d",$month+1);$year=sprintf("%04d",$year+1900);if($backup eq"hourly"){$bkupfile="$datafile.$year-$month-$day-$hour-backup$cgiext"}
elsif($backup eq"daily"){$bkupfile="$datafile.$year-$month-$day-backup$cgiext"}elsif($backup eq"monthly"){
$bkupfile="$datafile.$year-$month-backup$cgiext"}elsif($backup eq"yearly"){$bkupfile="$datafile.$year-backup$cgiext"}
else{die("DB_Backup : Unknown backup setting\n")}if(-e $bkupfile){return}$datafile="$datafile$cgiext";
&sl($filelock);open(FILE,"<$datafile")||die("DB_Backup : Can't open '$datafile'.$!\n");open(BKUP,">$bkupfile")||die("DB_Backup : Can't open '$bkupfile'.$!\n");
print BKUP<FILE>;close(FILE);close(BKUP)||die("DB_Backup : Can't write '$bkupfile'.$!\n");
&so($filelock)}sub sm{my($filelock)=$_[0];my($i);if(!-w "$he{'cgidir'}/../data/"){die("DB_Lock : $he{'cgidir'}/../data/ isn't writable,can't create filelock\n")}
if(-d $filelock&&(stat($filelock))[9]<time() - ($hb{'max_filelock_duration'}||300)){rmdir($filelock)}
while(!mkdir($filelock,0777)){sleep 1;if(++$i>50){die("DB_Lock : Can't create filelock : $!\n")}
if(-d $filelock&&(stat($filelock))[9]<time() - ($hb{'max_filelock_duration'}||300)){rmdir($filelock)}}}
sub sp{my($filelock)=$_[0];rmdir($filelock)}sub sl{my$max_filelock_wait=$hm{'max_filelock_wait'}||5;
&we('exclusive',$max_filelock_wait)}sub so{my$max_filelock_wait=$hm{'max_filelock_wait'}||5;
&wq($max_filelock_wait)}sub we{return if$hm{'disable_filelocking'};my$subProp=$hh{'_subs'}{'lock'}||={};
$subProp->{'stack'}||=[];my($lock_type,$timeout)=@_;$lock_type||='exclusive';$timeout||=0;
if($lock_type ne'exclusive' and $lock_type ne'shared'){&vv("lock: invalid lock type: '$lock_type'")}
my$previous_lock;if(@{$subProp->{'stack'}}>0){$previous_lock=$subProp->{'stack'}[-1]}if($previous_lock eq'exclusive'){
$lock_type=$previous_lock}if($previous_lock eq$lock_type){push(@{$subProp->{'stack'}},$lock_type);
return 1}my$return_value;if($previous_lock eq'shared' and $lock_type eq'exclusive'){&vv("lock: cannot upgrade a 'shared' lock to an 'exclusive' lock")}$return_value=&vw('',$lock_type,$timeout);
if($return_value){push(@{$subProp->{'stack'}},$lock_type)}return $return_value}sub wq{return if$hm{'disable_filelocking'};
my$subProp=$hh{'_subs'}{'lock'}||={};$subProp->{'stack'}||=[];my($timeout)=@_;$timeout||=0;
unless(@{$subProp->{'stack'}}>0){&vv('unlock: nested filelock underrun')}my$previous_lock=pop(@{
$subProp->{'stack'}});return if(@{$subProp->{'stack'}}>0 and $subProp->{'stack'}[-1]eq$previous_lock);
if(@{$subProp->{'stack'}}==0){&vy('')}}sub vw{my$subProp=$hh{'_subs'}{'lock'}||={};my($lock_name,$lock_type,$timeout)=@_;
my$lock_filename;if($lock_name){$lock_filename="$hh{'datadir'}/$lock_name.lock"}else{$lock_filename=$hh{'filelock'}}
if(not exists $subProp->{'lockinfo'}{$lock_name}){$subProp->{'lockinfo'}{$lock_name}{'filename'}=$lock_filename;
$subProp->{'lockinfo'}{$lock_name}{'handle'}=&ss();sysopen($subProp->{'lockinfo'}{$lock_name}{'handle'},$subProp->{'lockinfo'}{
$lock_name}{'filename'},O_RDWR|O_CREAT)||&vv('filelock',"error opening $lock_type file lock $subProp->{'lockinfo'}{
$lock_name}{'filename'}: $!\n")}else{&vv("_lock_flock: already a lock for semaphore '$lock_name'")}
my$operation;if($lock_type eq'shared'){$operation=LOCK_SH}if($lock_type eq'exclusive'){$operation=LOCK_EX}
if($timeout>0){$operation|=LOCK_NB}my$giveup_time=time()+$timeout;until (flock($subProp->{'lockinfo'}{
$lock_name}{'handle'},$operation)){if(time()<$giveup_time){sleep(1)}else{close($subProp->{'lockinfo'}{
$lock_name}{'handle'});&vv('serverbusy')}}return 1}sub vy{my$subProp=$hh{'_subs'}{'lock'}||={};
my($lock_name)=@_;unless(flock($subProp->{'lockinfo'}{$lock_name}{'handle'},LOCK_UN)){&vv('filelock',"error releasing a flock() on file lock $subProp->{'lockinfo'}{
$lock_name}{'filename'}: $!\n")}unless(close($subProp->{'lockinfo'}{$lock_name}{'handle'})){&vv('filelock',"error closing file lock $subProp->{'lockinfo'}{
$lock_name}{'filename'}: $!\n")}delete $subProp->{'lockinfo'}{$lock_name};return 1}sub ss{
my$subProp=$hh{'_subs'}{'FH_Create'}||={};my$num=int++$subProp->{'num'};my$name="FH$num";return (eval "local *$name")}
sub vv{&su(@_)}sub sg{my($msg)=(@_);my($file_error)=$!;if($file_error eq''){$file_error="Unknown error.Maybe disk quota exceeded?"}
&vv('filesystem',"$msg : $file_error\n")}sub wk{my$sort_spec=$_[0];my$offset=$_[1];my@ap=split(/\s/,$sort_spec);
$sort='';foreach$sort_order(@ap){if($sort){$sort.=' '}($field,$order,$direction)=split(/\,/,$sort_order);
$field+=$offset;if($order=~s/eu//){$euro_numbers++}if($order eq"123"&&$direction=~/^f/i&&!$euro_numbers){
$sort.="#$field"}elsif($order eq"123"&&$direction!~/^f/i&&!$euro_numbers){$sort.="-#$field"}
elsif($order eq"123"&&$direction=~/^f/i&&$euro_numbers){$sort.="#%$field"}elsif($order eq"123"&&$direction!~/^f/i&&$euro_numbers){
$sort.="-#%$field"}elsif($order eq"abc"&&$direction=~/^f/i){$sort.="$field"}elsif($order eq"abc"&&$direction!~/^f/i){
$sort.="-$field"}else{return undef}}return $sort}sub wd{my($sep,$order,$arrayref_nopack)=@_;
my($f_nopack,$charcount,$sortcode,$sortcode2,$sortcode3,$i);my($numeric,$reverse,$euro,$modify_fields);
$f_nopack=[];$i=0;foreach(split(/ /,$order)){if(s/\#//g){$numeric=1}elsif(s/n//g){$numeric=1}
else{$numeric=0}if(s/\-//g){$reverse='~'}elsif(s/\+//g){$reverse=''}else{$reverse=''}if(s/\%//g){
$euro=1}else{$euro=0}s/[^0-9]//gs;push(@$f_nopack,$_);if($numeric){$charcount+=15;$sortcode2.='%'.'s';
$modify_fields.="\$str->[$i]=~tr/,./.,/;\n"if$euro;$modify_fields.="\$str->[$i]=~s/[^0-9.]//g;\n";
$sortcode3.=qq|$reverse sprintf('%015s',substr(int(\$str->[$i]*100000),0,15)),|}else{$charcount+=50;
$sortcode2.='%- 50s';$sortcode3.="$reverse substr(\$str->[$i],0,50),"}$i++}$sortcode.="return(map{
substr(\$_,$charcount)} sort map{\n";$sortcode.="my\$str=[(split(/\\$sep/,lc\$_))[\@\$f_nopack]];\n";
$sortcode.=$modify_fields;$sortcode.="sprintf(\"$sortcode2\%"."s\" ,$sortcode3\$_);\n";$sortcode.="} \@\$arrayref_nopack);\n";
eval $sortcode}sub uq{my($max)=$_[0];my($name,$value,$pair,@ag,$buffer,%hk);my($file,$path,$ext);
my($boundary);binmode(STDIN);if($max&&($ENV{'CONTENT_LENGTH'}||length $ENV{'QUERY_STRING'})>$max){
die("ReadForm : Input exceeds max input limit of $max bytes\n")}($boundary)=$ENV{'CONTENT_TYPE'}=~/boundary=(?:"?)(\S+?)(?:"?)$/;
if($ENV{'REQUEST_METHOD'}eq"POST"&&$ENV{'CONTENT_TYPE'}=~m|^multipart/form-data|){while(<STDIN>){
if(/^--$boundary--/){$buffer.="--$boundary"; last}else{$buffer.=$_}}@ag=split(/--$boundary/,$buffer);
foreach$pair(@ag){unless($pair=~/^(\r\n|\n)Content-Disposition/){next}($name,$value)=$pair=~/^(?:\r\n|\n)(.*?)(?:\r\n|\n){2}(.*?)(?:\r\n|\n)$/s;($path)=$name=~/filename="([^"]+)"/;($name)=$name=~/name="([^"]+)"/;($file)=$path=~/([^\/\\]+)$/;($ext)=$path=~/([^\.]+)$/;
$hk{"$name"}=$value;$hk{"$name"."_path"}=$path;$hk{"$name"."_file"}=$file;$hk{"$name"."_ext"}=$ext}}
else{if($ENV{'REQUEST_METHOD'}eq'POST'){read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'})}elsif($ENV{'REQUEST_METHOD'}
eq'GET'){$buffer=$ENV{'QUERY_STRING'}}@ag=split(/&/,$buffer);foreach$pair(@ag){($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;$value=~s/%([A-F0-9]{2})/pack("C",hex($1))/egi;$value=~s/\r\n/\n/go;$hk{$name}=$value}}
foreach(keys %hk){if(/^(.*)(\.x|\.y)$/){$hk{$1}="true"}}return %hk}sub vh{if(!$_[0]){die"Template : No template file was specified!\n"}
if($_[1]&&ref($_[1])ne"HASH"){die"Template : The second argument must be a HASH reference or undefined!\n"}
my($file);my($hashref)=$_[1];my(%hk)=%{$hashref};my($cfile);my($content);local(*FILE);if($hashref){
foreach(keys %he){$hk{$_}=$he{$_}}}else{foreach(keys %he){${$_}=$he{$_}}}foreach(grep /^templatedir/,sort keys %he){
if(-e "$he{'cgidir'}/$he{$_}/$_[0]"){$file="$he{'cgidir'}/$he{$_}/$_[0]";last}}if(!$file){
die"Template : Template file '$_[0]' could not be found!\n"}open(FILE,"<$file")||die"Template : Couldn't open $file! $!\n";
while(<FILE>){$content.=$_}close(FILE);for($content){s/<!-- insert : (.*?) -->/\1/gi;s/<!-- template\s?: insert (.*?) -->/\1/gi;
s/<!-- template insert\s?:\s?(.*?) -->/\1/gi;s/<!-- template\s?:\s?define ([A-Za-z0-9_\.]+) -->(?:\r\n|\n)?(.*?)<!-- template\s?:\s?\/define \1 -->/$hy{
$1}=$2;''/gesi;s/<!-- templatecell\s?:\s?([A-Za-z0-9_\.]+) -->(?:\r\n|\n)?(.*?)<!-- \/templatecell\s?:\s? \1 -->/$hy{
$1}=$2;''/gesi;s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$value=$hashref ? $hk{$1} : ${$1};if($2 eq'_ue'){
$value=&vn($value)}if($2 eq'_he'){$value=&st($value)}if($2 eq'_nbsp'){$value=&st($value); $value=~s/ /&wi;/g}
if($2 eq'_je'){$value=&tm($value)}$value;]ge}return $content}sub vi{if(!$_[0]){die"Template : No template cell was specified!\n"}
if(!defined $hy{$_[0]}){die"Template : Template cell '$_[0]' is not defined!\n"}if($_[1]&&ref($_[1])ne"HASH"){
die"Template : The second argument must be a HASH reference or undefined!\n"}my($cellname)=$_[0];
my($hashref)=$_[1];my(%hk)=%{$hashref};my($content)=$hy{$cellname};local(*FILE);if($hashref){
foreach(keys %he){$hk{$_}=$he{$_}}}else{foreach(keys %he){${$_}=$he{$_}}}$content=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$value=$hashref ? $hk{
$1} : ${$1};if($2 eq'_ue'){$value=&vn($value)}if($2 eq'_he'){$value=&st($value)}if($2 eq'_nbsp'){
$value=&st($value); $value=~s/ /&wi;/g}if($2 eq'_je'){$value=&tm($value)}$value;]ge;return $content}
sub uj{my($in)=$_[0];my(@au)=((A..Z,a..z,0..9),'+','/');my($out)=unpack("B*",$in);$out=~s/(\d{6}|\d+$)/$au[ord(pack"B*","00$1")]/ge;
while(length($out)%4){$out.="="}return $out}sub ui{local($i);my($in)=$_[0];my(%ie);my($out);
for((A..Z,a..z,0..9),'+','/'){$ie{$_}=$i++}$in=$_[0]||return "MIME64 : Nothing to decode";
$in=~s/[^A-Za-z0-9+\/]//g;$in=~s/[A-Za-z0-9+\/]/unpack"B*",chr($ie{$&})/ge;$in=~s/\d\d(\d{6})/$1/g;
$in=~s/\d{8}/$out.=pack("B*",$&)/ge;return $out}sub vn{my($text)=$_[0];$text=~tr/ /+/;$text=~s/[^A-Za-z0-9\+\*\.\@\_\-]/uc sprintf("%%%02x",ord($&))/egx;
return $text}sub vm{my($text)=$_[0];$text=~tr/+/ /;$text=~s/%([A-F0-9]{2})/pack("C",hex($1))/egi;
return $text}sub st{my$html=shift;$html=~s/\x26/\x26amp;/g;$html=~s/"/\x26quot;/g;$html=~s/</\x26lt;/g;
$html=~s/>/\x26gt;/g;return $html}sub tm{my$string=shift;$string=~s/\\/\\\\/g;$string=~s/'/\\'/g;
$string=~s/"/\\"/g;$string=~s/\n/\\n/g;$string=~s/\r/\\r/g;$string=~s/\000//g;$string=~s/-->/--'+'>/g;
$string=~s!</script>!</scr'+'ipt>!g;return $string}sub ur{my($cookie_info);my($name,$value,$exp,$path,$domain,$secure)=@_;
my($expires);unless(defined $name){die("SetCookie : Cookie name must be specified\n")}if($exp&&$exp ne int($exp)){
die("SetCookie : Expire Date isn't in seconds using time();\n")}if($exp){my(@at)=qw(Sun Mon Tue Wed Thu Fri Sat);
my(@as)=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);my($SS,$MM,$HH,$DD,$Mon,$YYYY,$Wdy)=gmtime($exp);
foreach($DD,$HH,$MM,$SS){$_=sprintf("%02d",$_)}my($YYYY)=sprintf("%04d",$YYYY+1900);$expires="$at[$Wdy],$DD-$as[$Mon]-$YYYY $HH:$MM:$SS GMT"}
if($name){$name=&vn($name)}if($value){$value=&vn($value)}if($exp){$cookie_info.="expires=$expires; "}
if($path){$cookie_info.="path=$path; "}if($domain){$cookie_info.="domain=$domain; "}if($secure){
$cookie_info.="secure; "}print"Set-Cookie: $name=$value; $cookie_info\n"}sub up{my($cookie,$name,$value,%hv);
foreach$cookie(split(/; /,$ENV{'HTTP_COOKIE'})){($name,$value)=split(/=/,$cookie);foreach($name,$value){
$_=&vm($_)}$hv{$name}=$value}return %hv}sub vx{use Socket;my($script_filename)=$0;$script_filename=~s/.*[\/\\]//;
my($reginfo);my$host=$ENV{'HTTP_HOST'}||$ENV{'SERVER_NAME'}||$ENV{'SERVER_ADDR'};my$path=$ENV{'SCRIPT_NAME'}||$ENV{'PATH_INFO'};
$reginfo.='&'.'reg1='.&vn($hb{'company_name'});$reginfo.='&'.'reg2='.&vn($hb{'domain_name'});
$reginfo.='&'.'lnum='.&vn(&vu($hb{'product_id'}));$reginfo.='&'.'prog='.'am';$reginfo.='&'.'ver='.&vn($he{'progVer'});
$reginfo.='&'.'url='.&vn("$host$path");$reginfo.='&'.'csum='.&vn(&wb([$script_filename],[]));
my$paddr=gethostbyname('www.interactivetools.com')||return;my$sock=&wo();socket ($sock,PF_INET,SOCK_STREAM,0)||die('No Socket: '.$!);
connect ($sock,pack "SnA4x8",PF_INET,80,$paddr)||return;select ($sock); $|=1; select(STDOUT);
print$sock "GET /register/register.cgi?$reginfo HTTP/1.0\n";print$sock 'Referer: '.$host.$path."\n";
print$sock 'User-Agent: itools_software'."\n\n";my$reply=join("",<$sock>);close($sock);if($reply=~/itools\.license\.invalid/){
$hb{'d'}=1}if($reply=~/itools\.license\.valid/){$hb{'d'}=0}&sn(\%hl,\%hb,1);if($hb{'d'}){print"Content-type: text/html\n\n" unless($ContentType++);
print&vh("\x5F\x6C\x69\x63\x65\x6E\x73\x65\x5F\x64\x69\x73\x61\x62\x6C\x65\x64\x2E\x68\x74\x6D\x6C",{});
exit}}sub wo{local *FILE;return *FILE}sub vl{my($file)=@_;my$thumbfile=$file;$thumbfile=~s/^(.*)(\.\w+)$/$1_t$2/;
return $thumbfile}sub vk{my($path,$file)=@_;my$thumbfile=&vl($file);if(not -e "$path/$thumbfile"){
$thumbfile=$file}return $thumbfile}sub vj{my$filename=shift;if($hm{'thumbnailing'}{'disable_thumbnails'}){
return}if(!&uk()){return}if($hh{'core-graph'}{'module'}eq"GD"&&$hh{'core-graph'}{'version'}<1.26){
return}my($thumbfile)=&vl($filename);$filename=~/^(.*)\.([a-z0-9]+)$/i;my($base,$ext)=($1,lc($2));
if($ext eq'gif'&&$hh{'core-graph'}{'gd'}){}else{my$tpic=&un( $filename,'_t',$hb{'thumbnail_width'},$hb{'thumbnail_height'});
&uo( $tpic,$thumbfile );if(-s $thumbfile>-s $filename&&!$hm{'thumbnailing'}{'allow_larger_thumbnails'}){&sc($filename,$thumbfile)}}}
sub sc{my($from_file,$to_file)=@_;my$data;unless(open(INF,"<$from_file")){return}binmode(INF);
unless(open(OUTF,">$to_file")){close(INF); return}binmode(OUTF);while($data=<INF>){print OUTF $data}
close(INF);close(OUTF)}sub vz{my$old_version=$hb{'prog_ver'}||2.0;my$new_version=$he{'progVer'};
if($new_version==$old_version){return(undef)}if($old_version!=-1){&vx();if($old_version<2.19){
$hb{'max_filelock_duration'}=300}if($old_version<2.25){$hb{'branding'}=1}if($old_version<2.29){
$hb{'publish_ext'}="html";$hb{'thumbnail_create'}=0;$hb{'thumbnail_width'}=160;$hb{'thumbnail_height'}=120}
if($old_version<2.30){my$old_filelock_dir="$he{'cgidir'}/../data/filelock.lock";if(-e $old_filelock_dir){
unlink $old_filelock_dir}}}$hb{'prog_ver'}=$new_version;&sn(\%hl,\%hb,1);return 1}sub wb{my($script_files,$other_files)=@_;
my$data;my$fh=do{local *FILE; *FILE};my$file;foreach$file(@$script_files){if(open($fh,"<$he{'cgidir'}/$file")){<$fh>;
binmode($fh);$data.=join '',<$fh>;close($fh)}}foreach$file(@$other_files){if(open($fh,"<$he{'cgidir'}/$file")){
binmode($fh);$data.=join '',<$fh>;close($fh)}}$data=~tr/\r\n//d;return (unpack('%32C*',$data))}
sub uo{return(undef) unless(&uk());my$rpic=shift||return;;my$filename=shift||$rpic->{'filename'};
$filename=~/^(.*)\.([a-z0-9]+)$/i;my($base,$ext)=($1,lc($2));if(!$ext){$hh{'core-graph'}{'error'}="PictureWrite: $filename not valid; must end with.extension\n"}$ext=~s/jpeg/jpg/;
if($hh{'core-graph'}{'im'}){my@ao=$rpic->{'image'}->ImageToBlob();local *FILE;if(!open(FILE,">$filename")){
$hh{'core-graph'}{'error'}="PictureWrite: can't open im outfile $filename: $!\n";return}binmode(FILE);
print FILE$ao[0];if(!close(FILE)){$hh{'core-graph'}{'error'}="PictureWrite: can't close im outfile $filename: $!\n"}}
elsif($hh{'core-graph'}{'gd'}){local *FILE;if(!open(FILE,">$filename")){$hh{'core-graph'}{'error'}="PictureWrite: can't open gd outfile $filename: $!\n";
return}binmode(FILE);if($ext eq'jpg'&&$hh{'core-graph'}{'version'}>=1.26){print FILE$rpic->{'image'}->jpeg()}
elsif($ext eq'png'&&$hh{'core-graph'}{'version'}>=1.20){print FILE$rpic->{'image'}->png()}
elsif($ext eq'gif'&&$hh{'core-graph'}{'version'}<1.20){print FILE$rpic->{'image'}->gif()}if(!close(FILE)){
$hh{'core-graph'}{'error'}="PictureWrite: can't close outfile $filename: $!\n"}}}sub um{return(undef) unless(&uk());
my$filename=shift;my$rpic={};my($msg,$height,$width);$filename=~/^(.*)\.([a-z0-9]+)$/i;my($base,$ext)=($1,lc($2));
if(!$ext){$hh{'core-graph'}{'error'}="PictureRead: $filename not valid; must end with.extension\n";
return(undef)}$ext=~s/jpeg/jpg/;my$image;if($hh{'core-graph'}{'im'}){$image=Image::Magick->new;
$msg=$image->Read($filename);if($msg=~/^Error/i||$msg=~/^Exception/i){$hh{'core-graph'}{'error'}="PictureRead: can't read $filename: $msg\n";
return(undef)}($width,$height)=$image->Get('width','height')}elsif($hh{'core-graph'}{'gd'}){
if($ext eq'jpg'&&$hh{'core-graph'}{'version'}>=1.26){$image=GD::Image->newFromJpeg($filename)}
elsif($ext eq'png'&&$hh{'core-graph'}{'version'}>=1.20){$image=GD::Image->newFromPng($filename)}
elsif($ext eq'gif'&&$hh{'core-graph'}{'version'}<1.20){$image=GD::Image->newFromGif($filename)}
if(!$image){$hh{'core-graph'}{'error'}="PictureRead: can't read $filename: $!\n";return(undef)}($width,$height)=$image->getBounds()}
else{return(undef)}$rpic->{'type'}=$ext;$rpic->{'image'}=$image;$rpic->{'width'}=$width;$rpic->{'height'}=$height;
$rpic->{'filename'}=$filename;return $rpic}sub un{return(undef) unless(&uk());my($filename,$filename_suffix,$restrict_width,$restrict_height,$scale);
if(@_==3){($filename,$filename_suffix,$scale)=@_}else{($filename,$filename_suffix,$restrict_width,$restrict_height)=@_}
my$inpic=&um( $filename );if(!$inpic){return(undef)}if(!$scale){my($width_scale,$height_scale);
if($restrict_width&&$inpic->{'width'}){$width_scale=$restrict_width / $inpic->{'width'}}if($restrict_height&&$inpic->{'height'}){
$height_scale=$restrict_height / $inpic->{'height'}}if($width_scale&&$height_scale){$scale=&wh($height_scale,$width_scale)}
elsif($width_scale){$scale=$width_scale}elsif($height_scale){$scale=$height_scale}else{$scale=1}}
my$outpic={};$outpic->{'width'}=int($inpic->{'width'} * $scale+0.5);$outpic->{'height'}=int($inpic->{'height'} * $scale+0.5);
$filename=~/^(.*)(\.\w+)$/;my($base,$ext)=($1,$2);$outpic->{'filename'}=$base.$filename_suffix.$ext;
my$out_image;if($hh{'core-graph'}{'im'}){$out_image=$inpic->{'image'};my$msg=$out_image->Resize( width=>$outpic->{'width'},height=>$outpic->{'height'} );
if($msg){$hh{'core-graph'}{'error'}="PictureResize: can't resize image: $msg\n"}}elsif($hh{'core-graph'}{'gd'}){
$out_image=GD::Image->new($outpic->{'width'},$outpic->{'height'});$out_image->copyResized($inpic->{'image'},0,0,0,0,$outpic->{'width'},$outpic->{'height'},$inpic->{'width'},$inpic->{'height'})}$outpic->{'type'}=$inpic->{'type'};
$outpic->{'image'}=$out_image;return $outpic}sub ul{my$module=shift;my$status;{local $SIG{'__DIE__'};
eval "use $module"}if($@){$status=0}else{$status=${"$module\::VERSION"}||" "}return $status}
sub uk{unless($hh{'core-graph'}{'init'}++){my$ver;if((!$hm{'thumbnailing'}{'skip_imagemagick'})&&($ver=&ul("Image::Magick"))){
$hh{'core-graph'}{'module'}="ImageMagick";$hh{'core-graph'}{'version'}=$ver;$hh{'core-graph'}{'im'}="$hh{'core-graph'}{'module'} $hh{'core-graph'}{'version'}"} elsif((!$hm{'thumbnailing'}{'skip_gd'})&&($ver=&ul("GD"))){
$hh{'core-graph'}{'module'}="GD";$hh{'core-graph'}{'version'}=$ver;$hh{'core-graph'}{'gd'}="$hh{'core-graph'}{'module'} $hh{'core-graph'}{'version'}"}
else{$hh{'core-graph'}{'module'}="";$hh{'core-graph'}{'version'}="";$hh{'core-graph'}{'notavail'}="ImageMagick or GD not found"}}
return $hh{'core-graph'}{'module'}}sub wh{return (sort{$a<=>$b} @_)[0]}sub wg{return (sort{
$a<=>$b} @_)[-1]}1;
# ----------------------------------------------------------------------------
# This program is the copyrighted property of interactivetools.com. Any use of this 
# program is subject to the the terms of the license agreement (license.txt) 
# included as part of this distribution archive. Any other uses are stictly
# prohibited without the written permission of interactivetools.com and all other
# rights are reserved.
# ---------------------------------------------------------------------------- 
#                    Programming by interactivetools.com <info@interactivetools.com>