Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 36 deletions

diff --git a/contrib/perl5/eg/cgi/RunMeFirst b/contrib/perl5/eg/cgi/RunMeFirst
deleted file mode 100755
index 018b11b..0000000
--- a/contrib/perl5/eg/cgi/RunMeFirst
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/local/bin/perl
-
-# Make a world-writeable directory for saving state.
-$ww = 'WORLD_WRITABLE';
-unless (-w $ww) {
-    $u = umask 0;
-    mkdir $ww, 0777;
-    umask $u;
-}
-
-# Decode the sample image.
-for $uu (<*.uu>) {
-    unless (open UU, "<$uu") { warn "Can't open $uu: $!\n"; next }
-    while (<UU>) {
-        chomp;
-	if (/^begin\s+\d+\s+(.+)$/) {
-	    $bin = $1;
-	    last;
-	}
-    }
-    unless (open BIN, "> $bin") { warn "Can't create $bin: $!\n"; next }
-    binmode BIN;
-    while (<UU>) {
-	chomp;
-	last if /^end/;
-	print BIN unpack "u", $_;
-    }
-    close BIN;
-    close UU;
-}
-
-# Create symlinks from *.txt to *.cgi for documentation purposes.
-foreach (<*.cgi>) {
-    ($target = $_) =~ s/cgi$/txt/i;
-    symlink $_, $target unless -e $target;
-}