#!/usr/bin/perl -w

use WWW::Mechanize;     # Automate website interactions
use strict;             # Enforce declarations

    my (
        $mech,      # www::mechanize obj
        $error_msg  # generic msg holder
        );

    # Create Mech Obj
    $mech = WWW::Mechanize->new() or
                        exit_with_error("Mech Obj create failed: $@");

    # Get login screen
    $mech->get($cfg::params{'TGT_URL'}) or
                exit_with_error("Get URL $cfg::params{'TGT_URL'} failed: $@");

#DEBUG
#$error_msg = $mech->uri();
#print "URI: $error_msg\n";

    # Fill in Login credentials and submit form to website
    $mech->submit_form( fields =>
                                {
                                    username => $cfg::params{'USER'},
                                    password => $cfg::params{'PASSWD'}
                                }
                        );
    if( !$mech->success() )
    {
        exit_with_error("Submit Login form failed: $@");
    }

#DEBUG
#$error_msg = $mech->uri();
#print "URI: $error_msg\n";

    # Should have received Phone/Msg form, so
    # fill in nums(s), msg and submit form to website
    $mech->submit_form( fields =>
                                {
                                    numbers => $cfg::params{'PHONE_NUM'},
                                    message => $cfg::params{'MESSAGE'}
                                }
                        );
    if( !$mech->success() )
    {
        exit_with_error("Submit Message form failed: $@");
    }

#DEBUG
#$error_msg = $mech->uri();
#print "URI: $error_msg\n";

    # Should have got "Confirmation" screen: click Continue button
    $mech->click_button(number => 1);
    if( !$mech->success() )
    {
        exit_with_error("Submit Confirmation form failed: $@");
    }