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