Merge branch 'master' of https://github.com/tech-server/tgmanage

1 files changed, 15 insertions, 0 deletions

diff --git a/web/stream.gathering.org/streamstats-fast.pl b/web/stream.gathering.org/streamstats-fast.pl
new file mode 100755
index 0000000..f4caa24
--- /dev/null
+++ b/web/stream.gathering.org/streamstats-fast.pl
@@ -0,0 +1,15 @@
+#! /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);