Changeset 43073 for branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_save_server_status.pl

Timestamp:

Sep 3, 2026, 1:56:50 PM (3 weeks ago)

Author:

eugene

Message:

look up rundir from IPP Config system

File:

• branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_save_server_status.pl (modified) (4 diffs)

branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_save_server_status.pl

@@ -16 +16 @@
 my $save_temps;
 my $pstamp_workdir;
+my $pstamp_rundir;
 
 GetOptions(
@@ -32 +33 @@
 }
 
+my $ipprc;
+
 if (!$pstamp_workdir) {
-    my $ipprc = PS::IPP::Config->new(); # IPP Configuration
+    $ipprc = PS::IPP::Config->new(); # IPP Configuration
     $pstamp_workdir = metadataLookupStr($ipprc->{_siteConfig}, 'PSTAMP_WORKDIR');
 }
-
 if (!$pstamp_workdir) {
     warn("Failed to find PSTAMP_WORKDIR in the config\n");
@@ -42 +44 @@
 }
 my $status_file = "$pstamp_workdir/server_status/status.html";
+
+if (!$pstamp_rundir) {
+    if (not defined $ipprc) {
+        $ipprc = PS::IPP::Config->new(); # IPP Configuration
+    }
+    $pstamp_rundir = metadataLookupStr($ipprc->{_siteConfig}, 'PSTAMP_RUNDIR');
+}
+if (!$pstamp_rundir) {
+    warn("Failed to find PSTAMP_RUNDIR in the config\n");
+    exit($PS_EXIT_CONFIG_ERROR);
+}
 
 my ($sec, $min, $hour, $mday, $month, $year) = gmtime;
@@ -61 +74 @@
     $year, $month, $mday, $hour, $min, $sec;
 
-my $command = "pstamp_server_status --workdir $pstamp_workdir > $file";
+my $command = "pstamp_server_status --workdir $pstamp_workdir --rundir $pstamp_rundir > $file";
 #my $command = "pstamp_server_status > $file";
 my  ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =