/[Sack]/trunk/lib/Sack/Server/HTTP.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 /trunk/lib/Sack/Server/HTTP.pm

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

revision 215 by dpavlin, Sat Nov 21 15:55:24 2009 UTC revision 216 by dpavlin, Sun Nov 22 20:36:53 2009 UTC
# Line 14  sub request { Line 14  sub request {
14    
15          my $request = <$client>;          my $request = <$client>;
16    
17          warn "WEB << $request\n" if $debug;          warn "WEB << $request" if $debug;
18    
19          if ($request =~ m{^GET (/.*) HTTP/1.[01]}) {          if ($request =~ m{^GET (/.*) HTTP/1.[01]}) {
20                  my $method = $1;                  my $method = $1;
# Line 29  sub request { Line 29  sub request {
29                  if ( my $path = static( $client,$1 ) ) {                  if ( my $path = static( $client,$1 ) ) {
30                          warn "WEB >> $path" if $debug;                          warn "WEB >> $path" if $debug;
31                  } elsif ( $callback->( $client, $method, $param ) ) {                  } elsif ( $callback->( $client, $method, $param ) ) {
32                          warn "WEB callback $path";                          warn "WEB callback $method";
33                  } else {                  } else {
34                          print $client "HTTP/1.0 500 No method\r\n";                          print $client "HTTP/1.0 500 No method\r\n";
35                  }                  }
Legend:
Removed from v.215  
changed lines
  Added in v.216
  ViewVC Help
Powered by ViewVC 1.1.26