Opened by BrownWolf at 2003-12-18 04:42
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Hi,
hab nochn Problem. Ich weiss echt nicht woran das liegt aber der Server beendet sich immer mit folgender Fehlermeldung: "Bad file descriptor at xxx.pl line 121"
Undzwar wenn ich folgendes Aufrufe:
Die RestrictToCurrentRoom() Subroutine funktioniert normal auch, blos er gibt halt diesen Error aus.
Warum Bad filedescriptor ?
Was ich noch dazu sagen muss, wenn man als URL http://www.bla.de eingibt wird der Server nicht beendet, nur wenn man XYZ als URL nimmt beendet sich der Server.
Edit: Ich wünsche euch schon mal ein frohes neues Jahr.\n\n
<!--EDIT|BrownWolf|1072886041-->
hab nochn Problem. Ich weiss echt nicht woran das liegt aber der Server beendet sich immer mit folgender Fehlermeldung: "Bad file descriptor at xxx.pl line 121"
Undzwar wenn ich folgendes Aufrufe:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
}elsif($text =~ /^\/img/){ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â my $params = substr($text, 5, length($text)); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â if($params ne "") { Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â if($member{status} < $config{permissions}{img}) { Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â my $info = &createInfo("Du hast keine Berechtigung diesen Befehl zu benutzen."); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â &restrictToCurrentUser($info); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â }else{ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â my $url = Å© if($params =~ m/&url=(.+)\"/); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â $url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex(Å©))/eg; Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â my $template = HTML::Template->new(filename => "../Templates/message/img.htm"); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â $template->param(img => $url, nick => $nickname); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â &restrictToCurrentRoom($template->output()); Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â } Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â }
Die RestrictToCurrentRoom() Subroutine funktioniert normal auch, blos er gibt halt diesen Error aus.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
sub restrictToCurrentRoom { Â Â Â Â my $text = shift(); Â Â Â Â my @rooms = (); Â Â Â Â my @users = &getOnlineUsers(); Â Â Â Â my %info = &loadInfo(); Â Â Â Â my $nickname = lc($info{nick}); Â Â Â Â my $raum = $chatters{$nickname}->{room}; Â Â Â Â foreach my $user(@users) { Â Â Â Â Â Â Â Â $user = lc($user); Â Â Â Â Â Â Â Â my $room = $chatters{$user}->{room}; Â Â Â Â Â Â Â Â if(lc($room) eq lc($raum)) { Â Â Â Â Â Â Â Â my $handle = $chatters{$user}->{client}; Â Â Â Â Â Â Â Â delete $chatters{$user} if(!$handle->send("$text \r")); Â Â Â Â Â Â Â Â } Â Â Â Â } Â Â Â Â &logMessage("[$info{room}] $text"); }
Warum Bad filedescriptor ?
Was ich noch dazu sagen muss, wenn man als URL http://www.bla.de eingibt wird der Server nicht beendet, nur wenn man XYZ als URL nimmt beendet sich der Server.
Edit: Ich wünsche euch schon mal ein frohes neues Jahr.\n\n
<!--EDIT|BrownWolf|1072886041-->
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;