You're viewing old version number 1. - Current version

Logging into Junco app with LWP

#perl
#programming

sub test_log_into_account {
    my $email = shift;
    my $password = shift;

    my $function = "login";
    my $domain   = Config::get_value_for("email_host");
    my $prog     = Config::get_value_for("cgi_app");

    my $url = "http://$domain" . "$prog/$function";
    my $browser = LWP::UserAgent->new;
    my $response = $browser->post( $url,
        [
            'password'      => $password,
            'email'         => $email
        ],
    );
    # print Dumper $response;
    # print Dumper $response->header('set-cookie');
    my @cookies= $response->header('set-cookie');

    foreach my $c (@cookies) {
        my @a = split(/;/, $c);
        my @b = split(/=/, $a[0]);
        print "name=$b[0]\n";
        print "value=$b[1]\n\n";
    }
}

From JR's : articles
81 words - 801 chars
created on Oct 15, 2013 at 12:45:48 pm - #
source - versions