/[pxelator]/lib/PXElator/httpd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/httpd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC revision 140 by dpavlin, Tue Aug 4 17:16:11 2009 UTC
# Line 98  $SIG{CHLD} = 'IGNORE'; Line 98  $SIG{CHLD} = 'IGNORE';
98    
99  sub start_stop {  sub start_stop {
100          my $daemon = shift;          my $daemon = shift;
101          my $pid = $pids->{$daemon};          my $pid = $pids->{$daemon} || 'not started';
102    
103          warn "start_stop $daemon $pid\n";          warn "start_stop $daemon $pid\n";
104    
# Line 136  my $redirect = qq|HTTP/1.1 302 Found\r\n Line 136  my $redirect = qq|HTTP/1.1 302 Found\r\n
136  sub get_request {  sub get_request {
137          my ( $client, $path, $param ) = @_;          my ( $client, $path, $param ) = @_;
138    
139            server->refresh;
140    
141          warn "get_request $path ", $param ? dump( $param ) : '', "\n";          warn "get_request $path ", $param ? dump( $param ) : '', "\n";
142    
143          if ( my $found = static( $client,$path ) ) {          if ( my $found = static( $client,$path ) ) {
# Line 240  chain http://$server::ip:$httpd::port/ Line 242  chain http://$server::ip:$httpd::port/
242  }  }
243    
244  use browser;  use browser;
245    use network;
246    
247  sub start {  sub start {
248    
249            warn 'tap ', network::tap();
250    
251          my $server = IO::Socket::INET->new(          my $server = IO::Socket::INET->new(
252                          Proto     => 'tcp',                          Proto     => 'tcp',
253                          LocalPort => $httpd::port,                          LocalPort => $httpd::port,
Legend:
Removed from v.118  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.26