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.