Author: sparky
Date: Fri Oct 2 17:26:30 2009
New Revision: 10650
Modified:
toys/rsget.pl/RSGet/Curl.pm
toys/rsget.pl/RSGet/Processor.pm
toys/rsget.pl/RSGet/Tools.pm
Log:
- add verbose() function
Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm (original)
+++ toys/rsget.pl/RSGet/Curl.pm Fri Oct 2 17:26:30 2009
@@ -90,6 +90,7 @@
map { uri_escape( $_ ) . "=" . uri_escape(
$post->{$_} ) }
sort keys %$post;
}
+ warn "POST( $uri ): $post\n" if verbose( 3 );
$curl->setopt( CURLOPT_POSTFIELDS, $post );
$curl->setopt( CURLOPT_POSTFIELDSIZE, length $post );
}
Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm (original)
+++ toys/rsget.pl/RSGet/Processor.pm Fri Oct 2 17:26:30 2009
@@ -238,7 +238,7 @@
if ( $@ ) {
p "Error(s): $...@\n";
- return undef unless setting("verbose") > 0;
+ return undef unless verbose( 1 );
my $err = $@;
return undef unless $err =~ /line \d+/;
my @p = split /\n/, $processed;
Modified: toys/rsget.pl/RSGet/Tools.pm
==============================================================================
--- toys/rsget.pl/RSGet/Tools.pm (original)
+++ toys/rsget.pl/RSGet/Tools.pm Fri Oct 2 17:26:30 2009
@@ -7,7 +7,7 @@
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(set_rev s2string bignum de_ml hadd hprint p isotime require_prog
- def_settings setting
+ def_settings setting verbose
data_file dump_to_file randomize %getters);
@EXPORT_OK = qw();
@@ -140,6 +140,13 @@
return $main::def_settings{ $name }->[1];
}
+sub verbose
+{
+ my $min = shift;
+ return 1 if setting( "verbose" ) >= $min;
+ return 0;
+}
+
sub dump_to_file
{
my $data = shift;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
