r30333 - /trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors

antonio-guest at users.alioth.debian.org antonio-guest at users.alioth.debian.org
Sat Jan 31 16:56:39 UTC 2009


Author: antonio-guest
Date: Sat Jan 31 16:56:36 2009
New Revision: 30333

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30333
Log:
lintian clean now

Modified:
    trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors

Modified: 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=30333&op=diff
==============================================================================
--- trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors (original)
+++ trunk/libfinance-bank-ie-permanenttsb-perl/debian/patches/fix-pod-errors Sat Jan 31 16:56:36 2009
@@ -1,5 +1,126 @@
-fix some pod errors to make lintian happy
---- libfinance-bank-ie-permanenttsb-perl/ptsb	2009-01-31 16:22:53.000000000 +0000
+patch to fix pod errors and make lintian happy
+
+diff -ur libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm git/lib/Finance/Bank/IE/PermanentTSB.pm
+--- libfinance-bank-ie-permanenttsb-perl/lib/Finance/Bank/IE/PermanentTSB.pm	2009-01-31 16:44:47.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;
+@@ -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 {
+@@ -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
+diff -ur libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm git/lib/ptsb_util.pm
+--- libfinance-bank-ie-permanenttsb-perl/lib/ptsb_util.pm	2009-01-31 16:44:47.000000000 +0000
++++ git/lib/ptsb_util.pm	2009-01-31 16:31:12.000000000 +0000
+@@ -2,7 +2,7 @@
+ 
+ =head1 NAME
+ 
+-ptsb_util
++ptsb_util - functions used by the Finance::Bank::IE::PermanentTSB CLI
+ 
+ This is a package which contains a set of functions used by the CLI utility.
+ 
+diff -ur libfinance-bank-ie-permanenttsb-perl/ptsb git/ptsb
+--- libfinance-bank-ie-permanenttsb-perl/ptsb	2009-01-31 16:44:47.000000000 +0000
 +++ git/ptsb	2009-01-31 16:05:51.000000000 +0000
 @@ -56,18 +56,17 @@
  
@@ -51,154 +172,3 @@
  =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




More information about the Pkg-perl-cvs-commits mailing list