Message permanently wiped. ~; &inter_footer; exit; } # end trash_item sub amqdate { $amqdate = $_[0]; @bits = split (/\//, $amqdate); $amqyear = $bits[2]; if ($amqyear > 1999) { $amqyear = ($amqyear - 2000); } if ($amqyear == 4 || $amqyear == 8 || $amqyear == 12 || $amqyear == 16 || $amqyear == 0 || $amqyear == 20 || $amqyear == 24) {$leap = "yes";} else {$leap = "no";} if ($amqyear == 1 || $amqyear == 5 || $amqyear == 9 || $amqyear == 13 || $amqyear == 17 || $amqyear == 21 || $amqyear == 25) { $extradays = ((($amqyear - 1)/4)+1); } $amqyeardays = (($amqyear * 365)+$extradays); $amqday = $bits[0]; if ($bits[1] == 1) {$monthdays = 0;} if ($bits[1] == 2) {$monthdays = 31;} if ($bits[1] == 3) {$monthdays = 59;} if ($bits[1] == 4) {$monthdays = 90;} if ($bits[1] == 5) {$monthdays = 120;} if ($bits[1] == 6) {$monthdays = 151;} if ($bits[1] == 7) {$monthdays = 181;} if ($bits[1] == 8) {$monthdays = 212;} if ($bits[1] == 9) {$monthdays = 243;} if ($bits[1] == 10) {$monthdays = 273;} if ($bits[1] == 11) {$monthdays = 304;} if ($bits[1] == 12) {$monthdays = 334;} if ($leap eq "yes" && $bits[1] >2) { $monthdays = ($monthdays+1); } $amqtotal = ($amqday + $amqyeardays + $monthdays); return($amqtotal); } sub check_update { unless (-e "$update_name") { umask 000; } open(NUMBER,"$update_name") || &oops('$update_name'); $num = ; close(NUMBER); if ($num < $revdate) { &get_file_lock("$location_of_lock_file"); open(NUMBER,">$update_name"); print NUMBER "$revdate"; close(NUMBER); $check_digits = 0; @digits = split (//, $days_to_delete); foreach $w (@digits) { unless ($w =~ /[0-9]/) { $check_digits = 1; } } if ($check_digits == 1) { $days_to_delete = 0; } if ($days_to_delete > 0) { &update_database; } &release_file_lock("$location_of_lock_file"); } } sub update_database { ############# run automatic delete or trash open(USER_FILE,"$guestbook_data_name"); @data = ; close(USER_FILE); open(USER_FILE,">$guestbook_data_name"); foreach $row (@data) { @fields = split (/\|/, $row); if (($fields[10] eq "del") && ($fields[12]) && ($fields[12] < $now - $days_to_trash)) { } elsif ((!$fields[12]) && ($fields[8] < ($now - $days_to_delete))) { print USER_FILE "$fields[0]|$fields[1]|$fields[2]|$fields[3]|$fields[4]|$fields[5]|$fields[6]|$fields[7]|$fields[8]|$fields[9]|del|$fields[11]|$now|$fields[13]|$fields[14]|$fields[15]|$fields[16]|$fields[17]|$fields[18]|$fields[19]|$fields[20]|$fields[21]|$fields[22]|$fields[23]|$fields[24]|$fields[25]|$fields[26]|$fields[27]|$fields[28]|$fields[29]|$fields[30]|\n"; } else { print USER_FILE "$row"; } } # end for each close(USER_FILE); ########### automatic prune if non-deleted messages greater than max open(USER_FILE,"$guestbook_data_name") || &oops('$guestbook_data_name'); @data = ; close(USER_FILE); @revdata = reverse(@data); @nondeldata = (); @deldata = (); @arraytodisplay = (); foreach $row (@revdata) { @fields = split (/\|/, $row); push (@nondeldata, $row) if $fields[10] ne "del"; # add non-deleted messages to new array # push (@deldata, $row) if $fields[10] eq "del"; # add deleted messages to new array # } if (@nondeldata >$max) { $counter = 0; foreach $row (@nondeldata) { @fields = split (/\|/, $row); if ($counter < $max) { push (@arraytodisplay, $row); } else { $delrow = "$fields[0]|$fields[1]|$fields[2]|$fields[3]|$fields[4]|$fields[5]|$fields[6]|$fields[7]|$fields[8]|$fields[9]|del|$fields[11]|$now|$fields[13]|$fields[14]|$fields[15]|$fields[16]|$fields[17]|$fields[18]|$fields[19]|$fields[20]|$fields[21]|$fields[22]|$fields[23]|$fields[24]|$fields[25]|$fields[26]|$fields[27]|$fields[28]|$fields[29]|$fields[30]|\n"; push (@arraytodisplay, $delrow); } $counter++; } @alldata = (@arraytodisplay, @deldata); @sortedalldata = sort(@alldata); open(USER_FILE,">$guestbook_data_name") || &oops('$guestbook_data_name'); foreach $row (@sortedalldata) { print USER_FILE "$row"; } close(USER_FILE); } ######### &delete_old_backups; &mail_backup if $mail_backup_to_admin eq "yes"; } sub backup_to_dir { open(USER_FILE,"$guestbook_data_name") || &oops('$guestbook_data_name'); @user_data = ; close(USER_FILE); $location1 = "./$guestbook_backups_directory/guestbook_backup.$revdate"; umask 000; open(BAK,">$location1"); foreach $row (@user_data) { print BAK "$row"; } close(BAK); } # end backup to dir ###################### sub mail_backup { open(NUMBER2,"$senddate_name") || &oops('$senddate_name'); $senddate = ; close(NUMBER2); if ((($mail_admin_backups_interval eq "monthly") && (($mail_admin_backups_month == $bakday) || (($now -$senddate) >27 ) )) || (($mail_admin_backups_interval eq "weekly") && (($mail_admin_backups_day == $wday) || (($now -$senddate) >6 ) ) ) || ($mail_admin_backups_interval eq "daily")) { open (MAIL, "|$mail_path $admin_email") || &oops('the mail program. Please check the mail path in the Control Panel.'); print MAIL "To: $admin_email\n"; print MAIL "From: $admin_email\n"; print MAIL "Subject: Database backup\n\n"; print MAIL "Below is a backup data file from your Active Guestbook. For details of how to restore your data from this file, please visit www.active-scripts.net.\n\n"; open(USER_FILE,"$guestbook_data_name") || &oops('$guestbook_data_name'); @user_data = ; close(USER_FILE); foreach $row (@user_data) { print MAIL "$row\n"; } close (MAIL); open(NUMBER1,"$senddate_name") || &oops('$senddate_name'); open (NUMBER1,">$senddate_name"); print NUMBER1 "$now"; close(NUMBER1); } } ##################### sub delete_old_backups { opendir (USERS, "./$guestbook_backups_directory") || &oops('the $guestbook_backups_directory directory'); @files = grep(/^g/,readdir(USERS)); closedir (USERS); foreach $file (@files) { if (-M "./$guestbook_backups_directory/$file" > $days_to_delete_backup_files) { unlink("./$guestbook_backups_directory/$file"); } } } # End of sub delete_old_bak sub search { &content; @hits = (); &main_header; &active_header if $active_header eq "on"; print qq~

~; &user_image if $user_image eq "yes"; &title if $use_title eq "on"; &user_html if $use_user_html eq "yes"; print qq~ $TXT_search_results ~; &menu; open(USER_FILE,"$guestbook_data_name") || &oops('$guestbook_data_name'); @data = ; foreach $row (@data) { @fields = split (/\|/, $row); if (($fields[10] ne "del") && ($fields[15] ne "waiting")) { if (($search_fields eq "1" ) || ($search_fields eq "2" )) { $searchby = (" " . $fields[$search_fields] . " "); } else { $searchby = (" " . $fields[1] . " " . $fields[2] . " "); } @word_list = split(/\s+/,$search_words); $no_of_words_in_search = @word_list; for ($x = @word_list; $x > 0; $x--) { $match_word = $word_list[$x - 1]; if ($searchby =~ /$match_word/i) { splice(@word_list,$x - 1, 1); } # End of If } # End of For Loop if (@word_list < 1) { push (@hits, $row); } } } # end foreach $row (@data) close(USER_FILE); if (@hits <1) { print " $TXT_no_match "; } else { &html_search_results; } if (($use_user_html_footer eq "yes") && ($use_hr_image eq "yes")) { print " "; &user_html_footer ; } if (($use_user_html_footer eq "yes") && ($use_hr_image ne "yes")) { &user_html_footer ; } print qq~

~; } ######### sub html_search_results { $count = 1; $number_of_messages = @hits; @hits = reverse(@hits); if ($search_flag ne "no") { if ($number_of_messages == 1) { print qq~
$TXT_one_match ~; } else { print qq~
$TXT_more_matches_1 $number_of_messages $TXT_more_matches_2~; } } foreach $row (@hits) { ######### @fields = split (/\|/, $row); # $grouped++; # if (($grouped > ($start_number)) && ($grouped < ($start_number + $no_displayed + 1))) # { &main_table_results; # } # end if number is right } # end for each row ######### } ############## sub preview { &content; &main_header; &active_header if $active_header eq "on"; print qq~

~; &user_image if $user_image eq "yes"; &title if $use_title eq "on"; &user_html if $use_user_html eq "yes"; &menu; $message =~ s/\"/'/g; $location =~ s/\"/'/g; $url =~ s/\"/'/g; $full_name =~ s/\"/'/g; print qq~ ~; $url = "$TXT_none_given" if !$url; $location = "$TXT_none_given" if !$location; $guest_email = "$TXT_none_given" if !$guest_email; print qq~ $TXT_these_are_the $TXT_if_correct $TXT_if_not$TXT_go_back$TXT_and_edit $TXT_your_name $full_name $TXT_your_message $message $TXT_your_email_address $guest_email $TXT_where_in_the_world $location $TXT_your_web_page_address $url

~; &user_html_footer if $use_user_html_footer eq "yes"; exit; } sub view_backups { &seek_cook; open(RESTORE_BACKUP,"./$guestbook_backups_directory/undo_restore.bak"); @restore_backup_data = ; close(RESTORE_BACKUP); opendir (USERS, "./$guestbook_backups_directory") || &oops('the backups directory'); @files = grep(/^guest/,readdir(USERS)); closedir (USERS); if (@files<1) { &content; print qq~

Active Guestbook Backup Manager

Control Panel ~; if (@restore_backup_data >2) { print qq~ | Undo last restore ~; } print qq~

~; @sorted_files = sort(@files); foreach $file (@sorted_files) { $year = substr($file, -8,4); $month = substr($file, -4,2); $month = $month-1; $mon = $months[$month]; $day = substr($file, -2,2); print qq~ ~; } print qq~

Select backup to restore
$day - $mon - $year	- View

~; } &inter_footer; } sub undo_last_restore { &seek_cook; open(RESTORE_BACKUP,"./$guestbook_backups_directory/undo_restore.bak"); @restore_backup_data = ; close(RESTORE_BACKUP); if (@restore_backup_data <2) { &content; print qq~ Active Guestbook Backup Manager

No undo available at the moment.

~; } open(MAIN_GUESTBOOK,">$guestbook_data_name") || &oops('$guestbook_data_name'); foreach $row (@restore_backup_data) { print MAIN_GUESTBOOK "$row"; } close(MAIN_GUESTBOOK); open(RESTORE_BACKUP,">./$guestbook_backups_directory/undo_restore.bak"); # wipe undo restore file close(RESTORE_BACKUP); &set_counter; &content; print qq~ Active Guestbook Backup Manager

Last restore undone.

~; exit; } sub restore_backups { &seek_cook; $file_to_restore = $FORM{'file_to_restore'}; if ($file_to_restore eq "") { { &basic_header; print qq~ $title

You didn't select a backup to restore. Please go back and select. ~; exit; } } open(MAIN_GUESTBOOK,"$guestbook_data_name") || &oops('$guestbook_data_name'); @main_data = ; close(MAIN_GUESTBOOK); open(RESTORE_BACKUP,">./$guestbook_backups_directory/undo_restore.bak"); foreach $row (@main_data) { print RESTORE_BACKUP "$row"; } close(RESTORE_BACKUP); &get_file_lock("$location_of_lock_file"); open(MAIN_GUESTBOOK,">$guestbook_data_name"); open(RESTORE,"./$guestbook_backups_directory/$file_to_restore") || &oops('/$guestbook_backups_directory/$file_to_restore'); @restore_data = ; foreach $line (@restore_data) { print MAIN_GUESTBOOK "$line"; } close(RESTORE); close(MAIN_GUESTBOOK); &release_file_lock("$location_of_lock_file"); &set_counter; &content; print qq~

Active Guestbook Backup Manager

Backup has been restored.
(You can undo this from the main Backup Manager page.)

~; exit; } sub view_single_backup { &seek_cook; &basic_header; $file_to_restore = $FORM{'file_to_restore'}; $year = substr($file_to_restore, -8,4); $month = substr($file_to_restore, -4,2); $month = $month-1; $mon = $months[$month]; $day = substr($file_to_restore, -2,2); $datestamp = "$day"."-"."$mon"."-"."$year"; print qq~ Backup date: $datestamp
Restore this guestbook | Return to Backup Manager ~; open(RESTORE,"./$guestbook_backups_directory/$file_to_restore"); @hits = ; close(RESTORE); $search_flag = "no"; &html_search_results_plain; } sub active_header { if ($demo eq "off") { print qq~ ~; } else { print qq~ ~; } } sub title { print qq~

$title

~; } sub menu { print qq~ $left_bracket ~; if ($ipoops ne "yes") { if ($action ne "add") { print qq~ $TXT_add_a_message $middle_bracket ~; } } unless ($show_home_page_link eq "no") { print qq~ $home_page_title $middle_bracket ~; } if ($action eq "add") { print qq~ $TXT_back_to_guestbook $middle_bracket ~; } if ($action eq "search") { print qq~ $TXT_back_search_again $right_bracket
~; } else { print qq~ $TXT_search $right_bracket
~; } print qq~ ~; } sub no_of_messages_display { print qq~ ~; if ($number_of_messages == 1) { print qq~ $TXT_there_is_now$number_of_messages$TXT_message_in_our_guestbook
~; } else { print qq~ $TXT_there_are_now$number_of_messages$TXT_messages_in_our_guestbook
~; } print qq~ ~; } sub main_header { print qq~ ~; &required_script if $action eq "add"; if ($style ne "off") { print qq~ $user_style ~; } print qq~

~; } ######################## sub main_headera { print qq~ ~; &required_script if $action eq "add"; } sub main_headerc { if ($style ne "off") { print qq~ $user_style ~; } print qq~

~; } sub main_headerb { if ($style ne "off") { print qq~ $user_style ~; } print qq~

~; } else { print qq~ TEXT="#000000" LINK="#000000" VLINK="#000000" ALINK="#000000" marginwidth="0" marginheight="0" LEFTMARGIN="0" TOPMARGIN="0" >

~; } } ############# sub content { print "Content-type: text/html\n\n"; } sub search_form { print qq~

$TXT_you_can_search_this_guestbook_by $TXT_searchmessage - $TXT_searchname - $TXT_searchall $TXT_searchtext RETURN TO GUESTBOOK    |    RETOUR AU CARNET DE SIGNATURES

~; } sub show_number_menu { print qq~ $left_bracket ~; $number_of_messages = int($number_of_messages); # int here sorts out any funny decimals entered in the control panel $number_of_pages = ($number_of_messages / $no_displayed) ; $number_of_pages = int($number_of_pages); # no of full pages if ($number_of_messages > ($number_of_pages * $no_displayed)) { $extra = "yes"; } if ($extra eq "yes") { $number_of_pages = $number_of_pages +1; } ($start_number = 0) if (!$start_number); for ($x = 1; $x < $number_of_pages+1 ; $x++ ) { $sn = (($x*$no_displayed)- $no_displayed); $bottom = ($start_number - (11 * $no_displayed)); $top = ($start_number + (11 * $no_displayed)); if ((($sn > $bottom) && ($sn < $top)) || ($x == "1") || ($x == $number_of_pages)) { if ($sn ne $start_number) { print qq~ $x ~; } else { print qq~ $x ~; } # end else } } # end for print qq~ $right_bracket ~; } sub user_image { if ($user_image_url) { print qq~
~; } else { print qq~ You have not given an image file address in the Standard Preferences Manager.
Either select NO for 'Use your own image at top of guestbook' in the Standard
Preferences Manager, or fill in the address of your image in the 'Address of your
image' field in the Standard Preferences Manager. ~; } } sub user_html { print qq~ $user_html ~; } sub user_html_footer { print qq~ $user_html_footer
~; } sub view_change_password { &seek_cook; &content; print qq~ ~; &required_script; print qq~ ~; print qq~ Password Manager
Control Panel
Please enter your new password twice.
(please note that passwords are case-sensitive)

New password
New password again

~; &inter_footer; } sub change_password { &seek_cook; $pass1 = $FORM{'requiredpass1'}; $passcheck = $FORM{'requiredpasscheck'}; if ($pass1 eq $passcheck) { open(ACTIVE,">$active_name"); $newpass = crypt($pass1, $salt); print ACTIVE "$newpass"; close(ACTIVE); &SetCookies('activea',$newpass); &content; &main_headera; print qq~ ~; &main_headerb; print qq~ Change Active Guestbook Control Panel Password
Password has been changed. ~; } else { &content; &plain_header_stop; print qq~ Change Active Guestbook Control Panel Password

The password has NOT been changed.
The two passwords you typed were not the same.
Control Panel | Try again ~; } } sub enter_password { &content; print qq~ ~; print qq~

Active Guestbook Control Panel
Please enter password.
You will need to have Cookies enabled for easy navigation
through the Control Panel features.

Password

~; &inter_footer; } sub cookie_vars { $Cookie_Exp_Date = ''; $Cookie_Path = ''; $Cookie_Domain = ''; $Secure_Cookie = '0'; @Cookie_Encode_Chars = ('\%', '\+', '\;', '\,', '\=', '\&', '\:\:', '\s'); %Cookie_Encode_Chars = ('\%', '%25', '\+', '%2B', '\;', '%3B', '\,', '%2C', '\=', '%3D', '\&', '%26', '\:\:', '%3A%3A', '\s', '+'); @Cookie_Decode_Chars = ('\+', '\%3A\%3A', '\%26', '\%3D', '\%2C', '\%3B', '\%2B', '\%25'); %Cookie_Decode_Chars = ('\+', ' ', '\%3A\%3A', '::', '\%26', '&', '\%3D', '=', '\%2C', ',', '\%3B', ';', '\%2B', '+', '\%25', '%'); } sub GetCookies { local(@ReturnCookies) = @_; local($cookie_flag) = 0; local($cookie,$value); if ($ENV{'HTTP_COOKIE'}) { if ($ReturnCookies[0] ne '') { foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($cookie,$value) = split(/=/); foreach $char (@Cookie_Decode_Chars) { $cookie =~ s/$char/$Cookie_Decode_Chars{$char}/g; $value =~ s/$char/$Cookie_Decode_Chars{$char}/g; } foreach $ReturnCookie (@ReturnCookies) { if ($ReturnCookie eq $cookie) { $Cookies{$cookie} = $value; $cookie_flag = "1"; } } } } else { foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($cookie,$value) = split(/=/); # foreach $char (@Cookie_Decode_Chars) { $cookie =~ s/$char/$Cookie_Decode_Chars{$char}/g; $value =~ s/$char/$Cookie_Decode_Chars{$char}/g; } $Cookies{$cookie} = $value; } $cookie_flag = 1; } } return $cookie_flag; } sub SetCookies { local(@cookies) = @_; local($cookie,$value,$char); while( ($cookie,$value) = @cookies ) { foreach $char (@Cookie_Encode_Chars) { $cookie =~ s/$char/$Cookie_Encode_Chars{$char}/g; $value =~ s/$char/$Cookie_Encode_Chars{$char}/g; } print 'Set-Cookie: ' . $cookie . '=' . $value . ';'; if ($Cookie_Exp_Date) { print ' expires=' . $Cookie_Exp_Date . ';'; } if ($Cookie_Path) { print ' path=' . $Cookie_Path . ';'; } if ($Cookie_Domain) { print ' domain=' . $Cookie_Domain . ';'; } if ($Secure_Cookie) { print ' secure'; } print "\n"; shift(@cookies); shift(@cookies); } } sub seek_cook { if (($cookie_default eq "") || (!$cookie_default) ) { &content; print "$valid_ip"; exit; } ############# $xyza= $FORM{'bottom'}; unless ($xyza eq $cookie_default) { if (&GetCookies('activea')) { $password = $Cookies{'activea'}; $first_time = "no"; } else { $xyz= $FORM{'password'}; $password = crypt($xyz, $salt); $first_time = "yes"; } if ($password eq $active_string) { if ($first_time eq "yes") { &SetCookies('activea',$password); &content; print qq~ ~; exit; } } else { &enter_password; exit; } } ################ } sub oops { &content; $message = $_[0]; print "Can't open $message "; exit; } sub set_counter { open(MAIN_GUESTBOOK,"$guestbook_data_name"); @main_data = ; $max = 0; foreach $row (@main_data) { @fields = split (/\|/, $row); if ($fields[0] > $max) { $max = $fields[0]; } } # end for each close(MAIN_GUESTBOOK); $max++; &get_file_lock("$location_of_lock_file"); open (NUMBER,">$counter_name"); print NUMBER "$max"; close(NUMBER); &release_file_lock("$location_of_lock_file"); } sub restore_defaults { &seek_cook; open(DEFAULTS,"$prefs_backup_name"); @default_data = ; close(DEFAULTS); open(PREFS,">$prefs_name"); foreach $row (@default_data) { print PREFS "$row"; } close(PREFS); &content; &main_headera; print qq~ ~; &main_headerb; print qq~ Active Guestbook Standard Preferences Manager

Factory default preferences restored. ~; &inter_footer; } sub restore_language_defaults { &seek_cook; open(DEFAULTS,"$langprefs_backup_name"); @default_data = ; close(DEFAULTS); open(PREFS,">$langprefs_name"); foreach $row (@default_data) { print PREFS "$row"; } close(PREFS); open(DEFAULTS,"$months_bak_name"); @default_data = ; close(DEFAULTS); open(PREFS,">$months_name"); foreach $row (@default_data) { print PREFS "$row"; } close(PREFS); &content; &main_headera; print qq~ ~; &main_headerb; print qq~

Active Guestbook Language Preferences Manager

Factory default language preferences restored. ~; &inter_footer; } sub check_new_files { unless (-e "$counter_name") { &content; print "The file $counter_name does not exist" ; exit; } unless (-e "$guestbook_data_name") { &content; print "The file $guestbook_data_name does not exist" ; exit; } unless (-e "$prefs_name") { &content; print "The file $prefs_name does not exist" ; exit; } unless (-r "$counter_name") { &content; print "The file $counter_name does can not be read." ; exit; } unless (-r "$guestbook_data_name") { &content; print "The file guestbook_data can not be read." ; exit; } unless (-r "$prefs_name") { &content; print "The file $prefs_name can not be read." ; exit; } unless (-w "$counter_name") { &content; print "The file $counter_name can not be written to." ; exit; } unless (-w "