Changeset f816ff1 for perl

Timestamp:

Oct 14, 2009, 8:59:57 PM (15 years ago)

Author:

Karl Ramm <kcr@1ts.org>

Branches:

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

Children:

76f0e19

Parents:

08e414a

git-author:

Karl Ramm <kcr@1ts.org> (10/14/09 20:58:55)

git-committer:

Karl Ramm <kcr@1ts.org> (10/14/09 20:59:57)

Message:

Add a zephyr randomizer as an alternative to default_zephyr_signature()

File:

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

perl/lib/BarnOwl.pm

@@ -447 +447 @@
 }
 
+=head3 random_zephyr_siganture
+
+Pick a random zephyr signature.
+
+=head3 reload_zephyr_signatures
+
+Reload the random zephyr signatures
+
+=head3 $random_zsig_separator
+
+What to split the zsigs on
+
+=cut
+
+our $random_zsig_separator='\n';
+
+{
+  my $zsigs;
+
+  sub reload_zephyr_signatures {
+    my $slurp;
+
+    srand;
+
+    if (open(ZSIGS, "$ENV{'HOME'}/.zsigs")) {
+      {
+        local $/ = undef;
+        $slurp = <ZSIGS>;
+      }
+      $zsigs = [split(/$random_zsig_separator/, $slurp)];
+    } else {
+      $zsigs = [default_zephyr_signature()];
+    }
+  }
+
+  sub random_zephyr_signature {
+    if (!defined($zsigs)) {
+      reload_zephyr_signatures();
+    }
+    return $zsigs->[int(rand($#{$zsigs}))];
+  }
+}
+
 # Stub for owl::startup / BarnOwl::startup, so it isn't bound to the
 # startup command. This may be redefined in a user's configfile.