diff options
Diffstat (limited to 'web/stream.tg13.gathering.org/streamstats-fast.pl')
| -rwxr-xr-x | web/stream.tg13.gathering.org/streamstats-fast.pl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/web/stream.tg13.gathering.org/streamstats-fast.pl b/web/stream.tg13.gathering.org/streamstats-fast.pl deleted file mode 100755 index f4caa24..0000000 --- a/web/stream.tg13.gathering.org/streamstats-fast.pl +++ /dev/null @@ -1,15 +0,0 @@ -#! /usr/bin/perl -use strict; -use warnings; -use POSIX; -use CGI qw(fatalsToBrowser); - -my $port_spec = CGI::param('port'); -my $proto_spec = CGI::param('proto'); -my $audience_spec = CGI::param('audience'); - -print CGI::header(-type=>'image/png'); - -# I'm sure this is really safe -system("/srv/stream.tg13.gathering.org/fix_count.pl | /srv/stream.tg13.gathering.org/streamstats - $port_spec $proto_spec $audience_spec"); -#system("/srv/stream.tg13.gathering.org/streamstats", "/home/techserver/cleaned_datacube.log", $port_spec, $proto_spec, $audience_spec); |