1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-13 03:03:15 +00:00
freebsd-ports/games/gnarr/files/patch-ab
Peter Pentchev 347fe2f8a8 gnarr is a progrm for generating battle cries, suitable for inclusion
in login profile scripts a la fortune.
2000-12-13 14:27:39 +00:00

62 lines
1.3 KiB
Plaintext

--- gnarr 2000/12/13 13:10:33 1.1.1.1
+++ gnarr 2000/12/13 14:00:35 1.4
@@ -1,15 +1,17 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# public domain
use strict;
my $VERSION = "v2";
+my $PREFIX = "/usr/local";
-my $one = 0; # Heh heh.
+my $one = 1; # Heh heh.
my %subrefs = ( '-h' => [\&help, 'print this help text'],
'-v' => [\&ver, 'print version information'],
- '-1' => [\&one, 'print one cry and exit'],
+ '-1' => [\&one, 'print one cry and exit (default)'],
+ '-m' => [\&mult, 'print multiple cries'],
'-l' => [\&list, 'list substitutions (long)'] );
my @place = ("hearth",
@@ -135,13 +137,20 @@
}
}
-open( BASE, "/etc/gnarrrc" );
-open( USER, "$ENV{HOME}/.gnarrrc" );
-my @base = (<BASE>, <USER>);
+my @base = ();
+
+if (open( BASE, "$PREFIX/etc/gnarrrc" )) {
+ push @base, (<BASE>);
+ close BASE;
+}
+if (open( USER, "$ENV{HOME}/.gnarrrc" )) {
+ push @base, (<USER>);
+ close USER;
+}
+
chomp @base;
-close USER;
-close BASE;
+die("No data read from gnarrc files!\n") if ($#base == -1);
do {
@@ -187,8 +196,10 @@
print "Please send any enhancements to piman\@sacredchao.net.\n\n";
exit();
}
+
+sub one { $one = 1; }
-sub one { $one = 1; }
+sub mult { $one = 0; }
sub list {
print "PLACE:\n"; print " $_\n" foreach (@place);