r30332 - in /trunk/libfinance-bank-ie-permanenttsb-perl/debian: control patches/ patches/fix-pod-errors patches/series rules
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Sat Jan 31 16:27:21 UTC 2009
Author: antonio-guest
Date: Sat Jan 31 16:27:18 2009
New Revision: 30332
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30332
Log:
adding a patch to fix pod errors, still unreleased
Added:
trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/
trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors
trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/series
Modified:
trunk/libfinance-bank-ie-permanenttsb-perl/debian/control
trunk/libfinance-bank-ie-permanenttsb-perl/debian/rules
Modified: trunk/libfinance-bank-ie-permanenttsb-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfinance-bank-ie-permanenttsb-perl/debian/control?rev=30332&op=diff
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/control (original)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/control Sat Jan 31 16:27:18 2009
@@ -1,7 +1,7 @@
Source: libfinance-bank-ie-permanenttsb-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7), libtest-mockobject-perl, libdate-calc-perl, libhtml-parser-perl, libwww-mechanize-perl
+Build-Depends: debhelper (>= 7), libtest-mockobject-perl, libdate-calc-perl, libhtml-parser-perl, libwww-mechanize-perl, quilt
Build-Depends-Indep: perl (>= 5.6.0-12)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Antonio Radici <antonio at dyne.org>
Added: trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors?rev=30332&op=file
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors (added)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors Sat Jan 31 16:27:18 2009
@@ -1,0 +1,204 @@
+fix some pod errors to make lintian happy
+--- libfinance-bank-ie-permanenttsb-perl/ptsb 2009-01-31 16:22:53.000000000 +0000
++++ git/ptsb 2009-01-31 16:05:51.000000000 +0000
+@@ -56,18 +56,17 @@
+
+ =head2 Print accounts balance:
+
+-=over 2
++=over
+
+-ptsb [ -F F</path/of/conf/file> ] -b
++=item C<ptsb [ -F F</path/of/conf/file> ] -b>
+
+ =back
+
+ =head2 Print account statement:
+
+-=over 2
++=over
+
+-ptsb [ -F F</path/of/conf/file> ] -s -a c -n <4digits>
+- -f yyyy/mm/dd -t yyyy/mm/dd
++=item C<ptsb [ -F F</path/of/conf/file> ] -s -a c -n <4digits> -f yyyy/mm/dd -t yyyy/mm/dd>
+
+ =back
+
+@@ -90,7 +89,7 @@
+ Please refer to manual page to see how this file is built.
+
+ =item B<-b | --balance>
+-
++
+ print account balance
+
+ =item B<-s | --statement>
+@@ -185,6 +184,8 @@
+
+ =head1 SEE ALSO
+
++=over
++
+ =item * B<Official CPAN page for Finance::Bank::IE::PermanentTSB>
+
+ L<http://search.cpan.org/~pallotron/Finance-Bank-IE-PermanentTSB/lib/Finance/Bank/IE/PermanentTSB.pm>
+@@ -201,6 +202,8 @@
+
+ L<http://search.cpan.org/~pallotron/>
+
++=back
++
+ =head1 AUTHOR
+
+ Angelo "pallotron" Failla - <pallotron at freaknet.org>
+--- libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm 2009-01-31 15:37:10.000000000 +0000
++++ git/lib/ptsb_util.pm 2009-01-31 16:05:51.000000000 +0000
+@@ -293,8 +293,9 @@
+ $cf->{todate});
+
+
+- if(not defined $balance) {
+- exit -1;
++ if($balance->[0]->{accno} eq '') {
++ print "Error while retrieving the content...\n";
++ return;
+ }
+
+ print STDERR Dumper(\$balance) if($cf->{debug});
+@@ -346,7 +347,7 @@
+ );
+
+ if(not defined $statement) {
+- exit -1;
++ return;
+ }
+
+ print STDERR Dumper(\$statement) if($cf->{debug});
+--- libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 15:37:10.000000000 +0000
++++ git/lib/Finance/Bank/IE/PermanentTSB.pm 2009-01-31 16:05:51.000000000 +0000
+@@ -102,8 +102,6 @@
+
+ =head2 C<$boolean = login($config_ref)> - B<private>
+
+-=over
+-
+ B<This is a private function used by other function within the module.
+ You don't need to call it directly from you code!>
+
+@@ -117,9 +115,8 @@
+ persist on your filesystem until you reboot your machine (and /var/tmp
+ get clean at boot time).
+
+-=back
+-
+ =cut
++
+ sub login {
+ my $self = shift;
+ my $config_ref = shift;
+@@ -233,10 +230,12 @@
+ "this 3 times in a row or you account will be locked!");
+ return undef;
+ }
++ print $content if($config_ref->{debug});
+ set_pan_fields($agent, $config_ref);
+ $res = $agent->submit();
+ $agent->save_content("./step2_pan_result.html")
+ if $config_ref->{debug};
++ print $content if($config_ref->{debug});
+ }
+
+ return 1;
+@@ -245,8 +244,6 @@
+
+ =head2 C<set_pan_fields($config_ref)> - B<private>
+
+-=over
+-
+ B<This is a private function used by other function within the module.
+ You don't need to call it directly from you code!>
+
+@@ -270,8 +267,6 @@
+
+ This function doesn't return anything.
+
+-=back
+-
+ =cut
+
+ sub set_pan_fields {
+@@ -308,8 +303,6 @@
+
+ =head2 C<@accounts_balance = check_balance($config_ref)> - B<public>
+
+-=over
+-
+ This function require the configuration hash reference as argument.
+ It returns an reference to an array of hashes, one hash for each account.
+ In case of error it return undef;
+@@ -318,7 +311,7 @@
+ =over
+
+ =item * 'accname': account name, i.e. "Switch Current A/C".
+-
++
+ =item * 'accno': account number. An integer representing the last 4 digits of the
+ account.
+
+@@ -352,8 +345,6 @@
+ );
+ }
+
+-=back
+-
+ =cut
+
+ sub check_balance {
+@@ -367,8 +358,6 @@
+
+ $self->login($config_ref) or return undef;
+
+- $res = $agent->get($BASEURL . '/online/Account.aspx');
+- print $agent->content if($config_ref->{debug});
+ my $p = HTML::TokeParser->new(\$agent->content());
+ my $i = 0;
+ my @array;
+@@ -406,8 +395,6 @@
+ =head2 C<@account_statement = account_statement($config_ref, $acc_type,
+ $acc_no, $from, $to, [$type])> - B<public>
+
+-=over
+-
+ This function requires 4 mandatory arguments, the 5th is optional.
+
+ =over
+@@ -442,8 +429,6 @@
+
+ Undef is returned in case of error;
+
+-=back
+-
+ =cut
+
+ sub account_statement {
+@@ -741,18 +726,14 @@
+
+ =head1 MODULE HOMEPAGES
+
+-=item * Project homepage on Google code (with SVN repository):
+-
+ =over
+
+-L<http://code.google.com/p/finance-bank-ie-permanenttsb>
++=item * Project homepage on Google code (with SVN repository):
+
+-=back
++L<http://code.google.com/p/finance-bank-ie-permanenttsb>
+
+ =item * Project homepage on CPAN.org:
+
+-=over
+-
+ L<http://search.cpan.org/~pallotron/Finance-Bank-IE-PermanentTSB/>
+
+ =back
Added: trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/series?rev=30332&op=file
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/series (added)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/series Sat Jan 31 16:27:18 2009
@@ -1,0 +1,1 @@
+fix-pod-errors
Modified: trunk/libfinance-bank-ie-permanenttsb-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfinance-bank-ie-permanenttsb-perl/debian/rules?rev=30332&op=diff
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/rules (original)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/rules Sat Jan 31 16:27:18 2009
@@ -1,11 +1,13 @@
#!/usr/bin/make -f
+include /usr/share/quilt/quilt.make
+
build: build-stamp
-build-stamp:
+build-stamp: $(QUILT_STAMPFN)
dh build
touch $@
-clean:
+clean: unpatch
dh $@
install: install-stamp
More information about the Pkg-perl-cvs-commits
mailing list