die-michaela
Geocacher
Es gibt mehrere Fehler bei der Installation unter aktive-perl.
Hier ist ein Ausschnitt. Der Rest wird oberhalb leider "abgeschnitten".
Es ist ein Fehler bei der Evaluation von
sub OwnerCount {
my(%owner,%ownercount);
my(@ordered);
my(@result);
my($i);
my(%link);
my($value);
foreach (keys(%found)) {
if(exists $found{$_}->{'Ownerid'}) {
$ownercount{$found{$_}->{'Ownerid'}}++;
$owner{$found{$_}->{'Ownerid'}} = $found{$_}->{'Ownerrealname'};
} else {
$ownercount{$found{$_}->{'Owner'}}++;
messageED(0," Ownerfound.incl: userid for $found{$_}->{'Owner'} \($found
{$_}->{'GCid'}/$found{$_}->{'OCId'}\) not found\r\n",
" Ownerfound.incl: Userid fuer $found{$_}->{'Owner'} \($foun
d{$_}->{'GCid'}/$found{$_}->{'OCId'}\) nicht gefunden\r\n");
}
}
foreach (keys(%ownercount)) {
if(exists $owner{$_}) {
$value = "<a target='_blank' href=\"http://www.geocaching.com/profile/\?
id=$_\">$owner{$_}</a>";
} else {
$value = "$_";
}
$link{$value} = $ownercount{$_};
}
@ordered = pairsort(1,0,%link);
$i=0;
foreach (@ordered) {
$i++;
if($i < 61) {
push(@result,$_);
}
}
return(maketds(0,3,21,5,7,scalar(keys(%found)), @result));
}
OwnerCount();
aufgetreten:
Undefined subroutine &main::messageED called at (eval 19151) line 15.
Hier ist ein Ausschnitt. Der Rest wird oberhalb leider "abgeschnitten".
Es ist ein Fehler bei der Evaluation von
sub OwnerCount {
my(%owner,%ownercount);
my(@ordered);
my(@result);
my($i);
my(%link);
my($value);
foreach (keys(%found)) {
if(exists $found{$_}->{'Ownerid'}) {
$ownercount{$found{$_}->{'Ownerid'}}++;
$owner{$found{$_}->{'Ownerid'}} = $found{$_}->{'Ownerrealname'};
} else {
$ownercount{$found{$_}->{'Owner'}}++;
messageED(0," Ownerfound.incl: userid for $found{$_}->{'Owner'} \($found
{$_}->{'GCid'}/$found{$_}->{'OCId'}\) not found\r\n",
" Ownerfound.incl: Userid fuer $found{$_}->{'Owner'} \($foun
d{$_}->{'GCid'}/$found{$_}->{'OCId'}\) nicht gefunden\r\n");
}
}
foreach (keys(%ownercount)) {
if(exists $owner{$_}) {
$value = "<a target='_blank' href=\"http://www.geocaching.com/profile/\?
id=$_\">$owner{$_}</a>";
} else {
$value = "$_";
}
$link{$value} = $ownercount{$_};
}
@ordered = pairsort(1,0,%link);
$i=0;
foreach (@ordered) {
$i++;
if($i < 61) {
push(@result,$_);
}
}
return(maketds(0,3,21,5,7,scalar(keys(%found)), @result));
}
OwnerCount();
aufgetreten:
Undefined subroutine &main::messageED called at (eval 19151) line 15.
ps: