-sub delquote
- : Help(syntax: .delquote number)
- : ACL(irc_delquote)
-{
- my ($self,$c,$msg) = @_;
- my ($n) = $msg =~ /(\d+)/ or die 'ARGS';
- $n = $n-1;
- if (exists $FILE[$n]){
- my ($uid,$username) = $c->model->selectrow_array(q{
-SELECT uid,username FROM users where hostmask ILIKE ?
- },undef,$c->host);
+command delquote => {
+ help => q(syntax: .delquote number),
+ acl => q(irc_delquote),
+}, class extends NDIRC::Command {
+ method execute($c,$msg) {
+ my ($n) = $msg =~ /(\d+)/ or die 'ARGS';
+ $n = $n-1;
+ if (exists $FILE[$n]){
+ my ($uid,$username) = $c->model->selectrow_array(q{
+SELECT uid,username FROM users where uid = ?
+ },undef,$c->uid);