#!/usr/local/bin/perl
# -----------------------------------------------------------------------------
# Realty Manager v2.2
# 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__}=\&sr;
my$cgifile=$0;$cgifile=~s/.*[\\\/]//;my@an=($0,$ENV{'SCRIPT_FILENAME'});my$cgidir=(grep(/$cgifile$/i&&s/^(.*)[\\\/].*/$1/,@an))[0];
$cgidir||=(($^O=~/mswin/i?`cd`:`pwd`)=~/(.*)/)[0];$cgidir=~s/\\/\//g;if(!$cgidir){die("Can't determine cgi directory!\n")}%hc=("progVer"=>"2.29","progRel"=>"June 25th,1999","progUpd"=>"May 12,2003","perlOS"=>$^O||"Unknown","perlVer"=>$]||"Unknown","cgidir"=>$cgidir,"cgiurl"=>(split("/",$ENV{'SCRIPT_NAME'}))[-1],"ltime"=>time,"stime"=>time,"prod_id"=>14,"prog_build"=>'1534',"templatedir1"=>'../templates',"templatedir2"=>'../templates/interface',"debug"=>0,);
for(0..9){push(@ag,"limage$_")}for(1..75){push(@ag,"lfield$_")}for(0..9){push(@ai,"himage$_")}
for(1..50){push(@ai,"hfield$_")}for(1..50){push(@ac,"lfield$_"."_name");push(@ac,"lfield$_"."_type");
push(@ac,"lfield$_"."_active")}for(51..75){push(@ae,"lfield$_"."_name");push(@ae,"lfield$_"."_type");
push(@ae,"lfield$_"."_active")}for(1..50){push(@ac,"hfield$_"."_name");push(@ac,"hfield$_"."_type");
push(@ac,"hfield$_"."_active")}%hl=("datafile"=>"listing.dat","filelock"=>"filelock.lock","fields"=>[qw(num owner created updated),@ag,hidden],"backup"=>"disabled","cgiext"=>".cgi");%hm=("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),@ai,listings_hidden],"backup"=>"disabled","cgiext"=>".cgi");%hj=("datafile"=>"setup.dat","filelock"=>"filelock.lock","fields"=>["num",@ac,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),@ae,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=&ut;%hr=&us;{
my$datafile="$hc{'cgidir'}/../data/$hj{'datafile'}$hj{'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(\%hj,\%hb,1);$hc{'titlebar'}=$hb{'titlebar'};
$hc{'footerbar'}=$hb{'footerbar'};$hc{'image_url'}=$hb{'image_url'};$hc{'homepage_url'}=$hb{'homepage_url'};
$hc{'listing_url'}=$hb{'listing_url'};$hc{'search_url'}=$hb{'search_url'};$hc{'search_homepage_url'}=$hb{'search_url'};
$hc{'search_homepage_url'}=~s/search\.(\w+)$/search_homepage.$1/i;$hc{'header_product'}="Realty Manager";
$hc{'header_version'}=$hc{'progVer'};$hc{'header_company_name'}=$hb{'company_name'};$hc{'header_domain_name'}=$hb{'domain_name'};
$hc{'header_license_num'}=&wn($hb{'product_id'});$hc{'upload_maxk'}=$hb{'upload_maxk'};$hc{'publish_ext'}=$hb{'publish_ext'}||"html";
$hc{'thumbnail_width'}=$hb{'thumbnail_width'};$hc{'thumbnail_height'}=$hb{'thumbnail_height'};
if($hb{'time_adjh'}eq"add"){$hc{'ltime'}+=(int($hb{'time_adj_hour'}*60*60))};if($hb{'time_adjh'}
eq"minus"){$hc{'ltime'}-=(int($hb{'time_adj_hour'}*60*60))};if($hb{'time_adjm'}eq"add"){$hc{'ltime'}+=(int($hb{'time_adj_min'}*60))};
if($hb{'time_adjm'}eq"minus"){$hc{'ltime'}-=(int($hb{'time_adj_min'}*60))};$hk{'mon'}=(localtime($hc{'ltime'}))[4]+1;
$hk{'day'}=(localtime($hc{'ltime'}))[3];$hk{'year'}=(localtime($hc{'ltime'}))[5]+1900;$hk{'date'}=sprintf("%04d%02d%02d",$hk{'year'},$hk{'mon'},$hk{'day'});
$|++;%hn=&ti("$hc{'cgidir'}/config.ini");umask oct($hn{'umask'})if$hn{'umask'};if($hn{'thumbnailing'}{'disable_thumbnails'}){
$hb{'thumbnail_create'}=0;&sm(\%hj,\%hb,1)}sub ti{local(*FILE);my($file)=$_[0];my(@aj,$ref,%hh);
$ref=\%hh;if(!$_[0]){die"INI_Load : No ini file was specified!\n"}if(!-e $_[0]){die"INI_Load : The ini file '$_[0]' could not be found!\n"}
open(FILE,"<$file")||die("INI_Load : Could open ini file! $!\n");@aj=<FILE>;close(FILE);foreach(@aj){/^\s*#/m&&next;
if(/^\s*\[/m){$ref=\%hh;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%hh}sub wn{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)}}$hc{'query'}=$ENV{'QUERY_STRING'};
if($hd{'search'}){&uu()}elsif($hd{'view'}){&wo()}else{&um()}exit;sub um{print"Content-type: text/html\n\n" unless($ContentType++);
my$query_template=$hd{'template'}||'_search_query.html';unless(&xh($query_template)){&sr("Invalid template name: $query_template")}$rowcode=sub{
if(!$he{'user_listed'}){return(0)}$ha{'userlist'}.=qq|<option value="$he{'num'}">$he{'name'}\n|};
$sortcode="1";&sh(\%hm,$rowcode,$sortcode,\%he);print&wa($query_template ,\%ha);&xg}sub uu{
print"Content-type: text/html\n\n" unless($ContentType++);$pagenum=int$hd{'pagenum'}||1;$perpage=int$hd{'perpage'}||10;
my$result_template=$hd{'template'}||'_search_results.html';unless(&xh($result_template)){&sr("Invalid template name: $result_template")}
if($hd{'marknew'}){$marknew=time - ($hd{'marknew'}*60*60*24)}if($hd{'shownew'}){$shownew=time - ($hd{'shownew'}*60*60*24)}
my$euro_numbers=$hd{'euro_numbers'};&wa($result_template);$rowcode=sub{$ia{$he{'num'}}=$he{'name'};
$hx{$he{'num'}}=$he{'listings_hidden'};if($he{'specify_filename'}&&$he{'homepage_filename'}){
$hz{$he{'num'}}=$he{'homepage_filename'}}else{$hz{$he{'num'}}=sprintf("h%04d.".$hc{'publish_ext'},$he{'num'})}};
&sh(\%hm,$rowcode,undef,\%he);$query=sub{if($shownew){if($hd{'check_created'}){if($hf{'created'}<$shownew){
return(0)}}else{if($hf{'updated'}<$shownew){return(0)}}}$hf{'user_num'}=$hf{'owner'};$hf{'user_name'}=$ia{
$hf{'owner'}};if($hf{'hidden'}||$hx{$hf{'owner'}}){return(0)}if($hd{'user_num'}&&$hd{'user_num'}!=$hf{'user_num'}){
return(0)}if($hd{'user_keyword'}&&$hf{'user_name'}!~/\Q$hd{'user_keyword'}\E/i){return(0)}
if($hd{'user_match'}&&lc$hf{'user_name'}ne lc$hd{'user_match'}){return(0)}if($hd{'listing_num'}
&&$hd{'listing_num'}!=$hf{'num'}){return(0)}for$num(1..75){$val=$hf{"lfield$num"};$nval=$hf{"lfield$num"};
$min=$hd{"lfield$num"."_min"};$max=$hd{"lfield$num"."_max"};$keyword=$hd{"lfield$num"."_keyword"};
$match=$hd{"lfield$num"."_match"};if($euro_numbers){foreach($nval,$min,$max){tr/,./.,/}}foreach($nval,$min,$max){
s/[^0-9\.]//gs}if((length $min)&&$min>$nval){return(0)}if((length $max)&&$max<$nval){return(0)}
if((length $keyword)&&$val!~/\Q$keyword\E/i){return(0)}if((length $match)&&lc$val ne lc$match){
return(0)}}return(1)};my$path="$hc{'cgidir'}/$hb{'listing_dir'}/images";$match=sub{$hf{'user_num'}=$hf{'owner'};
$hf{'user_name'}=$ia{$hf{'owner'}};$hf{'user_file'}=$hz{$hf{'owner'}};$hf{'file'}=$hf{'limage0'};
$hf{'thumbnail'}=&wd($path,$hf{'file'});$hf{'listing_file'}=sprintf("l%04d.".$hc{'publish_ext'},$hf{'num'});
$hf{'listing_num'}=$hf{'num'};if($marknew&&(($hd{'check_created'}&&$hf{'created'}>=$marknew)||($hd{'check_created'}==0&&$hf{'updated'}>=$marknew)) ){
if($hf{'limage0'}){$ha{'list'}.=&wb("row_image_new",\%hf)}else{$ha{'list'}.=&wb("row_noimage_new",\%hf)}}
else{if($hf{'limage0'}){$ha{'list'}.=&wb("row_image",\%hf)}else{$ha{'list'}.=&wb("row_noimage",\%hf)}}};
if($hb{'db_sorting'}&&$hd{'sort_order'}){$sort="14";($field,$order,$direction)=split(/\,/,$hd{'sort_order'});
$field+=13;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{$sort=undef}}else{$sort=undef}($ha{'pcount'},$ha{'mcount'},$ha{'rcount'},$ha{'cpage'},$ha{'lpage'},$ha{'npage'})=&si(\%hl,$query,$match,$sort,\%hf,$pagenum,$perpage);
if(!$ha{'list'}){$ha{'list'}=&wb("not_found")}$hc{'query'}=~s/[^A-Za-z0-9\+\*\.\@\_\-\&\=\%]/uc sprintf("%%%02x",ord($&))/egx;
print&wa($result_template,\%ha);&xg;exit}sub wo{print"Content-type: text/html\n\n" unless($ContentType++);
my($num)=int$hd{'view'};my$view_template=$hd{'template'}||'_publish_listing.html';unless(&xh($view_template)){&sr("Invalid template name: $view_template")}
&wa($view_template);local(%ha);$ha{'num'}=$ha{'listing_num'}=$num;my$found=&sk(\%hl,\%hf,$num);
if(!$found){&sr("Listing number $num not found in database")}foreach(1..75){$ha{"lfield$_"}=$hf{"lfield$_"}}
if($hf{'owner'}){&sk(\%hm,\%he,$hf{'owner'});$ha{"user_num"}=$he{'num'};$ha{"user_name"}=$he{'name'}}
if($he{'specify_filename'}&&$he{'homepage_filename'}){$ha{"user_file"}=$he{'homepage_filename'}}
else{$ha{"user_file"}=sprintf("h%04d.".$hc{'publish_ext'},$he{'num'})}foreach(1..50){$ha{"hfield$_"}=$he{"hfield$_"}}
my($pfile)=sprintf("l%04d.".$hc{'publish_ext'},$num);if($hb{'publish_listing_image0'}){$start_inum=0}
else{$start_inum=1}my$path="$hc{'cgidir'}/$hb{'listing_dir'}/images";for($start_inum..9){$file=$hf{"limage$_"};
$filepath="$path/$file";$thumbnail=&wd($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'}.=&wb("image",\%ha)}}if(!$ha{'images'}){$ha{'images'}=&wb("no_images",\%ha)}foreach(keys %ha){
$ha{$_}=~s/\<\!--#/<!--|/go}my$content=&wa($view_template,\%ha);print$content;&xg}sub xh{my$filename=$_[0];
my$template_dir="$hc{'cgidir'}/../templates";my%ig=();my$file;opendir(DIR,$template_dir);foreach$file(readdir(DIR)){
$ig{$file}=1}closedir(DIR);return$ig{$filename}}sub sr{print"Content-type: text/html\n\n" unless($ContentType++);
if(-e $hj{'filelock'}){&sn($hj{'filelock'})}foreach(@_){$ha{'error'}.="$_ "}print$ha{'error'};
exit}sub xg{print'<!--'."\n";print$hc{'titlebar'}.' v'.$hc{'header_version'}.' (Build: '.$hc{'prod_id'}.'.'.$hc{'prog_build'}.")\n";
print'License #'.$hc{'header_license_num'}.' ~ '.$hc{'header_company_name'}.' ~ '.$hc{'header_domain_name'}."\n";
printf('Execute time: %01d seconds'."\n",time() - $^T);print'-->'."\n"}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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$hc{'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(@ab);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);&sn($filelock);if($sortcode){if(ref $sortcode eq'CODE'){@aa=sort{&$sortcode} @aa}
else{@aa=&wu('¡',$sortcode,\@aa)}}foreach(@aa){/^\d/||next;s/[^¡]+$//;undef %$out;@ab=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ab[$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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$hc{'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(@ab);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);&sn($filelock);if($sortcode){if(ref $sortcode eq'CODE'){@aa=sort{&$sortcode} @aa}
else{@aa=&wu('¡',$sortcode,\@aa)}}foreach(@aa){/^\d/||next;$rcount++;s/[^\¡]+$//;undef %$out;@ab=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ab[$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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$hc{'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(@ab);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=&wu('¡',$sortcode,\@aa)}}
foreach(@aa){/^\d/||next;s/[^¡]+$//;undef %$out;@ab=split(/\¡/);my$i;for$i(0..$#fields){$out->{
$fields[$i]}=$ab[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}&$rowcode;
$_="$ab[$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");
print FILE qq|#!$^X\n|;print FILE qq|print"Content-type: text/plain\\n\\n|;print FILE qq|Realty Manager v$hc{'progVer'} data file.";\n__END__\n|;
foreach(@aa){/^\d/||next;s/[^¡]+$//;print FILE "$_\n"}close(FILE)||die("DB_List: Can't write $datafile : $!");
rename("$datafile.tmp$$",$datafile)||die("DB_List: Can't write $datafile : $!");&sn($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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$hc{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($in)=$_[1];my(@aa);my(@ab);my(%hp);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;$hp{(split(/\¡/))[0]}=1}my($nnum)=1;while($hp{$nnum}){
$nnum++}open(FILE,">$datafile.tmp$$")||die("DB_Add : 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|Realty Manager v$hc{'progVer'} data file.";\n__END__\n|;
foreach(@aa){/^\d/||next;s/[^¡]+$//;print FILE "$_\n"}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";close(FILE)||die("DB_Add: Can't write $datafile : $!");rename("$datafile.tmp$$",$datafile)||die("DB_Add: Can't write $datafile : $!");
&sn($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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$hc{'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(@ab);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);&sn($filelock)}foreach(@$cacheRecords){/^$rnum\¡/||next;s/[^¡]+$//;undef %$out;@ab=split(/\¡/);
my$i;for$i(0..$#fields){$out->{$fields[$i]}=$ab[$i];$out->{$fields[$i]}=~s/¿([A-F0-9]{2})/pack("C",hex($1))/egix}
return(1)}return(0)}sub sg{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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";
my($filelock)="$hc{'cgidir'}/../data/$_[0]->{'filelock'}";my(@fields)=@{$_[0]->{fields}};my($backup)=$_[0]->{'backup'};
$datafile.=$_[0]->{'cgiext'};my($rnum)=int$_[1];my(%hp);my($erased)=0;for(1..$#_){$hp{$_[$_]}++}
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|Realty Manager v$hc{'progVer'} data file.";\n__END__\n|;
foreach(@aa){/^(\d+)\¡/||next;if($hp{$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 : $!");&sn($filelock);
return$erased}sub sm{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)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$hc{'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(@ab);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|;print FILE qq|print"Content-type: text/plain\\n\\n|;print FILE qq|Realty Manager v$hc{'progVer'} data file.";\n__END__\n|;
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";
$saved++;next}s/[^¡]+$//;print FILE "$_\n"}close(FILE)||die("DB_Save: Can't write $datafile : $!");
rename("$datafile.tmp$$",$datafile)||die("DB_Save: Can't write $datafile : $!");&sn($filelock);
unless($saved){&sd(@_)}}sub se{my($datafile)="$hc{'cgidir'}/../data/$_[0]->{'datafile'}";my($filelock)="$hc{'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");&sn($filelock)}sub sl{my($filelock)=$_[0];
my($i);if(!-w "$hc{'cgidir'}/../data/"){die("DB_Lock : $hc{'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 sn{my($filelock)=$_[0];rmdir($filelock)}sub xa{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{returnundef}}return$sort}sub wu{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 ut{my($max)=$_[0];my($name,$value,$pair,@ad,$buffer,%hh);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.=$_}}@ad=split(/--$boundary/,$buffer);
foreach$pair(@ad){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=~/([^\.]+)$/;
$hh{"$name"}=$value;$hh{"$name"."_path"}=$path;$hh{"$name"."_file"}=$file;$hh{"$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'}}@ad=split(/&/,$buffer);foreach$pair(@ad){($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;$value=~s/%([A-F0-9]{2})/pack("C",hex($1))/egi;$value=~s/\r\n/\n/go;$hh{$name}=$value}}
foreach(keys %hh){if(/^(.*)(\.x|\.y)$/){$hh{$1}="true"}}return%hh}sub wa{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(%hh)=%{$hashref};my($cfile);my($content);local(*FILE);if($hashref){
foreach(keys %hc){$hh{$_}=$hc{$_}}}else{foreach(keys %hc){${$_}=$hc{$_}}}foreach(grep /^templatedir/,sort keys %hc){
if(-e "$hc{'cgidir'}/$hc{$_}/$_[0]"){$file="$hc{'cgidir'}/$hc{$_}/$_[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 -->/$hs{
$1}=$2;''/gesi;s/<!-- templatecell\s?:\s?([A-Za-z0-9_\.]+) -->(?:\r\n|\n)?(.*?)<!-- \/templatecell\s?:\s? \1 -->/$hs{
$1}=$2;''/gesi;s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$value=$hashref ? $hh{$1} : ${$1};if($2 eq'_ue'){
$value=&wg($value)}if($2 eq'_he'){$value=&sq($value)}if($2 eq'_nbsp'){$value=&sq($value); $value=~s/ /&wy;/g}
if($2 eq'_je'){$value=&tj($value)}$value;]ge}return$content}sub wb{if(!$_[0]){die"Template : No template cell was specified!\n"}
if(!defined $hs{$_[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(%hh)=%{$hashref};my($content)=$hs{$cellname};local(*FILE);if($hashref){
foreach(keys %hc){$hh{$_}=$hc{$_}}}else{foreach(keys %hc){${$_}=$hc{$_}}}$content=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$value=$hashref ? $hh{
$1} : ${$1};if($2 eq'_ue'){$value=&wg($value)}if($2 eq'_he'){$value=&sq($value)}if($2 eq'_nbsp'){
$value=&sq($value); $value=~s/ /&wy;/g}if($2 eq'_je'){$value=&tj($value)}$value;]ge;return$content}
sub ug{my($in)=$_[0];my(@am)=((A..Z,a..z,0..9),'+','/');my($out)=unpack("B*",$in);$out=~s/(\d{6}|\d+$)/$am[ord(pack"B*","00$1")]/ge;
while(length($out)%4){$out.="="}return$out}sub uf{local($i);my($in)=$_[0];my(%hv);my($out);
for((A..Z,a..z,0..9),'+','/'){$hv{$_}=$i++}$in=$_[0]||return"MIME64 : Nothing to decode";$in=~s/[^A-Za-z0-9+\/]//g;
$in=~s/[A-Za-z0-9+\/]/unpack"B*",chr($hv{$&})/ge;$in=~s/\d\d(\d{6})/$1/g;$in=~s/\d{8}/$out.=pack("B*",$&)/ge;
return$out}sub wg{my($text)=$_[0];$text=~tr/ /+/;$text=~s/[^A-Za-z0-9\+\*\.\@\_\-]/uc sprintf("%%%02x",ord($&))/egx;
return$text}sub wf{my($text)=$_[0];$text=~tr/+/ /;$text=~s/%([A-F0-9]{2})/pack("C",hex($1))/egi;
return$text}sub sq{my$html=shift;$html=~s/\x26/\x26amp;/g;$html=~s/"/\x26quot;/g;$html=~s/</\x26lt;/g;
$html=~s/>/\x26gt;/g;return$html}sub tj{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 uv{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(@al)=qw(Sun Mon Tue Wed Thu Fri Sat);
my(@ao)=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="$al[$Wdy],$DD-$ao[$Mon]-$YYYY $HH:$MM:$SS GMT"}
if($name){$name=&wg($name)}if($value){$value=&wg($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 us{my($cookie,$name,$value,%hq);
foreach$cookie(split(/; /,$ENV{'HTTP_COOKIE'})){($name,$value)=split(/=/,$cookie);foreach($name,$value){
$_=&wf($_)}$hq{$name}=$value}return%hq}sub wp{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='.&wg($hb{'company_name'});$reginfo.='&'.'reg2='.&wg($hb{'domain_name'});
$reginfo.='&'.'lnum='.&wg(&wn($hb{'product_id'}));$reginfo.='&'.'prog='.'rm';$reginfo.='&'.'ver='.&wg($hc{'progVer'});
$reginfo.='&'.'url='.&wg("$host$path");$reginfo.='&'.'csum='.&wg(&ws([$script_filename],[]));
my$paddr=gethostbyname('www.interactivetools.com')||return;my$sock=&xf();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}&sm(\%hj,\%hb,1);if($hb{'d'}){print"Content-type: text/html\n\n" unless($ContentType++);
print&wa("\x5F\x6C\x69\x63\x65\x6E\x73\x65\x5F\x64\x69\x73\x61\x62\x6C\x65\x64\x2E\x68\x74\x6D\x6C",{});
exit}}sub xf{local *FILE;return*FILE}sub we{my($file)=@_;my$thumbfile=$file;$thumbfile=~s/^(.*)(\.\w+)$/$1_t$2/;
return$thumbfile}sub wd{my($path,$file)=@_;my$thumbfile=&we($file);if(not -e "$path/$thumbfile"){
$thumbfile=$file}return$thumbfile}sub wc{my$filename=shift;if($hn{'thumbnailing'}{'disable_thumbnails'}){
return}if(!&uh()){return}if($hi{'core-graph'}{'module'}eq"GD"&&$hi{'core-graph'}{'version'}<1.26){
return}my($thumbfile)=&we($filename);$filename=~/^(.*)\.([a-z0-9]+)$/i;my($base,$ext)=($1,lc($2));
if($ext eq'gif'&&$hi{'core-graph'}{'gd'}){}else{my$tpic=&uk( $filename,'_t',$hb{'thumbnail_width'},$hb{'thumbnail_height'});
&ul( $tpic,$thumbfile );if(-s $thumbfile>-s $filename&&!$hn{'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 wq{my$old_version=$hb{'prog_ver'}||2.0;my$new_version=$hc{'progVer'};
if($new_version==$old_version){return(undef)}if($old_version!=-1){&wp();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}}$hb{'prog_ver'}=$new_version;
&sm(\%hj,\%hb,1);return1}sub ws{my($script_files,$other_files)=@_;my$data;my$fh=do{local *FILE; *FILE};
my$file;foreach$file(@$script_files){if(open($fh,"<$hc{'cgidir'}/$file")){<$fh>;binmode($fh);
$data.=join '',<$fh>;close($fh)}}foreach$file(@$other_files){if(open($fh,"<$hc{'cgidir'}/$file")){
binmode($fh);$data.=join '',<$fh>;close($fh)}}$data=~tr/\r\n//d;return(unpack('%32C*',$data))}
# ----------------------------------------------------------------------------
# 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>