| … | |
… | |
| 57 | $uri =~ s%^http://[^/]*%%i; # just in case |
57 | $uri =~ s%^http://[^/]*%%i; # just in case |
| 58 | |
58 | |
| 59 | cf::debug "HTTP GET: $self->{id} $uri"; |
59 | cf::debug "HTTP GET: $self->{id} $uri"; |
| 60 | |
60 | |
| 61 | if ($uri =~ m%^/([0-9a-f]+)(M?)$%) { # faces |
61 | if ($uri =~ m%^/([0-9a-f]+)(M?)$%) { # faces |
| 62 | my $want_meta = $1; |
62 | my $want_meta = $2; |
| 63 | my $idx = $cf::FACEHASH{pack "H*", $2}; |
63 | my $idx = $cf::FACEHASH{pack "H*", $1}; |
| 64 | |
64 | |
| 65 | $idx |
65 | $idx |
| 66 | or do { $self->respond ("404 illegal face name"), next }; |
66 | or do { $self->respond ("404 illegal face name"), next }; |
| 67 | |
67 | |
| 68 | if ($req =~ /if-none-match/i) { # dirtiest hack evar |
68 | if ($req =~ /if-none-match/i) { # dirtiest hack evar |
