nojhan/weboob-devel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Print cache if empty output of plugin

Browse source 
Bad news : in case of site change, connection to the website every 5min
Good news : The graph will be good
This commit is contained in:
Florent 2012-03-28 14:36:05 +02:00 • committed by Romain Bignon
commit 5bb432cb9a
1 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
contrib/freemobile-munin
View file

@ -142,10 +142,10 @@ EOF
} }
sub fetch { sub fetch {
my @cache_data;
# Check if cache exist and not older than the refresh threshold. # Check if cache exist and not older than the refresh threshold.
if ( open $cache_fh, '<', $cachefile ) { if ( open $cache_fh, '<', $cachefile ) {
my @cache_data = <$cache_fh>; @cache_data = <$cache_fh>;
close $cache_fh or croak "unable to close: $ERRNO"; close $cache_fh or croak "unable to close: $ERRNO";
# File not empty? # File not empty?
@ -158,13 +158,22 @@ sub fetch {
} }
} }
} }
# execute weboob
# Open cache for writing and execute weboob
open $cache_fh, '>', $cachefile
or croak "Failed to open file $cachefile";
open my $data, q(-|), $weboob or croak "Couldn't execute program: $ERRNO"; open my $data, q(-|), $weboob or croak "Couldn't execute program: $ERRNO";
my @lines = <$data>; my @lines = <$data>;
close $data or carp "unable to close: $ERRNO"; close $data or carp "unable to close: $ERRNO";
# If error output, print the cache (if exist) and exit
if ( @cache_data > 0 ) {
if ( @cache_data > 0 ) {
print join q{}, @cache_data[ 1 .. $#cache_data ];
exit 0;
}
exit 1;
}
# Open cache for writing
open $cache_fh, '>', $cachefile
or croak "Failed to open file $cachefile";
print {$cache_fh} time . "\n"; print {$cache_fh} time . "\n";
foreach my $monit (@monitored) { foreach my $monit (@monitored) {