#!/usr/bin/perl

use strict;
use LWP::UserAgent;

# Todo: read conffile
my $redirect = 'http://www.pdx.edu/';

my $user = 'your PSU Odin ID Here';
my $crypt_pass = crypt ('Your Odin password here', 'LX');

my $ua = LWP::UserAgent->new();
$ua->agent ("Pubnet Autologin");

my $req = HTTP::Request->new (GET => $redirect);
$req->header ('Accept' => 'text/html');

my $res = $ua->request ($req);

if ($res->is_redirect)
  {
    my $loc = $res->header ('Location')
      . '&user=' . $user
      . '&pass=' . $crypt_pass;

    $req = HTTP::Request->new (GET => $loc);
    $ua->request ($req);
    exit 1 unless ($req->is_success);
  }
exit 0;