Perl script that checks the XML file on the local BESR client for the real status of the backup job

[Markus_Koestler]

This script  checks the XML file that stores the real status of the assigened backup job. It assumes that the backups are taken daily, if the job did not run it reports the actual last runtime of the job.
You need to run it as scheduled task under a user account which has read permissions on the servers.
The file checklastbackup.txt is needed in the same directory, containing the computernames of the computers to be checked, one per line.
Needs Perl 5.005_3 or greater.
 

[cege7249]

hi !

works fine with besr 2010 (9.x) but can't select job name for have only one line return.

C:\temp\CheckLastBackup>perl CheckLastBackup.pl
SERVER1;last backup on;vt="7">12/30/18990:0:0
SERVER1;last backup on;vt="7">1/11/20129:24:30
SERVER1;last backup on;vt="7">12/30/18990:0:0
SERVER228;last backup on;vt="7">12/30/18990:0:0
SERVER228;last backup on;vt="7">12/30/18990:0:0
SERVER228;last backup on;vt="7">1/13/201214:3:1

there are a way for working in perl linux ?? (because i wan't schuddle a output to a website hosted bye apache) :

[root@webserver CheckLastBackup]# perl -w CheckLastBackup.pl
Unrecognized escape \v passed through at CheckLastBackup.pl line 40.
Name "main::wday" used only once: possible typo at CheckLastBackup.pl line 3.
Name "main::hours" used only once: possible typo at CheckLastBackup.pl line 3.
Name "main::isdst" used only once: possible typo at CheckLastBackup.pl line 3.
Name "main::minutes" used only once: possible typo at CheckLastBackup.pl line 3.
Name "main::seconds" used only once: possible typo at CheckLastBackup.pl line 3.
Name "main::yday" used only once: possible typo at CheckLastBackup.pl line 3.

[root@webserver CheckLastBackup]# perl -v

This is perl, v5.8.8 built for x86_64-linux-thread-multi

[cege7249]

note :

for BESR2010 need to change path of .xml :

$directory="\\\\$_\\c\$\\winnt\\profiles\\all users\\application data\\Symantec\\Backup Exec System Recovery\\Schedule";

[Markus_Koestler]

Sorry we only use perl on Windows, but i think it has todo with this line:

            $string =~ s/\vt="7">//;

Maybe there is a difference in the way the regex is interpreted ?