| … | |
… | |
| 102 | } |
102 | } |
| 103 | } |
103 | } |
| 104 | |
104 | |
| 105 | push @body, "</body></html>"; |
105 | push @body, "</body></html>"; |
| 106 | |
106 | |
| 107 | $self->respond ("200 OK", (join "", @body), "Content-Type: text/html\015\012"); |
107 | $self->respond ("200 OK", (join "", @body), "content-type: text/html\015\012"); |
| 108 | } elsif ($uri eq "/ws" && defined &ext::ws::server) { |
108 | } elsif ($uri eq "/ws" && defined &ext::ws::server) { |
| 109 | &ext::ws::server ($self->{id}, $self->{fh}, "$req\015\012\015\012$self->{rbuf}"); |
109 | &ext::ws::server ($self->{id}, $self->{fh}, "$req\015\012\015\012$self->{rbuf}"); |
| 110 | |
110 | |
| 111 | %$self = (); |
111 | %$self = (); |
|
|
112 | |
|
|
113 | } elsif ($uri eq "/") { |
|
|
114 | $self->respond ("302 hack", "", "location: http://cvs.schmorp.de/deliantra/html5client/client.html\015\012"); |
| 112 | |
115 | |
| 113 | } else { |
116 | } else { |
| 114 | $self->respond ("404 not found"); |
117 | $self->respond ("404 not found"); |
| 115 | } |
118 | } |
| 116 | } |
119 | } |
