From: Michael Andreen <harv@ruin.nu>
Date: Sat, 30 May 2009 19:27:53 +0000 (+0200)
Subject: Better help for the point commands
X-Git-Url: https://ruin.nu/git/?a=commitdiff_plain;h=66d9c4c699e149a366290b3891eea87650126b47;p=NDIRC.git

Better help for the point commands
---

diff --git a/Commands/Usermgm.pm b/Commands/Usermgm.pm
index deae5a2..247fb33 100644
--- a/Commands/Usermgm.pm
+++ b/Commands/Usermgm.pm
@@ -404,11 +404,11 @@ SELECT username,hostmask,pnick FROM users WHERE hostmask ILIKE $1 OR pnick ILIKE
 }
 
 sub a
-	: Help(Usage: .a username [points] | % can be used for wildcards \%arro\% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
+	: Help(Usage: .a username [points] | % can be used for wildcards %arro% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
 	: ACL(irc_a)
 {
 	my ($self,$c,$msg) = @_;
-	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/ or die 'ARGS';
+	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(:?\d+|\d*\.\d+)))?$/ or die 'ARGS';
 	$points //= 1;
 
 	my ($fleets) = $c->model->selectrow_array(q{
@@ -427,32 +427,32 @@ WHERE not launched  AND tick + 24 > tick()
 }
 
 sub d
-	: Help(Usage: .d username [points] | % can be used for wildcards \%arro\% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
+	: Help(Usage: .d username [points] | % can be used for wildcards %arro% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
 	: ACL(irc_d)
 	: Type(def)
 {
 	my ($self,$c,$msg) = @_;
-	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/ or die 'ARGS';
+	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(:?\d+|\d*\.\d+)))?$/ or die 'ARGS';
 
 	addPoints($c, 'defense', $nick, $points);
 }
 
 sub s
-	: Help(Usage: .s username [points] | % can be used for wildcards \%arro\% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
+	: Help(Usage: .s username [points] | % can be used for wildcards %arro% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
 	: ACL(irc_s)
 {
 	my ($self,$c,$msg) = @_;
-	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/ or die 'ARGS';
+	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(:?\d+|\d*\.\d+)))?$/ or die 'ARGS';
 
 	addPoints($c, 'scan', $nick, $points);
 }
 
 sub h
-	: Help(Usage: .h username [points] | % can be used for wildcards \%arro\% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
+	: Help(Usage: .h username [points] | % can be used for wildcards %arro% will match barrow, if the number of points isn't specified, then 1 will be assumed.)
 	: ACL(irc_h)
 {
 	my ($self,$c,$msg) = @_;
-	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(\d+)?(\.\d+)?))?$/ or die 'ARGS';
+	my ($nick,$points) = $msg =~ /^(\S+)(?: (-?(:?\d+|\d*\.\d+)))?$/ or die 'ARGS';
 
 	addPoints($c, 'humor', $nick, $points);
 }