#!/usr/bin/perl

# Research into using Perl to connect to the database, to see if it exists/host exists...
# Make so that it detects where you are acessig script from
# add the settings sectino
# make it password protected...
# test it..

$webmaster = 'webmaster@ace-installer.com';
$send_mail_to_admin = 1;
$sendmail = "/usr/sbin/sendmail";
$debug = 0;

# if we have debug on ,this could output helpful info...
if ($debug) {
   use CGI::Carp qw(fatalsToBrowser);
}

# get all the input ito CGI.pm
use CGI qw(:standard);
$input = new CGI;
# print a content header...
print $input->header();

# get all the vars we will need...
$action         = $input->param('action');
$time           = $input->param('time');
$file_name      = $input->param('file_name');
$path_to_backup = $input->param('path_to_backup');
$title          = $input->param('title');
$folder         = $input->param('folder');
$database_name  = $input->param('database_name');
$save_to        = $input->param('save_to');
$username       = $input->param('username');
$password       = $input->param('password');
$host           = $input->param('host');
$current_dir    = $0; $current_dir =~ s/backup\.cgi//; # get the folder location of this script...

# if being run via cron/telnet, then need to skip the below, and just  straight into it!
if (!$ENV{REQUEST_METHOD}) { &do_backup; }

# decide what to do...
if     ($action eq "set_cron")         { &set_cron;         }
elsif  ($action eq "set_cron_2")       { &set_cron_2;       }
elsif  ($action eq "edit_folder")      { &edit_folder_list; }
elsif  ($action eq "add_directory")    { &add_directory;    }
elsif  ($action eq "del_dir")          { &delete_directory; }
elsif  ($action eq "edit_db_list")     { &edit_db_list;     }
elsif  ($action eq "add_db")           { &add_db;           }
elsif  ($action eq "del_db")           { &delete_db;        }
else                                   { &show_main;        }

####################################################

sub show_main {

$message = "Please select what you want to do from the menu on your left.";

# now show the message in our template...
&show_page($message);

}

####################################################

# show HTML to set cron job...
sub set_cron {

$message = qq|

        <p align="center">Please complete the form below to set up your cron job.</p>
<p align="center"><font color="#FF0000">THIS WILL ONLY WORK ON UNIX SERVERS!</font></p>
<p align="center">How often do you want the script to backup?</p>
<form method="POST" action="backup.cgi">
  <div align="center">
    <center>
    <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 8pt" bordercolor="#111111" id="AutoNumber1" height="87">
      <tr>
        <td width="80%" height="20">Daily</td>
        <td width="120%" height="20"><input type="radio" name="time" value="daily" checked></td>
      </tr>
      <tr>
        <td width="80%" height="20">Weekly</td>
        <td width="120%" height="20"><input type="radio" name="time" value="weekly"></td>
      </tr>
      <tr>
        <td width="80%" height="11">Monthly</td>
        <td width="120%" height="11"><input type="radio" name="time" value="monthly"></td>
      </tr>
      <tr>
        <td width="80%" height="20">Annually </td>
        <td width="120%" height="20"><input type="radio" name="time" value="annually"></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="Setup Cron Job"></p>
  <input type="hidden" name="action" value="set_cron_2">
</form>

|;

# now show the page.....
&show_page($message);

} # end the set_cron sub...

####################################################

sub set_cron_2 {

$script_path = $ENV{'SCRIPT_FILENAME'};


if ($time eq "daily") {
  $command_to_add = "0 1 * * * perl $script_path\n"; # run at 1am, daily...
} # end 'if'

if ($time eq "weekly") {
  $command_to_add = "0 0 * * 0 perl $script_path\n"; # run every Sunday, at midnight
} # end 'if'

if ($time eq "monthly") {
  $command_to_add = "0 0 1 * * perl $script_path\n"; # set to run every month, on the 1st, at midnight
} # end 'if'

if ($time eq "annually") {
  $command_to_add = "0 0 1 1 * perl $script_path\n"; # set to run at Jan 1st, at midnight
} # end 'if'

# now get the old crontab...
`crontab -l > cron_list.list`;

open(CRON_LIST, "cron_list.list") || &error("Unable to open cron_list.list...reason: $!");
 @array = <CRON_LIST>;
close(CRON_LIST);

foreach $cron (@array) {

                @exploded_cron = split /\:\:+/, $cron; # explode it...so we can compare values and stuff...

                if ($exploded_cron[6] eq "$script_path") {

                        $back_in .= $command_to_add;
                        $found = 1;

            } else {

                        $back_in .= $cron unless $cron =~ /^#/;

            } # end if statement...


} # end foreach

                # if we didn't find it in the other list (and thus edit it), we add it to $back_in here...
                if (!$found) {

                    $back_in .= $command_to_add;

                }

chmod(0666, "cron_list.list"); # incase its not CHMODed to 666...we'll add this...

open(WRITE_CRON, ">cron_list.list") || &error("Can't write to cron_list.list. Reason: $!");
  print WRITE_CRON $back_in;
close(WRITE_CRON);

# update the cron list...

				$location = $current_dir . "cron_list.list";
				if ($debug) { print $location; }
				open PIPE, "crontab $location |";
             	@res = <PIPE>;
            	close PIPE or $bad = "$?,$!";
				if ($bad) { $report = "ERROR: Could not update crontab. Reason: $bad"; } else { $report = "Updated cron Cron has been updated successfully to be run $time"; }
#`crontab -e < cron_list.list`;

&show_page($report);

}

####################################################

sub edit_folder_list {

  # see if the file exists...and if it does, we need to make up some extra HTML stuff for the ones that exist...
  #if (-e "folder.pl" && -z "folder.pl") { $exists = 1; } else { $exists = 0; }
  $exists = -z "folder.pl";


  if (!$exists) {

         open(FOLDERS,"folder.pl") || &error("Unable to open folder.pl. Reason: $!");
           @folders = <FOLDERS>;
         close(FOLDERS);

         foreach (@folders) {

                @divided = split /\:\:/, $_;
                $folder_path = $divided[0];
                $folder_name = $divided[1];

                $existing_folders .= qq|

                <div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 10pt" bordercolor="#111111" id="AutoNumber1" width="562">
    <tr>
      <td width="468">
      <p align="center">$folder_name</td>
      <td width="469">
      <p align="center">$folder_path</td>
      <td width="87">
      <p align="center">[ <a href="backup.cgi?action=del_dir&title=$folder_name&folder=$folder_path">Delete</a> ]</td>
    </tr>
  </table>
  </center>
</div>

                |;

         } # end foreach

  } else { $existing_folders = "<center>There are no existing folders...</center>"; }# end if

}

# define the form, as well as any other folders that may exist...
 $message = qq|

<form method="POST" action="backup.cgi">
  <p align="center">Path to backup :
  <input type="text" name="path_to_backup" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></p>
  <p align="center">File name :&nbsp;&nbsp;
  <input type="text" name="file_name" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></p>
  <p align="center">
  <input type="submit" value="Submit" name="B1" style="color: #000000; font-family: Verdana; font-size: 8pt; border-style: groove; border-width: 1; background-color: #C0C0C0"></p>
  <p align="center"><b>Path to Backup</b></p>
  <p align="center">(i.e /home/folder/...<font color="#FF0000">needs beginning
  and trailing /</font>)</p>
  <p align="center"><b>File Name</b></p>
  <p align="center">&nbsp;(i.e filename will be made as filename.tar.gz)</p>
  <input type="hidden" name="action" value="add_directory">
</form>
<BR>
<BR>
$existing_folders
<BR>
<BR>

   |;

  # now shoow the template...
  &show_page($message);

####################################################

sub add_directory {

if     (!$file_name)      { &error("Can't add directory, as you didn't provide a file to back it up to!"); }
if     (!$path_to_back)   { &error("Can't add directory, as you didn't provide one!");     }
unless (-e $path_to_back) { &error("Can't add directory, as it doesn't appear to exist!"); }

open(FOLDER, ">>folder.pl") || &error("Unable to write to folder.pl. Reason: $!");
print FOLDER "$path_to_backup\:\:$file_name\n";
close(FOLDER);

$message = "Added $file_name ($path_to_backup)...";

  &show_page($message);


} # end sub...

####################################################

sub delete_directory {

   open(FOLDER_LIST,"folder.pl") || &error("Unable to open folder.pl. Reason: $!");
     @list = <FOLDER_LIST>;
   close(FOLDER_LIST);


   foreach $line (@list) {

           chomp $line;
           if ($line eq "$folder\:\:$title") { } else { $put_back .= $line . "\n"; }

   }

   open(FOLDER_BACK,">folder.pl") || &error("Unable to open folder.pl. Reason: $!");
   print FOLDER_BACK $put_back;
   close(FOLDER_BACK);

   $message = "Directory '$title', deleted successfully...";

   &show_page($message);

}

####################################################

sub edit_db_list {

  # see if the file exists...and if it does, we need to make up some extra HTML stuff for the ones that exist...
  $exists = -z "databases.pl" ? 1 : 0;

  if (!$exists) {

         open(DATABASES,"databases.pl") || &error("Unable to open databases.pl. Reason: $!");
           @databases = <DATABASES>;
         close(DATABASES);

         # database is in format of Database::file_name_for_saving::usewrname::password::host

         foreach (@databases) {

                @divided = split /\:\:/, $_;
                $database_name = $divided[0];
                $save_to       = $divided[1];
                $username      = $divided[2];
                $password      = $divided[3];
                $host          = $divided[4];

                $existing_databases .= qq|

                <div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 10pt" bordercolor="#111111" id="AutoNumber1" width="562">
    <tr>
      <td width="468">
      <p align="center">$database_name</td>
      <td width="469">
      <p align="center">$save_to</td>
      <td width="469">
      <p align="center">$username</td>
      <td width="469">
      <p align="center">$password</td>
      <td width="469">
      <p align="center">$host</td>
      <td width="87">
      <p align="center">[
      <a href="backup.cgi?action=del_db&database_name=$database_name&save_to=$save_to&username=$username&password=$password&host=$host">Delete</a> ]</td>
    </tr>
  </table>
  </center>
</div>

                |;

         } # end foreach

  } else { $existing_databases = "<center>There are no existing databases...</center>"; }# end if


# define the form, as well as any other folders that may exist...
 $show_message = qq|

<form method="POST" action="backup.cgi">
  <p align="center"><font color=red>Existing database to be backed up can be found at the bottom of the page...</font></p>
  <div align="center">
    <center>
    <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 10pt" bordercolor="#111111" id="AutoNumber1">
      <tr>
        <td width="50%">Database Name :</td>
        <td width="50%">
  <input type="text" name="database_name" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></td>
      </tr>
      <tr>
        <td width="50%">Backup name&nbsp;&nbsp;&nbsp; :</td>
        <td width="50%">
  <input type="text" name="save_to" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></td>
      </tr>
      <tr>
        <td width="50%">Username&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        :</td>
        <td width="50%">
  <input type="text" name="username" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></td>
      </tr>
      <tr>
        <td width="50%">Password&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        :</td>
        <td width="50%">
  <input type="text" name="password" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></td>
      </tr>
      <tr>
        <td width="50%">Host&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        :</td>
        <td width="50%">
  <input type="text" name="host" size="20" style="font-family: Verdana; font-size: 8pt; border-style: ridge; border-width: 3"></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center">
  <input type="submit" value="Add" name="B1" style="color: #000000; font-family: Verdana; font-size: 8pt; border-style: groove; border-width: 1; background-color: #C0C0C0"></p>
  <p align="center"><b>Database Name</b></p>
  <p align="center">This is the name of the database you want to back up. i.e
  test_db</p>
  <p align="center"><b>Backup Name</b></p>
  <p align="center">This is what you want the backup to be called. If, for
  example, you enter 'test', then<br>
  the backup that will be made is called <i>test.sql.backup</i></p>
  <p align="center"><b>Username</b></p>
  <p align="center">This is the username that is needed to backup this database.
  Should be the same as previously used <br>
  when accessing the database via other script.</p>
  <p align="center"><b>Password</b></p>
  <p align="center">This is the password corresponding to the username above.</p>
  <p align="center"><b>Host</b></p>
  <p align="center">This is where the SQL server is hosted. In most cases it is
  localhost, but some <br>
  may have another name, or even URL.</p>
  <input type="hidden" name="action" value="add_db">
</form>
<BR>
<BR>
$existing_databases
<BR>
<BR>

   |;

  # now shoow the template...
  &show_page($show_message);

}



###################################################

sub add_db {

  # check they entered it all ok :p
  if (!$database_name || !$save_to || !$username || !$password || !$host)   { &error("Can't add database, as you didn't provide all the required information!"); }

  # add the database to the list...
  open(FOLDER, ">>databases.pl") || &error("Unable to write to databases.pl. Reason: $!");
  print FOLDER "$database_name\:\:$save_to\:\:$username\:\:$password\:\:$host\n";
  close(FOLDER);

   $message = "Added $database_name (saving to $save_to)...";

   &show_page($message);

}

###################################################

sub delete_db {								

   open(FOLDER_LIST,"databases.pl") || &error("Unable to open databases.pl. Reason: $!");
     @list = <FOLDER_LIST>;
   close(FOLDER_LIST);


   foreach $line (@list) {

           chomp $line;
           if ($line eq "$database_name\:\:$save_to\:\:$username\:\:$password\:\:$host") { } else { $put_back .= $line . "\n"; }

   }

   open(FOLDER_BACK,">databases.pl") || &error("Unable to open databases.pl. Reason: $!");
   print FOLDER_BACK $put_back;
   close(FOLDER_BACK);

   $message = "Database '$database_name', deleted successfully...";

   &show_page($message);

}

####################################################

####################################################

# do the backup...
sub do_backup {

# DO THE SQL DATABASES...
# first of all do the 
   $path_to_db = $current_dir . "databases.pl";
   chmod(0666, "$path_to_db");
   open(DATABASE_LIST,"$path_to_db") || &mail_error("Unable to open $path_to_db. Reason: $!");
     @databases = <DATABASE_LIST>;
   close(DATABASE_LIST);

   foreach (@databases) {

				chomp;
                @divided = split /\:\:/, $_;
                $database_name = $divided[0];
                $save_to       = $divided[1];
                $username      = $divided[2];
                $password      = $divided[3];
                $host          = $divided[4];

				print "Backing up $database_name\n";
				$results_database .= "Results for database '$database_name' (nothing is normally good) :: \n";

             	$bad = 0; # reset for each loop...
				open PIPE, "mysqldump -u$username -p$password $database_name > $current_dir$save_to.sql.dump |";
             	@res = <PIPE>;
            	close PIPE or $bad = "$?,$!";
				if ($bad) { $report = "ERROR: Could not backup '$database_name' database!"; } else { $report = "Backed Up '$database_name' to '$save_to'"; }

				$results_database .=  "$report \n\n";

   }

# NOW THE FOLDERS!
# first of all do the 
   $path_to_folder = $current_dir . "folder.pl";
   chmod(0666, $path_to_folder);
   open(FOLDER_LIST,$path_to_folder) || &mail_error("Unable to open $path_to_folder. Reason: $!");
     @folders = <FOLDER_LIST>;
   close(FOLDER_LIST);

   foreach (@folders) {

                chomp;
				@divided = split /\:\:/, $_;
				$folder_path = $divided[0];
                $folder_name = $divided[1];

				print "Backing up $folder_name\n";
				$results_database .= "Results for folder '$folder_name'\n";

             	$bad = 0; # reset for each loop...
				open PIPE, "tar -cf $folder_name.tar $folder_path |";
             	@res = <PIPE>;
            	close PIPE or $bad = "$?,$!";
				if ($bad) { $report = "ERROR: Could not backup '$folder_path' to '$folder_name'"; } else { $report = "Backed Up '$folder_path' to '$folder_name.tar.gz'"; }

                `gzip -c $folder_name.tar > $current_dir$folder_name.tar.gz`;
				$results_database .=  "$report \n\n";
   }


# if they want an email, then send it here...
if ($send_mail_to_admin) {

  open(MAIL,"|$sendmail -t");
  print MAIL "To: $webmaster \n";
  print MAIL "From: $webmaster \n";
  print MAIL "Reply-to: $webmaster \n";
  print MAIL "Subject: RE Backup...\n\n";
  print MAIL "Here is the resuilts of your server backup. It did both MySQL and Folder backups. \n\n$results_database\n";
  print MAIL "\n \n Thanks";
  print MAIL "\n";
  print MAIL "A.J.Newby \n";
  print MAIL "Ace Installer \n";
  close(MAIL);

}

print "done backup";
exit; # stop it here, otherwise it will carry on showing HTML :)

}

####################################################


sub show_page {

 my $CONTENT = shift;

 print qq|

<html>
<head>
<meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ace Backup</title>
</head>
<STYLE type=text/css>A:link {
        TEXT-DECORATION: none
}
A:visited {
        TEXT-DECORATION: none
}
A:hover {
        TEXT-DECORATION: none
}
</STYLE>

<STYLE fprolloverstyle>A:hover {color: #ff0000}
</STYLE>
<body link="#008000" vlink="#000080" alink="#FF0000">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="26">
    <tr>
      <td valign="top" height="19" colspan="3" style="font-family: Verdana; font-size: 8pt; border-style: double; border-width: 3">
      <p align="center"><b><font size="3">Ace Backup</font></b></td>
    </tr>
    <tr>
      <td valign="top" width="24%" height="7" style="font-family: Verdana; font-size: 8pt; border-style: double; border-width: 3">
      <p align="center"><b>MENU</b></p>
      <div align="center">
        <center>
        <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 8pt" bordercolor="#111111" width="100%" id="AutoNumber2" height="78">
          <tr>
            <td width="100%" height="13">
            <p align="center"><a href="backup.cgi?action=set_cron">Setup Cron</a></td>
          </tr>
          <tr>
            <td width="100%" height="13">
            <p align="center"><a href="backup.cgi?action=edit_db_list">Edit SQL Database List</a></td>
          </tr>
          <tr>
            <td width="100%" height="13">
            <p align="center"><a href="backup.cgi?action=edit_folder">Edit Folder List</a></td>
          </tr>
          <tr>
            <td width="100%" height="13">
            <p align="center"></td>
          </tr>
          <tr>
            <td width="100%" height="13">
            <p align="center"></td>
          </tr>
        </table>
        </center>
      </div>
      </td>
      <td width="52%" height="7" style="font-family: Verdana; font-size: 8pt; border-style: double; border-width: 3" valign="top">
      <p align="center">
      <br>
      $CONTENT</td>
      <td width="74%" height="7" style="font-family: Verdana; font-size: 8pt; border-style: double; border-width: 3" valign="top">
      <br>
      <b><center>Quick Links</center></b></p>
      <p align="center">
      <a target="_blank" href="http://www.ace-installer.com/forum/">Support</a></p>
      <p align="center"><a target="_blank" href="http://www.ace-installer.com">
      Our Home Page</a></p>
      <p align="center">
      </td>
    </tr>
    <tr>
      <td width="150%" height="7" colspan="3" style="font-family: Verdana; font-size: 8pt; border-style: double; border-width: 3">
      <p align="center">&copy; Ace Installer. All Rights Reserved 1999-2002</td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

        |;

exit; # shuit script off...just cos some other subs were being buggers :p

}

####################################################
####################################################

# if we get a problem, then we need this sub...
sub error {

        my $error = shift;
        print $error;
        exit;

}

###################################################

# if we get a major problem during the cron,  then we need this sub...
sub mail_error {

    my $error = shift;
    print $error;

       open(MAIL,"|$sendmail -t");
       print MAIL "To: $webmaster \n";
       print MAIL "From: $webmaster \n";
       print MAIL "Reply-to: $webmaster \n";
       print MAIL "Subject: RE Backup...\n\n";
       print MAIL "There was an error doing the backups. It was: \n\n $error\n";
       print MAIL "\n \n Thanks";
       print MAIL "\n";
       print MAIL "A.J.Newby \n";
       print MAIL "Ace Installer \n";
       close(MAIL);
		
     exit;

}