1 files changed, 22 insertions, 0 deletions

diff --git a/other/ssharp/sharpterms.pl b/other/ssharp/sharpterms.pl
new file mode 100644
index 0000000..8dccac5
--- /dev/null
+++ b/other/ssharp/sharpterms.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+# xterm popup daemon for ssharp (C) 2002 Stealth
+
+my %xterms = ();
+
+for (;;) {
+        opendir D, "/tmp" or die "$!";
+        my @allfiles = readdir D;
+        closedir D;
+        @allfiles = grep /ssharp-/, @allfiles;
+
+        foreach (@allfiles) {
+                next if defined $xterms{$_};
+                $xterms{$_} = 1;
+                # TAKE CARE: this is a security vulnerability (locally)
+                system("xterm -T $_ -e /usr/local/bin/mss-client /tmp/$_ &");
+                sleep(1);
+        }
+}
+
+