if (defined $paste_chan) { if ($heap->{users}{$paste_chan}{$nick}{mode} =~ /\@/) { delete_paste($conf{name}, $paste_chan, $pasteid, $nick) or print "It didn't delete!\n"; $kernel->post( $server => privmsg => $nick => "Deleted paste $pasteid") } else { $kernel->post( $server => privmsg => $nick => "Paste $pasteid was sent to $paste_chan - " . "you aren't a channel operator on $paste_chan" ) }