From 600e1ad4ae42a8800527660038b74eaedc13a958 Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Mon, 13 Apr 2015 19:18:41 -0500 Subject: [PATCH] RT#18834: Cacti integration [added thaw/decode] --- FS/FS/part_export/cacti.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/FS/FS/part_export/cacti.pm b/FS/FS/part_export/cacti.pm index abeb5e4d7..740be25f0 100644 --- a/FS/FS/part_export/cacti.pm +++ b/FS/FS/part_export/cacti.pm @@ -27,7 +27,9 @@ use FS::cacti_page; use File::Rsync; use File::Slurp qw( slurp ); use File::stat; -use MIME::Base64 qw( encode_base64 ); +use MIME::Base64 qw( decode_base64 encode_base64 ); +use Storable qw(thaw); + use vars qw( %info ); @@ -275,7 +277,8 @@ and stores the generated pages in the database. =cut sub process_graphs { - my ($job,$param) = @_; + my $job = shift; + my $param = thaw(decode_base64(shift)); $job->update_statustext(10); my $cachedir = $FS::UID::cache_dir . '/cacti-graphs/'; -- 2.11.0