1 files changed, 46 insertions, 0 deletions
diff --git a/scripts/randname.pl b/scripts/randname.pl
new file mode 100644
index 0000000..df5ae36
--- /dev/null
+++ b/scripts/randname.pl
@@ -0,0 +1,46 @@
+# RandName 1.1
+# 
+# set a random real name taken from a file
+# 
+# derived from quitmsg.pl by Timo Sirainen
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.1';
+%IRSSI = (
+        authors         => 'legion',
+	contact         => 'a.lepore(at)email.it',
+	name            => 'RandName',
+	description     => 'Random "/set real_name" taken from a file.',
+	license         => 'Public Domain',
+	changed         => 'Sat Dec  6 12:28:04 CET 2003',
+);
+
+sub randname {
+
+	my $namefile = (glob Irssi::settings_get_str('random_realname_file'))[0];
+
+	open (FILE, "<", $namefile) || return;
+	my $lines = 0; while(<FILE>) { $lines++; };
+	my $line = int(rand($lines))+1;
+
+	my $realname;
+	seek(FILE, 0, 0); $. = 0;
+	while(<FILE>) {
+		next if ($. != $line);
+		chomp;
+		$realname = $_;
+		last;
+	}
+	close(FILE);
+	
+	Irssi::print("%9RandName.pl%_:", MSGLEVEL_CRAP);
+	Irssi::command("set real_name $realname");
+
+} ##
+
+Irssi::signal_add('gui exit', 'randname');
+Irssi::command_bind('randname', 'randname');
+Irssi::settings_add_str('misc', 'random_realname_file', '~/.irssi/irssi.realnames');