Development changes: DBG output + don't fork away

diff --git a/upsgraph.pl b/upsgraph.pl
index 4f660902158c975715a696fec3bf325ead762615..3f17d38409199cf128004ac4f26fe57606ee10ee 100755 (executable)
--- a/upsgraph.pl
+++ b/upsgraph.pl
@@ -35,7 +35,7 @@ my $hosts = $UPSGRAPH::hosts;
 
 sub rrd_update(@) {
        my @args = @_;
-
+       print "Updating: ". Dumper(\@_);
        if ($use_rrds == 1) {
                RRDs::update(@args);
                $rrd_result = RRDs::error;
@@ -47,7 +47,7 @@ sub rrd_update(@) {
 sub rrd_graph(@) {
        my @args = @_;
        my @rrd_out = ();
-
+       print "Graphing: " . Dumper(\@_);
        if ($use_rrds == 1) {
                @rrd_out = RRDs::graph(@args);
                $rrd_result = RRDs::error;
@@ -93,6 +93,7 @@ sub rrdcreate(@) {
        RRDs::create(@cmd);
        if (RRDs::error) {
                print "Error while creating: " . RRDs::error . "\n";
+               print Dumper(\@cmd);
                exit 1;
        }
 }
@@ -415,11 +416,11 @@ foreach my $host (@$hosts) {
        }
 }
 
-my $child = fork();
-
-die "fork failed!" if (!defined($child));
-
-exit 0 if ($child != 0);
+#my $child = fork();
+#
+#die "fork failed!" if (!defined($child));
+#
+#exit 0 if ($child != 0);
 
 while(1) {
        open(HTML, ">${outdir}/index.html.new");