command invite => {
help => q(Syntax: invite [channel] | If no channel is specified it invites you to all channel you have auto invite access on),
- type => q(pm)
+ type => q(ircpm)
}, class extends NDIRC::Command {
method execute ($c,$msg) {
my ($channel) = $msg =~ /^\s*(\S+)?\s*$/ or die 'ARGS';
}
};
-command getpass => {
- help => q(Gives new users a random password.),
- type => q(pm)
-}, class extends NDIRC::Command {
-
-###########################################################
-# 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;
- }
-
- method execute ($c,$msg) {
- my $dbh = $c->model;
-
- my $password = generate_random_string 10;
- my $update = $dbh->do(q{
-UPDATE users SET password = MD5( ? )
-WHERE uid = ? AND password =''
- },undef,$password,$c->uid);
- if ($update > 0){
- $c->reply("Password set to: $password (you can change it on webbie)");
- }else{
- $c->reply("Couldn't set password. Either it has already been set or you don't have an account");
- }
- }
-};
-
1;