#!/usr/bin/perl -w
#
# Last updated by gossamer on Fri Sep 12 00:22:17 EST 2003
#

use strict;

#
# User Variables
#

my $CURL_BINARY = "/usr/bin/curl";

#my $PROXY="10.0.0.1";
#my $PROXY_PORT=80;

my $CUSTOMER_NUMBER=12345678;
my $PASSWORD="xxxxxx";

my @accounts = (12345, 67890);

#
# End User Variables
#

print "Wait, finding information ...";

my $BASE_URL = "https://olb.westpac.com.au";
my $POST_URL = "$BASE_URL/asp/login/bsd_lgvalidate.asp";
my $GET_URL = "$BASE_URL/asp/accinfo/bsd_aiacclist.asp";

#my $CURL = "$CURL_BINARY";
my $CURL = "$CURL_BINARY --silent";
#my $CURL = "$CURL_BINARY --silent --proxy $PROXY:$PROXY_PORT";
#my $CURL = "$CURL_BINARY --proxy $PROXY:$PROXY_PORT";

#
# Main
#

system "$CURL --cookie \"IOLBCHECK=IOLBCheckCookie\" -D /tmp/headers -d \"CUS=$CUSTOMER_NUMBER\&PWD=$PASSWORD\" $POST_URL > /dev/null";
print "...";

my $headers = `cat /tmp/headers`;

my ($cookie) = $headers =~ m/^Set-Cookie: USRKEY=([^;]+); /m;

my $output = `$CURL --cookie \"USRKEY=$cookie\" $GET_URL`;
print "...\n\n";
#print $output . "\n\n";
#my $output = `cat bsd_aiacclist.asp`;

foreach my $account (@accounts) {
   
   my $re = qq#<td\\s+align="right">$account</td>\\s+
               <td\\s+align="right">([^<&]+)(&nbsp;)*?(.)</td>\\s+
               <td\\s+align="right">([^<&]+)(&nbsp;)*?(.)</td>#;

   if ($output =~ m#$re#isx) {
      print "Account: $account\n   Balance:   $3$1\n   Available: $6$4\n\n";
   } else { 
      print "ERROR:  Unable to find balance and available informaton for account $account.\n";
  }
}

#
# Ende.
#