You are not logged in.
VDR Portal »
Linux »
Betriebssystem » SuSE »Dear visitor, welcome to VDR Portal. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Wednesday, June 8th 2005, 11:04pm
Thursday, June 9th 2005, 5:14pm
This post has been edited 1 times, last edit by "Habib" (Jun 9th 2005, 5:15pm)
Monday, July 4th 2005, 11:24am
Quoted
Hat hier jemand eine Ahnung, wieso das mitgelieferte Perl von der SuSE 9.3 defekt ist, bzw. wo dort das Problem liegt?
Monday, July 4th 2005, 11:59am
|
Source code |
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 28 29 30 31 32 33 34 35 36 37 38 |
# install an initial watcher
Event->io(
fd => $socket,
cb => sub {
dumper($socket);
# accept client
warn "Schritt 0";
my $client=$socket->accept;
warn "Schritt 1";
warn "[Error] Cannot connect http to new client.\n" and return unless $client;
warn "Schritt 2";
$client->autoflush;
warn "Schritt 3";
# make "channel" number
my $channel=++$channels;
warn "Schritt 4";
$obj->{STATUS}->{gettext('Connects:')}++;
warn "Schritt 5";
# install a communicator
Event->io(
fd => $client,
poll => 'r',
cb => sub {
warn "Schritt 6";
my $watcher = shift;
warn "Schritt 7";
# read new line and report it
my $handle=$watcher->w->fd;
warn "Schritt 8";
my $data = $obj->parseRequest($handle);
warn "Schritt 9";
unless($data) {
$watcher->w->cancel;
$handle->close();
undef $watcher;
return 1;
}
warn "Schritt ...";
|
Monday, July 4th 2005, 12:18pm
Tuesday, July 5th 2005, 9:29am
Thursday, August 11th 2005, 5:04pm
Friday, August 12th 2005, 12:39am
Es gibt nichts neues, bei mir funktioniert alles mit der "Habib - Methode" = Methode 2.
) Ist das das Richtige?
Wednesday, May 22nd 2013, 3:37pm
Go to the top of the page
