103 lines
2.7 KiB
Perl
103 lines
2.7 KiB
Perl
#!/usr/bin/perl -w
|
|
#####################################################################
|
|
# RoundupMastRename
|
|
#
|
|
# $Date: 2007-06-04 12:12:52-04 $ $Revision: 1.2 $
|
|
#####################################################################
|
|
|
|
$oracle_directory = "Get_files";
|
|
$mml_directory = "Logs";
|
|
|
|
# Log directories to parse
|
|
@oracle_files = glob "$oracle_directory\\runsql_*.EP";
|
|
@mml_files = glob "$mml_directory\\*run*.EP3";
|
|
|
|
# SQL logs..
|
|
for (@oracle_files)
|
|
{
|
|
# print "$_\n";
|
|
|
|
($Y,$M,$D,$h,$m,$s) = m/(\d+)_(\d+)_(\d+)_(\d+)h(\d+)m(\d+)s/;
|
|
($script_name) = m/runsql_(.+).sql~/;
|
|
next if (!$script_name);
|
|
|
|
$script_name =~ s/^RoundupMast%//;
|
|
|
|
# create the new file name
|
|
# format = datetime_sqlcmd.txt
|
|
$newname = sprintf "%04d%02d%02d_%02dh%02dm%02ds", $Y, $M, $D, $h, $m, $s;
|
|
$newname .= "_$script_name";
|
|
$newname .= ".txt";
|
|
$newname =~ tr/A-Z/a-z/;
|
|
|
|
#Check if a file already exists with the same name.. it shouldn't because the time and
|
|
#date stamp should be different
|
|
if (-e "$oracle_directory\\$newname")
|
|
{
|
|
print "\n *** $newname already exists! ***\n";
|
|
next;
|
|
}
|
|
|
|
#write out the new file name with .txt extension
|
|
rename ($_, "$oracle_directory\\$newname") and print "-> $newname\n";
|
|
}
|
|
|
|
# MML commands ...
|
|
for (@mml_files)
|
|
{
|
|
($Y,$M,$D,$h,$m,$s) = m/(\d+)_(\d+)_(\d+)_(\d+)h(\d+)m(\d+)s/;
|
|
|
|
# Open MML file with "run" in the file name and assign the first line
|
|
# inside the file to $x
|
|
open(MMLFILE, "$_") or die "Couldn't open $_ for reading \n";
|
|
$x = <MMLFILE>;
|
|
close(MMLFILE);
|
|
|
|
# remove the space before the " Command" in the first line of the
|
|
# .EP3 file
|
|
$x =~ s/^.*(Command)/$1/;
|
|
|
|
# confirm that it actually is a ROUNDUPMAST Command log by
|
|
# confirming that drmclien.exe is actually being called
|
|
# NOTE: IF WE EVER CHANGE THE NAME OF THE CLIENT FOR
|
|
# ROUNUPMAST V1, WE NEED TO UPDATE THIS SECTION OF THE CODE
|
|
if ($x =~ m/drmclien.exe -c ([^:; ]+) ([^:";]+)/)
|
|
{
|
|
($NEname, $command) = $x =~ m/drmclien.exe -c ([^:; ]+) ([^:";]+)/;
|
|
$command =~ tr/ /_/;
|
|
}
|
|
|
|
|
|
next if (!$command);
|
|
|
|
# get parameters
|
|
(@parameters) = $x =~ m/\b([a-zA-Z0-9.'+-]+=[^,;_+]+)/g;
|
|
$params = "";
|
|
foreach $p (@parameters)
|
|
{
|
|
$p =~ s/[%\\"*]//g;
|
|
last if (length "$params,$p" > 40);
|
|
$params .= ",$p";
|
|
}
|
|
|
|
# remove initial comma
|
|
$params =~ s/^,//;
|
|
|
|
# create the new file name
|
|
$newname = sprintf "%04d%02d%02d_%02dh%02dm%02ds", $Y, $M, $D, $h, $m, $s;
|
|
$newname .= "_$NEname";
|
|
$newname .= "_$command";
|
|
$newname .= "_$params" if ($params);
|
|
$newname .= ".txt";
|
|
$newname =~ tr/A-Z/a-z/;
|
|
|
|
if (-e "$mml_directory\\$newname")
|
|
{
|
|
print "\n *** $newname already exists! ***\n";
|
|
next;
|
|
}
|
|
rename ($_, "$mml_directory\\$newname") and print "-> $newname\n";
|
|
|
|
}
|
|
|
|
|