Doodle3D-Slicer/three.js-master/utils/servers/perl_server.sh

5 lines
144 B
Bash
Raw Normal View History

2015-06-12 15:58:26 +02:00
#!/bin/sh
cd `dirname $0`/../../
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1
+? "./$1 |" : $1) if /^GET \/(.*) / })'