Munin contributed plugins

    Log::Log4perl::init( \$loggerconf );

    our $logger = Log::Log4perl->get_logger($ACCT);

} else {

}

my $lastread;

            push @save_vector, $_ . '?' . $hashref->{$_};

        }

            "Saving Data (LastRead is " . localtime($lastread) . "\n" )

          if $CAN_LOG;

        # Data is stale

        print "# Data is " . ( time - $lastread ) . " seconds old\n";

          if $CAN_LOG;

        if ( exists $hashref->{backoff} ) {

                # We're in a back-off period

                print "# Back-off in effect\n";

                exit 0;

            }

            else {

                # We've just come out of a back-off period

                print "# Back-off ends\n";

                delete $hashref->{backoff};

            }

        }

            # back-off for 24 hours.

            print "# Starting Back-Off\n";

            $hashref->{backoff} = time + ( 24 * 60 * 60 );

                "Backing off until " . localtime( $hashref->{backoff} ) . "\n" )

              if $CAN_LOG;

            save_data( $hashref, 0 );

        }

        print "# REFRESHING DATA\n";

        my $temphash;

        eval {

            zenus::login( $USER, $PASS );

    }

    else {

        print "# Using existing data\n";

    }

    save_data( $hashref, 1 ) if $force_save;

    return $hashref;