Added a little fortune gateway.

icculus · Sep 8, 2017 · c33e508 · c33e508
1 parent cefd012
commit c33e508
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/gopherspace/fortune b/gopherspace/fortune
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+sub gopher_info {
+    my $str = shift;
+    print("i$str\t\terror.host\t1\r\n");
+}
+
+my @lines = split /^/m, `/usr/games/fortune`;
+gopher_info('');
+gopher_info('');
+foreach (@lines) {
+    chomp;
+    s/\t/    /g;
+    gopher_info($_);
+}
+gopher_info('');
+gopher_info('');
+