The Script: check_for_updates.pl

Link: mysql_backup.pl

Explanation of the script:

The script will login to your mysql server and issue a "show databases;". Once it the database names are retrieved it will run a mysqldump on each database and store the output in the specified directory. The name scheme of the out will be database_name-YYYYMMDD.sql. Doing this it will allow you to sort based on date. Once all mysqldumps have completed it will go through each database directory and audit what should be saved, deleted, gzipped or leave alone. You will be able to chose what the numbers of day you want to retain and the how many days you want to leave as a uncompressed file.

Once you have the understanding of how the sub-routine works. Building a script that interacts with the api is a piece of cake.

Here is an example of how we use the sub-routine in a script. This example will check to see if the socket is defined, if not it will try to connect and define the socket. Once the socket is defined it will issue a command and read the socket.

Example:

returns:

Using Term:ReadKey you can disable echo for STDOUT. This way no one will see your password from over your shoulder.

The script is located here

which outputs:

Array
(
    [0] => Array
        (
            [title] => IMG_0028.JPG
            [width] => 2272
            [height] => 1704
            [large_picture] => /p/d/71-1/IMG_0028.JPG
            [thumb_picture] => /p/d/72-2/IMG_0028.JPG
            [resized_picture] => Array
                (
                    [0] => /p/d/73-2/IMG_0028.JPG
                    [1] => /p/d/74-2/IMG_0028.JPG
                    [2] => /p/d/75-2/IMG_0028.JPG
                )

        )

    [1] => Array
        (
            [title] => IMG_0029.JPG
            [width] => 2272
            [height] => 1704
            [large_picture] => /p/d/77-1/IMG_0029.JPG
            [thumb_picture] => /p/d/78-2/IMG_0029.JPG
            [resized_picture] => Array
                (
                    [0] => /p/d/79-2/IMG_0029.JPG
                    [1] => /p/d/80-2/IMG_0029.JPG
                    [2] => /p/d/81-2/IMG_0029.JPG
                )

        )
)

You will need to modify the paths in the function to your installation.

A side note... To find gallery ids you will need to to run the following query.

example:
We will use the following code to build the hash:

#!/usr/bin/perl
use Data::Dumper;
my %data_set;
$data_set{'users'} = ();
$data_set{'users'}[0] = "testA";
$data_set{'users'}[1] = "testB";
$data_set{'users'}[2] = "testC";
$data_set{'users'}[3] = "testD";
$data_set{'users'}[4] = "testE";
$data_set{'users'}[5] = "testF";
print Dumper(%data_set);


Output:

$VAR1 = 'users';
$VAR2 = [
'testA',
'testB',
'testC',
'testD'
];


Now that we know the hash element is populated we want to access each array element. This can be done with making some crazy counter in a while loop. Check it out.

foreach my $user (@{$data_set{'users'}}){
print $user,"\n";
}


Now knowing you can access a array with in a hash using @{} you can push,pop,splice and shift on the array that is in a hash.

Here is the same script above but using push:

#!/usr/bin/perl
use Data::Dumper;
my %data_set;
$data_set{'users'} = ();
push(@{$data_set{'users'}},"testA");
push(@{$data_set{'users'}},"testB");
push(@{$data_set{'users'}},"testC");
push(@{$data_set{'users'}},"testD");

foreach my $user (@{$data_set{'users'}}){
print $user,"\n";
}

Will give you:

$VAR1 = {
'key2' => 'value2',
'key1' => 'value1'
};
$VAR2 = {
'key2' => 'value2',
'key1' => 'value1'
};
$VAR3 = {
'key2' => 'value2',
'key1' => 'value1'
};

Here is the script.