posaune

[projects.git] / Test / xFhem / bin / sysal-stub.pl
diff --git a/Test/xFhem/bin/sysal-stub.pl b/Test/xFhem/bin/sysal-stub.pl

new file mode 100755 (executable)

index 0000000..03f6b95
--- /dev/null
+++ b/Test/xFhem/bin/sysal-stub.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+print "Content-type: text/html\n\n";
+print "<html><body>\n";
+
+
+open (OUT, ">/var/test/sysal-stub.out");
+while (my $line = <STDIN>) {
+       print OUT "$line\n";
+       print "$line\n";
+}
+
+print "</body></html>\n";
+