$ua->timeout(10);
$ua->env_proxy;
$ua->cookie_jar( {} );
-$ua->get("${url}twbkwbis.P_WWWLogin") or die "$!";
+$response = $ua->get("${url}twbkwbis.P_WWWLogin") or die "$!";
$response = $ua->post("${url}twbkwbis.P_ValLogin", { sid => $opts{SID}, PIN => $opts{PIN} }) or die "$!";
+my %hiddenjunk;
+{
+ my $content = $response->content;
+ while($content =~ /<input type="hidden" name="(.*?)" value="(.*?)">/gi) {
+ $hiddenjunk{$1} = $2;
+ }
+}
+$hiddenjunk{usage_btn} = "Continue";
+$response = $ua->post("${url}twbkwbis.P_FirstMenu", \%hiddenjunk);
+die $response->status_line unless $response->is_success;
+
$response = $ua->get("${url}bwskflib.P_SelDefTerm"); # Valid terms
die $response->status_line unless $response->is_success;
my @terms = grep {s/^<option value="([^"]*)">.*/$1/i} (split( /\r?\n/, $response->content)); # "
};
}
}
- $lastrow->[0] =~ s/Cumulative:? *through *//i;
+ $lastrow->[0] =~ s/Cumulative:? *through *//i if($lastrow->[0]);
my $cumulative = { term => capitalize($lastrow->[0]),
gpa => $lastrow->[6],
earned => $lastrow->[3],