minor fixes

hcooper · Apr 21, 2020 · 99d7e23 · 99d7e23
1 parent 4f17d0f
commit 99d7e23
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/backuppc/hash-to-json.pl b/backuppc/hash-to-json.pl
@@ -1 +1,11 @@
-#!/usr/bin/perl                                                                                                                                                                                                                              # A cli tool I wanted to use outputted a perl hash as a string.                                                                                                                                                                              # This reads it in from stdin, and returns json instead.                                                                                                                                                                                     use JSON;                                                                                                                                                                                                                                    my @lines = <STDIN>;                                                                                                                                                                                                                                                                                                                                                                                                                                                                      my %Status;  # TODO: Unhard-code this.                                                                                                                                                                                                       eval $lines[0]; #TODO: handle multiple lines?                                                                                                                                                                                                                                                                                                                                                                                                                                             my $json = encode_json \%Status;                                                                                                                                                                                                             print $json;
+#!/usr/bin/perl
+# A cli tool I wanted to use outputted a perl hash as a string.
+# This reads it in from stdin, and returns json instead.
+use JSON;
+my @lines = <STDIN>;
+
+my %Status;  # TODO: Unhard-code this.
+eval $lines[0]; #TODO: handle multiple lines?
+
+my $json = encode_json \%Status;
+print $json;
diff --git a/chef_age/chef_age.py b/chef_age/chef_age.py
@@ -1,6 +1,10 @@
 #!/usr/bin/env python3
 
-''' Check the age of a status file chef touches '''
+'''
+Some hosts run chef via cron like this:
+  /usr/bin/chef-solo  && touch /run/chef.last_success
+This check monitors the age of the last_success file.
+'''
 
 import os
 import time