|
Lines 29-34
Link Here
|
| 29 |
use Digest::MD5; |
29 |
use Digest::MD5; |
| 30 |
use Getopt::Long; |
30 |
use Getopt::Long; |
| 31 |
use Time::HiRes; |
31 |
use Time::HiRes; |
|
|
32 |
if ($RRDs::VERSION >= 1.3) { use Encode; } |
| 32 |
|
33 |
|
| 33 |
my $graph_time= Time::HiRes::time; |
34 |
my $graph_time= Time::HiRes::time; |
| 34 |
my $DEBUG = 0; |
35 |
my $DEBUG = 0; |
|
Lines 851-856
Link Here
|
| 851 |
} |
852 |
} |
| 852 |
print "\n\nrrdtool \"graph\" \"", |
853 |
print "\n\nrrdtool \"graph\" \"", |
| 853 |
join ("\"\n\t\"",@complete), "\"\n" if $DEBUG; |
854 |
join ("\"\n\t\"",@complete), "\"\n" if $DEBUG; |
|
|
855 |
|
| 856 |
# Since version 1.3 rrdtool uses libpango which needs its input |
| 857 |
# as utf8 string. So we assume that every input is in latin1 |
| 858 |
# and decode it to perl's internal representation and then to utf8. |
| 859 |
if ( $RRDs::VERSION >= 1.3 ) { |
| 860 |
@complete = map { |
| 861 |
$_ = encode("utf8", (decode("latin1", $_))); |
| 862 |
} @complete; |
| 863 |
} |
| 854 |
|
864 |
|
| 855 |
# Make sure directory exists |
865 |
# Make sure directory exists |
| 856 |
munin_mkdir_p ($picdirname, 0777); |
866 |
munin_mkdir_p ($picdirname, 0777); |
