More changes. Lawl.

1 files changed, 18 insertions, 0 deletions

diff --git a/web/nms-public.gathering.org/weathermap.pl b/web/nms-public.gathering.org/weathermap.pl
new file mode 100755
index 0000000..41aca39
--- /dev/null
+++ b/web/nms-public.gathering.org/weathermap.pl
@@ -0,0 +1,18 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+use CGI;
+use File::Copy;
+
+my $cgi = CGI->new;
+my $img_filename = "/root/tgmanage/web/nms-public.gathering.org/weathermap.png";
+
+# this must be done for windows
+binmode STDOUT;
+	
+# flush headers
+$|=1;
+	
+# print the image
+print $cgi->header(-type=>'image/png; charset=utf-8', -refresh=>'10; weathermap.pl');
+copy "$img_filename", \*STDOUT;