Changeset 99cc3dc for perl

Timestamp:

Oct 18, 2009, 1:35:29 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:

a957e92

Parents:

6ea3890

Message:

Revert "Add a zephyr randomizer as an alternative to default_zephyr_signature()"

This reverts commit f816ff1bcc839eb7c77fe93185f279da47f3473e.

That code was clearly wrong.

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.