#!/usr/bin/perl -w

###### Example to show what DOESN'T work

use v5.10;
use WWW::Mechanize;


# get credentials for site from file name ./.creds-pcplus
open(CREDS,'<.creds-pcplus') or die;
$/=undef;
$_=<CREDS>;
close(CREDS);
($user)=/^user=(.*)/mi or die;
($pass)=/^pass=(.*)/mi or die;


$ua='Mozilla/5.0 (X11; Linux i686; rv:24.0) Gecko/20100101 Firefox/24.0';
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'}=0; # bug workaround


$www=WWW::Mechanize->new(agent=>$ua, stack_depth=>2, autocheck=>0);


$www->get('https://www.pcplus.ca/');


$www->submit_form(
  form_id	=>'headerSigninForm',
  fields	=>{'signinEmail'=>$user,'signinPassword'=>$pass},
);
die $www->status if $www->status!=200;


say $www->content;


# woopsie, noa logina
