diff options
Diffstat (limited to 'rhautoimport.pm')
-rw-r--r-- | rhautoimport.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rhautoimport.pm b/rhautoimport.pm index 588d13b..a0684ce 100644 --- a/rhautoimport.pm +++ b/rhautoimport.pm @@ -134,11 +134,11 @@ sub parse_result } $log .= "rhimportd returned: OK (Cart: " . $cart . ", Cut: " . $cut; - $log .= ", source file: '" . $source_file . "'" if defined($source_file); + $log .= ", source file: '" . $source_file . "'" if(defined($source_file) && $source_file ne ""); $log .= ")\n"; unlink($donefile); - return (0, $log); + return (0, $log, $source_file); } sub import_uri @@ -147,7 +147,7 @@ sub import_uri my %request; $request{'LOGIN_NAME'} = RD_USER; - $request{'SHOW_ID'} = $show_id; + $request{'SHOW_ID'} = int($show_id); $request{'CLEAR_SHOW_CARTS'} = JSON::true; $request{'SOURCE_URI'} = $uri; $request{'SOURCE_FILE_POLICY'} = $file_policy if $file_policy; @@ -188,8 +188,8 @@ sub import_uri } $log .= "import is done ... took " . $duration . " seconds!\n"; - my ($ret, $tmplog) = parse_result($donefile); - return $ret, $log . $tmplog; + my ($ret, $tmplog, $keptfile_uri) = parse_result($donefile); + return $ret, $log . $tmplog, $keptfile_uri; } sub pv_add_note |