Author: sparky
Date: Mon Jul 12 00:46:56 2010
New Revision: 11649
Modified:
toys/rsget.pl/RSGet/Get.pm
Log:
- added tmpdir setting - directory where .cookie are stored
Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm (original)
+++ toys/rsget.pl/RSGet/Get.pm Mon Jul 12 00:46:56 2010
@@ -21,6 +21,10 @@
allowed => qr/\d/,
type => "NUMBER",
},
+ tmpdir => {
+ desc => "Directory where temporary files (cookies and dumps)
are stored.",
+ type => "PATH",
+ },
);
BEGIN {
@@ -41,6 +45,9 @@
my $n = $cookies{ $c }++;
local $_ = ".cookie.$c.$n.txt";
+ if ( my $dir = setting( "tmpdir" ) ) {
+ $_ = $dir . "/" . $_;
+ }
unlink $_ if -e $_;
return _cookie => $_;
}
@@ -356,7 +363,10 @@
return;
}
- my $file = sprintf "dump.$self->{_id}.%.4d.$ext",
+ my $dir = setting( "tmpdir" ) || "";
+ $dir .= "/" if $dir;
+
+ my $file = sprintf "${dir}dump.$self->{_id}.%.4d.$ext",
++$self->{_last_dump};
open my $f_out, '>', $file;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
