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 = @_;
 
 sub rrd_update(@) {
        my @args = @_;

-
+       print "Updating: ". Dumper(\@_);

        if ($use_rrds == 1) {
                RRDs::update(@args);
                $rrd_result = RRDs::error;
        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 = ();
 sub rrd_graph(@) {
        my @args = @_;
        my @rrd_out = ();

-
+       print "Graphing: " . Dumper(\@_);

        if ($use_rrds == 1) {
                @rrd_out = RRDs::graph(@args);
                $rrd_result = RRDs::error;
        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";
        RRDs::create(@cmd);
        if (RRDs::error) {
                print "Error while creating: " . RRDs::error . "\n";

+               print Dumper(\@cmd);

                exit 1;
        }
 }
                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");
 
 while(1) {
        open(HTML, ">${outdir}/index.html.new");