T870: Commit-confirm restarts the server even after commit

  - bugfix: show reboot shows now systemd scheduled and commit-confirm scheduled reboots.

2 files changed, 49 insertions, 9 deletions

diff --git a/debian/changelog b/debian/changelog
index 2e0fd2e..1e1d6ca 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+vyatta-op (0.14.0+vyos2+current7) unstable; urgency=medium
+
+  * T870: Commit-confirm restarts the server even after commit
+    
+    - show reboot now also show if scheduled via commit-confirm or systemd.
+
+ -- hagbard <vyosdev@derith.de>  Tue, 09 Oct 2018 16:07:22 -0700 
+
 vyatta-op (0.14.0+vyos2+current6) unstable; urgency=medium
 
   * T588: Remove DNS forwarder restart command in favor if XML interface definition
diff --git a/scripts/vyatta-reboot.pl b/scripts/vyatta-reboot.pl
index 860e3da..93cda4f 100755
--- a/scripts/vyatta-reboot.pl
+++ b/scripts/vyatta-reboot.pl
@@ -33,7 +33,7 @@ use strict;
 use warnings;
 
 my $reboot_job_file = '/var/run/reboot.job';
-
+my $confirm_job_file = '/var/run/confirm.job';
 
 sub parse_at_output {
     my @lines = @_;
@@ -49,18 +49,50 @@ sub parse_at_output {
 }
 
 sub is_reboot_pending {
-
-    if ( ! -f $reboot_job_file) {
-	return (0, '');
-    }
+  ### that won't exist anymore but may be called somewhere else
+  if ( -f $reboot_job_file )
+  {
     my $job = `cat $reboot_job_file`;
     chomp $job;
     my $line = `atq $job`;
-    if ($line =~ /\d+\s+(.*)\sa root$/) {
-	return (1, $1);
-    } else {
-	return (0, '');
+    if ($line =~ /\d+\s+(.*)\sa root$/) 
+    {
+      return (1, $1);
+    }
+    else
+    {
+      return (0, '');
+    }
+  }
+
+  #### comit-confirm creates an at job as well
+  if ( -f $confirm_job_file)
+  { 
+    my $job = `cat $confirm_job_file`;
+    chomp $job;
+    my $line = `atq $job`;
+    if ($line =~ /\d+\s+(.*)\sa root$/)
+    { 
+      return (1, $1);
+    }
+    else
+    { 
+      return (0, '');
+    }
+  }
+  #### an now the systemd job from powrctrl.py
+  my $line = `systemctl status systemd-shutdownd.service`;
+  if ($line =~ /Active: active/)
+  {
+    if($line =~ m/Status:(.*)/)
+    {
+      return (1, $1);
     }
+  }
+  else
+  {
+    return (0, '');
+  }
 }
 
 sub do_reboot {