From 34de29a22bce8fb212bac97ac8a8033abe2061c1 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Fri, 7 Sep 2007 12:30:13 +0200 Subject: [PATCH 1/1] laston updated --- Usermgm.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Usermgm.pm b/Usermgm.pm index e24ee55..a537f77 100644 --- a/Usermgm.pm +++ b/Usermgm.pm @@ -113,7 +113,16 @@ WHERE flag = ?; } sub laston { - my ($flag,$min) = @_; + my ($msg, $command) = @_; + + my ($flag,$min); + if(defined $msg && $msg =~ /^(\w)(?: (\d+))?$/){ + $flag = $1; + $min = $2; + }else{ + $ND::server->command("notice $ND::nick syntax: .$command flag [days] | lists users and the number of days since they were last seen. If days is specified it will only list users with at least that amount of idle time."); + return; + } if (officer()){ my $f = $ND::DBH->prepare(qq{SELECT username,last -- 2.39.2