- for (@channels){
- $c->server->command("invite ". $c->nick ." $_");
- }
-}
-
-sub hostname
- : Help(Shows your hostname, as seen by the bots.)
-{
- my ($self,$c,$msg) = @_;
-
- $c->reply('Your hostname is: '.$c->host);
-}
-
-###########################################################
-# Written by Guy Malachi http://guymal.com
-# 18 August, 2002
-###########################################################
-sub generate_random_string
-{
- my $length_of_randomstring=shift;# the length of
- # the random string to generate
-
- my @chars=('a'..'z','A'..'Z','0'..'9','_');
- my $random_string;
- foreach (1..$length_of_randomstring)
- {
- # rand @chars will generate a random
- # number between 0 and scalar @chars
- $random_string .= $chars[rand @chars];
- }
- return $random_string;
-}
-
-sub getpass
- : Help(Gives new users a random password.)
- : Type(pm)
-{
- my ($self,$c,$msg) = @_;
- my $dbh = $c->model;