Changeset b120bd3 for perl/lib

Timestamp:

Sep 25, 2010, 5:58:38 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

c8d9f84

Parents:

118c919

git-author:

Kevin Riggle <kevinr@free-dissociation.com> (09/21/10 00:33:56)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/25/10 17:58:38)

Message:

add a random zsig function

File:

• perl/lib/BarnOwl.pm (modified) (1 diff)

perl/lib/BarnOwl.pm

@@ -561 +561 @@
 }
 
+=head3 random_zephyr_signature
+
+Retrieve a random line from ~/.zsigs (except those beginning with '#') 
+and use it as the zephyr signature.
+
+=cut
+
+sub random_zephyr_signature
+{
+    my $zsigfile = "$ENV{'HOME'}/.zsigs";
+    open my $file, '<', $zsigfile or die "Error opening file $zsigfile: $!";
+    my @lines = grep !(/^#/ || /^\s*$/), <$file>;
+    close $file;
+    return '' if !@lines;
+    my $zsig = "$lines[int(rand(scalar @lines))]";
+    chomp $zsig;
+    return $zsig;
+}
+
 # Stub for owl::startup / BarnOwl::startup, so it isn't bound to the
 # startup command. This may be redefined in a user's configfile.