source:
other-projects/playing-in-the-street/summer-2013/trunk/Playing-in-the-Street-WPF/Content/Web/mrdoob-three.js-4862f5f/utils/servers/perl_server.sh@
28897
| Last change on this file since 28897 was 28897, checked in by , 10 years ago | |
|---|---|
| File size: 144 bytes | |
| Line | |
|---|---|
| 1 | #!/bin/sh |
| 2 | |
| 3 | cd `dirname $0`/../../ |
| 4 | perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 |
| 5 | +? "./$1 |" : $1) if /^GET \/(.*) / })' |
Note:
See TracBrowser
for help on using the repository browser.
