$kernel->post( $src, $replypath, "$who: You are not identified.", $dest );
}
}
+
+WHOAMI: |-
+ sub {
+ my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
+ if( exists( $heap->{ 'identified' } ) && exists( $heap->{ 'identified' }->{ $src.uc( $who ) } ) ) {
+ $kernel->post( $src, $replypath, "$who: You are identified as ".$heap->{ 'identified' }->{ $src.uc( $who ) }, $dest );
+ } else {
+ $kernel->post( $src, $replypath, "$who: You are not identified.", $dest );
+ }
+ }
+
IDENTIFY: |-
sub {
use Digest::MD5 qw( md5_hex );