LWP timeouts

[dan radom]

Can anyone tell me why this timeout isn't working?  The script dies at the time 
interval I set, but it completely ignores the getopts arguments.  If I only use 
LWP::Simple everything works, but the default 3 minute timeout is too long.

Dan

use LWP::Simple qw(get $ua);
$ua->timeout(25);
#use LWP::Simple;
use Getopt::Std;
getopts('o:p', \%args);


if (exists($args{p})) {
  $ENV{http_proxy} = "http://localhost:8080";}

my $outfile = "mutt-rb";
my $file = get("http://redweb.redback.com/directory/dir-pdas.csv";) || die "can't 
download data fi
le.  perhaps you need to use the proxy flag.\n";

@t=(split/\n/,$file);

unless (exists($args{o})) {
  open STDOUT, ">$outfile" or die "can't open $outfile\n";}

foreach (@t) {
    chomp $_;
    my @new=();
    push(@new,$+) while $_=~m{"([^\"\\]*(?:\\.[^\"\\]*)*)",?|([^,]+),?| ,}gx;
    push(@new, undef) if substr($_, -1, 1) eq ",";
    print "alias ";
    my $c=($_=~/.*@.*/);
    my $d=0; my $t="";
    my $email;
    foreach (@new) { if (/.*?@.*/ || $c==0 && $d==2) {$email=$_;
    $t=~s/[ ]+/_/g; last} else {$t="$t".lc($_)." "; $d++}} chop $t; print "$t $email\n"
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]