Changeset 42430 for trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl

Timestamp:

Mar 23, 2023, 2:05:41 PM (3 years ago)

Author:

eugene

Message:

adding advance task, fix the logs

File:

• trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl (modified) (3 diffs)

trunk/tools/eam/rawfix.20230221/src/get_md5s_instances.pl

@@ -11 +11 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-# USAGE: get_md5s_instances.pl --hostname (hostname) --input (file)
+# USAGE: get_md5s_instances.pl --hostname (hostname) --input (file) --stage (v0,v1,etc)
 
-my ($myhost, $input) = &parse_cmdopts;
+my ($myhost, $input, $stage) = &parse_cmdopts;
 
 # check that we are running this script on 'myhost'
@@ -23 +23 @@
 
 my $output = $input;
-$output =~ s/inst/md5s/;
+$output =~ s/inst.$stage/md5s/;
 
 if ($output eq $input) { die "output file ($output) matches input file ($input)\n"; }
@@ -84 +84 @@
 sub parse_cmdopts {
 
-    my ($myhost, $input);
-    GetOptions( 'hostname=s' => \$myhost, 'input=s' => \$input) || pod2usage(2);
+    my ($myhost, $input, $stage);
+    GetOptions( 'hostname=s' => \$myhost, 'input=s' => \$input, 'stage=s' => \$stage) || pod2usage(2);
     
     pod2usage( -msg => "Provide the input list with --input", -exitval => 2) unless defined $input;
     pod2usage( -msg => "Define the host machine with --hostname", -exitval => 2) unless defined $myhost;
+    pod2usage( -msg => "Define the stage (v0, v1, etc) with --stage", -exitval => 2) unless defined $stage;
     
-    return ($myhost, $input);
+    return ($myhost, $input, $stage);
 }