$cgi_path=~ s/(.*)\/cgi-bin(.*)/$1\/cgi-bin/g; $datapath= $1; my @path=split('\/cgi-bin',$ENV{'SCRIPT_NAME'}); if($ENV{'HTTP_REFERER'}=~ /https:/ || $ENV{'SCRIPT_URI'}=~ /https:/){ $hpath='https' }else{ $hpath='http'; } if(!-e "$cgi_path/config/colors.txt") { open(FILE, "$cgi_path/config/config.txt"); @file=; close(FILE); open(FILE, ">$cgi_path/config/colors.txt"); print FILE @file; close(FILE); } require "$cgi_path/config/config.txt"; require "$cgi_path/config/colors.txt"; if(!-e "$cgi_path/config/extras.txt"){ copy("$cgi_path/config/defaults.txt","$cgi_path/config/extras.txt"); } if(-e "$cgi_path/config/extras.txt"){ require "$cgi_path/config/extras.txt"; } if($datapath =~ /inetpub/i && $hostserver!~ /eziaccounts/i) { use CGI::Carp qw(fatalsToBrowser); $nl="\n"; $System = "Windows"; $url_path = "$hpath://localhost$path[0]/cgi-bin"; $home = "$hpath://localhost$path[0]"; $Aus = 0; $file_lock= 0; $domain = ".localhost/$site"; $secure = "$winsecure"; $url_path=~ /https/?( $Bodyextra = qq|oncontextmenu='return false' onselectstart='return false' ondragstart='return false' >\n|):(); } elsif($datapath =~ /inetpub/i && $hostserver=~ /eziaccounts/i) { use CGI::Carp qw(fatalsToBrowser); $nl="\n"; $System = "Windows"; $url_path = "$hpath://www.eziaccounts.net$path[0]/cgi-bin"; $home = "$hpath://www.eziaccounts.net$path[0]"; $Aus = 0; $file_lock= 0; $domain = ".www.eziaccounts.net/$site"; $secure = "$winsecure"; $url_path=~ /https/?( $Bodyextra = qq|oncontextmenu='return false' onselectstart='return false' ondragstart='return false' >\n|):(); } else { if($ENV{DOCUMENT_ROOT} && $ENV{SCRIPT_FILENAME}!~ /$ENV{DOCUMENT_ROOT}/){ $datapath=$ENV{DOCUMENT_ROOT}; } $System = "Unix"; $nl="\n"; $url_path = "$hpath://$ENV{'SERVER_NAME'}$path[0]/cgi-bin"; $home = "$hpath://$ENV{'SERVER_NAME'}$path[0]"; $mailprog = "/usr/sbin/sendmail"; $Aus = $timediff; #For time difference 68343 or 64743 or 61143 (daylight saving) 3600 per hour $domain = ".$website"; $file_lock= 1; $secure = "$unixsecure"; #$url_path=~ /https/?( $Bodyextra = qq|oncontextmenu='return false' onselectstart='return false' ondragstart='return false' >\n|):($Bodyextra = qq||); use Fcntl qw(:flock); use strict; } $Body = qq|\n|; $ServerStamp = localtime(time); $AustStamp = localtime(time+$Aus); sub movefile # movefile("$from","$to"); LEAVE THIS FUNCTION HERE { use File::Copy; if(-e $_[0]){ copy($_[0],$_[1]); unlink($_[0]); } } ########################################################################remove this later 20/6/2008 if(-e "$datapath/docs/managerimgpager.ltr"){ unlink("$datapath/docs/managerimgpager.ltr"); } if(-e "$cgi_path/slideshow/imgpager.pl"){ unlink("$cgi_path/slideshow/imgpager.pl"); } if(-e "$cgi_path/config/confirm.pm"){ unlink("$cgi_path/config/confirm.pm"); } if(chdir $cgi_path) { opendir THISDIR, "." || oops("serious damage: $!"); @files = grep !/^\.\.?$/, readdir THISDIR; closedir THISDIR; foreach (@files) { ($_=~ /\.pm/ and $_!~ /config/i) or next; require "$cgi_path/$_"; movefile("$cgi_path/$_","$cgi_path/config/$_"); } } if(chdir "$datapath/docs") { opendir THISDIR, "$datapath/docs" || oops("serious damage: $!"); @files = grep !/^\.\.?$/, readdir THISDIR; closedir THISDIR; foreach (@files) { $_=~ /^assist_|^editing_/ or next; unlink("$datapath/docs/$_"); } } unlink("$datapath/js/book.js"); #############################################################################end remove if(chdir "$cgi_path/config") { opendir THISDIR, "." || oops("serious damage: $!"); @files = grep !/^\.\.?$/, readdir THISDIR; closedir THISDIR; foreach (@files) { $_=~ /\.pm/ or next; require $_; } } if(chdir "$cgi_path/catalogue") { require "$cgi_path/catalogue/catalogue.pm"; } if($basicmembers eq 'Yes' && -d $cgi_path.lc("/members")) { chdir $cgi_path.lc("/members"); opendir THISDIR, "." || die print "serious damage: $!"; @files = grep !/^\.\.?$/, readdir THISDIR; closedir THISDIR; foreach (@files){ $_=~ /\.pm/ or next; require "$cgi_path/members/$_"; } } use vars qw(%required); local (%required); undef (%required); get_date(); get_cookie(); age('commence'); #used for admin get_form_data(); $clrinfosub?():($clrinfosub=$clrinfo); $ulclr?():($ulclr='#000000'); #set uc color if null $infofont?():($infofont='Georgia'); #set info font if null $sitefont?():($sitefont='Arial'); #set site font if null $sitefontsize?():($sitefontsize=9); #set site font size if null $fontwritesize?():($fontwritesize=8); #set copywrite font size if null $fontwritefamily?():($fontwritefamily='Verdana'); #set copywrite font size if null $cookie{$website.'APW'} and $cookie{$website.'APW'}=crypt($cookie{$website.'APW'},$cookie{$website.'APW'}); $cookie{'PassWord'} and $cookie{'PassWord'}=crypt($cookie{'PassWord'},$cookie{'PassWord'}); $partnersites = ''; $logit = 0; $debug = 0; $found = 0; $recipient = $adminemail; $mail_admin = "admin\@$website"; $sender = "$businessname < $mail_admin >"; $senders_name = "$businessname"; $MyCountry = "61"; $Sponsored = "ezi"; $sms_fee = ".20"; $sms_discount = ".1"; $content = "Content-Type: text/html"; $mouse = "onmouseover='on(this,\"$clrbuttonmouseover\");' onmouseout='off(this,\"$clrbuttonmouseout\");'"; $mousewin = " style='background-color:#999999;' onmouseover='on(this,\"$clrbuttonmouseover\");' onmouseout='off(this,\"$clrbuttonmouseout\");'"; $fullscreen = "\n"; $back = ""; $windowclose = ""; $logout = ""; $clear = ""; $printpage = "\n"; $logo = ""; $logosmall = ""; $logobanner = ""; $alert = ""; $email = ""; $mobile = ""; $printer = ""; $new = ""; $helpicon = ""; $i_note = ""; $imgedit = ""; $i_tools = ""; $i_help = ""; $i_tick = ""; $i_windows = ""; $i_lock = ""; $nolist = ""; $img_dir = "$home/i"; $file_admin = "$cgi_path/members/admin/admin.db"; $file_members = "$cgi_path/members/members.db"; $file_renewals = "$cgi_path/members/renewals.db"; $file_receiptno = "$cgi_path/members/receiptno.db"; $file_smslog = "$cgi_path/members/smssent.log"; $file_smsrcvdlog = "$cgi_path/members/smsrcvdlog.txt"; $file_emailssent = "$cgi_path/members/emailssent.txt"; $file_purchases = "$cgi_path/members/purchases.log"; $file_affiliates = "$cgi_path/config/affiliates.txt"; $sms_email = "$datapath/docs/sms_email.ltr"; $pass_file = "$datapath/docs/mail/mail_password.ltr"; $purchase_file = "$datapath/docs/auz_purchase.ltr"; $freeentry_file = "$datapath/docs/auz_freeentry.ltr"; $voucher_file = "$datapath/docs/auz_voucherpurch.ltr"; $trial_file = "$datapath/docs/auz_daysfreetrial.ltr"; $sitecopyright?():($sitecopyright='Style-transition'); $addsitelinks?():($addsitelinks='Yes'); # $ENV{HTTP_USER_AGENT}=~ /IE/?($iecss=qq||):(); if ($hpath=~ /https/){$links= qq|\n|;} else{$links= qq|\n|;} $links.= qq| $iecss |; #addition of photoslice here due to clash with text editor. if(!$cookie{$website.'APW'} && $cookie{'PassWord'} ne $masterpw) { $links.=qq|\n|; } if(-e "$datapath/greybox") { $links.= qq| |; } $addswfmovies and $links.=qq|\n|; $ENV{'SCRIPT_NAME'}!~ /emailer/i?( $counterlink=qq| \n|) :($counterlink=qq|\n|); $editorhead =qq|   $counterlink |; if($sitelinks eq 'Yes' && -e $datapath.("/docs/partnerlinks.ltr")) { open (PARTNER, $datapath.lc("/docs/partnerlinks.ltr")); @partner=&check_me(); foreach (@partner){ if($_!~ /http\:\/\/$website/i){ $partnersites.=$_; } } close(PARTNER); if($sitelinksposition eq 'Bottom'){ $partnersitesBottom=$partnersites; } # else{ $sitelinksposition='Top' && $partnersitesTop=$partnersites; } } if(-e "$datapath/docs/site/help_head_java.ltr") { open(FILE, "$datapath/docs/site/help_head_java.ltr"); $headjava=; close(FILE); } $htmlhead = qq| \n|; if($Form{'Page'}=~ /^Admin|^Pages|^Colors|^Menu/i || $Form{'myfolder'}=~ /cart/ || $Form{'Emailer'}){ $htmlhead = qq|\n|; } $htmlhead .= qq| [sitetitle] - $sitename $links $headjava $Body $partnersitesTop |; $imagescript =qq| |; #$addvouchers eq 'Yes'?( $voucherline=qq||) #:($voucherline=qq| |); #form.Action.value="Index"; form.Page.value="ManagerSlideShow"; $addautomailer eq 'Yes'?( $automailerline=qq||) :($automailerline=qq| |); $addswfmovies eq 'Yes'?( $swfmoviesline=qq||) :($swfmoviesline=qq| |); $addpagepeel eq 'Yes'?( $pagepeelline=qq||) :($pagepeelline=qq| |); $addslideshow eq 'Yes'?( $slideshowline=qq||) :($slideshowline=qq| |); $addpolls eq 'Yes'?( $pollline=qq||) :($pollline=qq| |); $addrecords eq 'Yes'?( $dataline=qq||) :($dataline=qq| |); $addbanners eq 'Yes'?( $bannersline=qq||) :($bannersline=qq| |); $addshopcart eq 'Yes'?( $cartline=qq| |) :($cartline=qq| |); $addmrchcart eq 'Yes'?( $mcartline=qq| |) :($mcartline=qq| |); $addcatalogue eq 'Yes'?( $productsline=qq||) :($productsline=qq| |); $addimglog eq 'Yes'?($imglogline=qq||) :($imglogline=qq||); $addads eq 'Yes'?($adsline=qq||) :($adsline=qq||); $addblogs eq 'Yes'?($blogline=qq||) :($blogline=qq||); $addibbs eq 'Yes'?($ibbsline=qq||) :($ibbsline=qq||); $addstories eq 'Yes'?($storiesline=qq||) :($storiesline=qq||); $additems eq 'Yes'?( $itemsline=qq| |) :($itemsline=qq| |); $addemailer eq 'Yes'?($emailerline=qq| |) :($emailerline=qq| |); $addrndtxt eq 'Yes'?($rndtxtline=qq||) :($rndtxtline=qq||); #$basicmembers eq 'Yes'?($membersline=qq||) $basicmembers eq 'Yes'?($membersline=qq||) :($membersline=qq||); -e "$cgi_path/merchants"?($merchantsline=qq||):(); $addgallery eq 'Yes'?($galleryline=qq||) :($galleryline=qq||); $addinvite eq 'Yes'?($inviteline=qq||) :($inviteline=qq||); $addcalendar eq 'Yes'?($calendarline=qq||) :($calendarline=qq||); $addeziaccs eq 'Yes'?($eziaccsline=qq||) :($eziaccsline=qq||); if($cgi_path=~ /democgi|cgidemo|1300web/) { if($cookie{$website.'APW'} eq $masterpw){ $templateslink=qq||; } $shellcreator =qq||; } else{ $shellcreator=''; } $siteupdate ne 'No'? ( $upateline=qq| | and $upateline.=qq| | and $upateline.=qq| | ) :($upateline=qq|| and $upateline.=qq| |); $Form{'Adminbase'} and $adminbutton=qq||; !$Form{'Adminbase'} and $adminbutton=qq||; ($cookie{$website.'APW'} eq $masterpw || $cookie{$website.'APW'} eq $adminpw) and $adminmenu=qq|
$cartline $mcartline $productsline $itemsline $calendarline

$eziaccsline $pollline $bannersline $inviteline $membersline $merchantsline $galleryline $voucherline $templateslink $extrabuttons $dataline $adsline $blogline $ibbsline $storiesline $pagepeelline

$automailerline $emailerline $slideshowline $swfmoviesline $rndtxtline $imglogline $upateline $shellcreator Help $adminbutton

|; $adminaddress=''; $businessname?($adminaddress.=qq|$businessname
\n|):(); $website? ($adminaddress.=qq|$hpath://$website
\n|):(); $sitestreet? ($adminaddress.=qq|$sitestreet
\n|):(); $sitesuburb? ($adminaddress.=qq|$sitesuburb
\n|):(); $sitecity? ($adminaddress.=qq|$sitecity\n|):(); $sitestate? ($adminaddress.=qq|$sitestate
\n|):(); $sitecountry? ($adminaddress.=qq|$sitecountry \n|):(); $sitepcode? ($adminaddress.=qq|$sitepcode
\n|):(); $sitephone? ($adminaddress.=qq|International Ph: +61 $sitephone
\n|):(); $sitefax? ($adminaddress.=qq|International Fx: +61 $sitefax
\n|):(); $sitemobile? ($adminaddress.=qq|Mobile : $sitemobile
\n|):(); $businessabn? ($adminaddress.=qq|ABN : $businessabn
\n|):(); !$basicmembers and $adminaddress.=qq|
$i_note To cancel any Opt-In Email service :
Login to $website and edit the selection in your personal Profile.

\n|; $thisfile?($adminaddress.=qq|Ref: $thisfile|):(); #$Form{'Address'}=""; $Form{'Message'}=""; ##DO NOT DELETE...unsure why this was put in...but had to remove it for contact form. %YN=( 'Y' => ['Yes',], 'N' => ['No',], ); @recipient_addresses = ($adminemail,$mail_admin,"admin\@$website","support\@$website","sales\@$website","lloyde\@dodo.com.au","admin\@cgidemo.info"); @recipient_domains = (); @valid_ENV = ('REMOTE_HOST','REMOTE_ADDR','REMOTE_USER','HTTP_USER_AGENT'); @hours = ('00','Midnight','01','1 am','02','2 am','03','3 am','04','4 am','05','5 am','06','6 am','07','7 am','08','8 am','09','9 am','10','10 am','11','11 am','12','Midday','13','1 pm','14','2 pm','15','3 pm','16','4 pm','17','5 pm','18','6 pm','19','7 pm','20','8 pm','21','9 pm','22','10 pm','23','11 pm','24','Midnight'); @cal = ('01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31'); @months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @ymonths = ('January','February','March','April','May','June','July','August','September','October','November','December'); @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Holiday'); @shortdays = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat','Hol'); @smstypes =('D','Monthly Billing',P,'PrePaid'); @sex =('Male','Female'); @yesno =('Yes','No'); @etype =('','','1','Yes','2','No'); @alpha =('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',); @sent_emails =('SEmail','Sent','Time','Letter','Read','Returned'); @currency =( 'US','US Dollars', 'CA','Canadian Dollars', 'UK','UK Pounds', 'AU','AU Dollars', 'EU','Euros', 'JP','Japanese ¥en', 'SG','Singapore Dollar', 'TH','Thai Baht', 'KW','Korean Won', 'NZ','NZ Dollars', 'IN','Indian Rupee', 'SE','Krona', ); if($basicmembers eq 'Yes') { if(!-e "$datapath/docs/site/help_notice.ltr") { open(FILE,"$datapath/docs/site/help_notice.ltr"); print FILE "Edit this text for Members via the administration 'pages' icon titled 'Notice'."; close(FILE); } } $add2contact eq 'Yes'?($contactaddress=$adminaddress):(); if($source2contact eq 'Yes') { $contactsource=qq| @{[resource("How did you hear about us?","Resource","")]} |; } if($home2contact eq 'Yes') { $contacthome=qq| Address *   @{[returnselects("Country ","countries","Country","",1,"")]} @{[returninput("Postal Code ","PostCode",10,10,"","")]} |; } if($contactheadimage) { $contactimage=qq|
\n|; } if($phones2contact eq 'Yes') { $contactphones=qq| @{[returninput("Phone ","Phone",16,16,"","")]} @{[returninput("Fax ","Fax",16,16,"","")]} @{[returninput("Mobile ","Mobile",16,16,"","(No country code)")]} |; } if($addfloatdiv eq 'Yes') { $divs=0; if($floatdivdigg){ $divs+=50; $digg =qq|

\n|; } if($floatdivface){ $divs+=50; $face =qq|
\n|; } if($floatdivtwit){ $divs+=50; $twit =qq|
\n|; } if($floatdivrss ){ $divs+=50; $rss =qq|
\n|; } $floatingdiv=qq|
$digg $face $twit $rss
|; } $Date_Today = strdate($sdate); $Date_Yesterday= strdate(calc_date($sdate,-1));; $Date_Tomorrow = strdate(calc_date($sdate,1));; for($xd=0;$xd<7;$xd++) { $ndate=calc_date($sdate, +$xd); if(date_DOW($ndate) eq 'Monday'){ $refdate=$ndate; last; } } $Next_Monday = strdate(calc_date($refdate,0)); $Next_Tuesday = strdate(calc_date($refdate,1)); $Next_Wednesday= strdate(calc_date($refdate,2)); $Next_Thursday = strdate(calc_date($refdate,3)); $Next_Friday = strdate(calc_date($refdate,4)); $Next_Saturday = strdate(calc_date($refdate,5)); $Next_Sunday = strdate(calc_date($refdate,6)); $DoNotReply=qq |
*******************************************************
DO NOT REPLY TO THIS MESSAGE.
For further help or to contact support, please visit: $website Support
*******************************************************
|; $Form{'Page'}!~ /login/i and $masterlogindiv =qq|
#91;Hide#93;

- : Administration Login : -

* Email    

* Password  
Case Sensitive. ( min 6 characters )


Forgot your password?
Enter your Email and click "Lost Password" button to have your password emailed to you.

$floatingdiv |; 1;