comparison skillbot.pl @ 12:d9526ab0c6bb

Fixing the handling of df's weird API key
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 06 Dec 2008 16:00:48 +0000
parents 277d818f5496
children d9a9bcd44c2e
comparison
equal deleted inserted replaced
11:277d818f5496 12:d9526ab0c6bb
344 344
345 while (<FF>) { 345 while (<FF>) {
346 chomp; 346 chomp;
347 next if (/^#/); 347 next if (/^#/);
348 348
349 if (/^([0-9]+)\s+([a-f0-9]{64})\s+(\S+)(\s+(.+))?/i) { 349 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)(\s+(.+))?/i) {
350 my $uid = $1; 350 my $uid = $1;
351 my $key = uc($2); 351 my $key = $2;
352 my $nick = $3; 352 my $nick = $3;
353 my $c = $5; 353 my $c = $5;
354 354
355 if (! $frienduids{$uid}) { 355 if (! $frienduids{$uid}) {
356 my $api = WebService::EveOnline->new( { user_id => $uid, 356 my $api = WebService::EveOnline->new( { user_id => $uid,