#!/usr/bin/perl # ----------------------------------------------------------------------------- # Realty Manager v2.1 # Copyright (C) 1998-2002 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! # ----------------------------------------------------------------------------- use CGI::Carp qw/fatalsToBrowser/; $SIG{__DIE__}=$SIG{__WARN__}=\&sq; my$cgifile=$0;$cgifile=~s/.*[\\\/]//;my@aj=($0,$ENV{'SCRIPT_FNAME'});my$cgidir=(grep(/$cgifile$/i&&s/^(.*)[\\\/].*/$1/,@aj))[0]; $cgidir||=(($^O=~/mswin/i?`cd`:`pwd`)=~/(.*)/)[0];$cgidir=~s/\\/\//g;if(!$cgidir){die("Can't determine cgi directory!\n")}%hc=("progVer"=>"2.18","progRel"=>"June 25th,1999","progUpd"=>"January 28th,2002","perlOS"=>$^O||"Unknown","perlVer"=>$]||"Unknown","cgidir"=>$cgidir,"cgiurl"=>(split("/",$ENV{'SCRIPT_NAME'}))[-1],"ltime"=>time,"stime"=>time,); for(0..9){push(@af,"limage$_")}for(1..75){push(@af,"lfield$_")}for(0..9){push(@ag,"himage$_")} for(1..50){push(@ag,"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")}%hk=("datafile"=>"listing.dat","filelock"=>"filelock.lock","fields"=>[qw(num owner created updated),@af],"backup"=>"disabled","cgiext"=>".cgi");%hl=("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),@ag],"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],"backup"=>"disabled","cgiext"=>".cgi");%hy=("datafile"=>"help.dat","filelock"=>"filelock.lock","fields"=>[qw(num parent title content)],"backup"=>"disabled","cgiext"=>".cgi");%hb=&ul;%hp=&uk; &sj(\%hj,\%hd,1);$hc{'titlebar'}=$hd{'titlebar'};$hc{'footerbar'}=$hd{'footerbar'};$hc{'image_url'}=$hd{'image_url'}; $hc{'homepage_url'}=$hd{'homepage_url'};$hc{'listing_url'}=$hd{'listing_url'};$hc{'search_url'}=$hd{'search_url'}; if($hd{'time_adjh'}eq"add"){$hc{'ltime'}+=(int($hd{'time_adj_hour'}*60*60))};if($hd{'time_adjh'} eq"minus"){$hc{'ltime'}-=(int($hd{'time_adj_hour'}*60*60))};if($hd{'time_adjm'}eq"add"){$hc{'ltime'}+=(int($hd{'time_adj_min'}*60))}; if($hd{'time_adjm'}eq"minus"){$hc{'ltime'}-=(int($hd{'time_adj_min'}*60))};$hi{'mon'}=(localtime($hc{'ltime'}))[4]+1; $hi{'day'}=(localtime($hc{'ltime'}))[3];$hi{'year'}=(localtime($hc{'ltime'}))[5]+1900;$hi{'date'}=sprintf("%04d%02d%02d",$hi{'year'},$hi{'mon'},$hi{'day'}); $|++;$hc{'query'}=$ENV{'QUERY_STRING'};if($hb{"search"}){&um}else{&ue}exit;sub ue{$rowcode=sub{ if(!$he{'user_listed'}){return(0)}$ha{'userlist'}.=qq|