projects / xhome.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
epic-ukulele
[xhome.git] / TestXfhem / bin / sysal-stub.pl
diff --git a/TestXfhem/bin/sysal-stub.pl b/TestXfhem/bin/sysal-stub.pl
new file mode 100755 (executable)
index 0000000..40b0e85
--- /dev/null
+++ b/TestXfhem/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, ">/tmp/sysal-stub.out");
+while (my $line = <STDIN>) {
+       print OUT "$line\n";
+       print "$line\n";
+}
+
+print "</body></html>\n";
+
xhome