- my($recipient) = @_;
-
- my %hash = &::sqlSelectRowHash('botmail', '*', {
- dstwho => lc $recipient
- } );
-
- if (scalar (keys %hash) <= 1) {
- &::msg($recipient, "You have no botmail.");
- } else {
- my $date = scalar(gmtime $hash{'time'});
- my $ago = &::Time2String(time() - $hash{'time'});
- &::msg($recipient, "From $hash{srcwho} ($hash{srcuh}) on $date ($ago ago):");
- &::msg($recipient, $hash{'msg'});
- &::sqlDelete('botmail', { 'dstwho'=>$hash{dstwho}, 'srcwho'=>$hash{srcwho}});
+ my ($recipient) = @_;
+
+ my %hash =
+ &::sqlSelectRowHash( 'botmail', '*', { dstwho => lc $recipient } );
+
+ if ( scalar( keys %hash ) <= 1 ) {
+ &::msg( $recipient, "You have no botmail." );
+ }
+ else {
+ my $date = scalar( gmtime $hash{'time'} );
+ my $ago = &::Time2String( time() - $hash{'time'} );
+ &::msg( $recipient,
+ "From $hash{srcwho} ($hash{srcuh}) on $date ($ago ago):" );
+ &::msg( $recipient, $hash{'msg'} );
+ &::sqlDelete( 'botmail',
+ { 'dstwho' => $hash{dstwho}, 'srcwho' => $hash{srcwho} } );