673 |
if ( ! defined( $1 ) ) { |
if ( ! defined( $1 ) ) { |
674 |
my $sth = $dbh->prepare(qq{ select name,value,changed from meta where nick = ? and channel = ? }); |
my $sth = $dbh->prepare(qq{ select name,value,changed from meta where nick = ? and channel = ? }); |
675 |
$sth->execute( $nick, $channel ); |
$sth->execute( $nick, $channel ); |
676 |
$res = "config for $nick "; |
$res = "config for $nick on $channel"; |
677 |
while ( my ($n,$v) = $sth->fetchrow_array ) { |
while ( my ($n,$v) = $sth->fetchrow_array ) { |
678 |
$res .= "| $n = $v"; |
$res .= " | $n = $v"; |
679 |
} |
} |
680 |
} elsif ( ! $2 ) { |
} elsif ( ! $2 ) { |
681 |
my $val = meta( $nick, $channel, $1 ); |
my $val = meta( $nick, $channel, $1 ); |