sub {
my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
use IMDB::Film;
- my $imdb = new IMDB::Film( crit => $what );
+ if( $what =~ /^\s*$/ ) {
+ $kernel->post( $src, $replypath, "Usage: IMDB <title or IMDB#>", $dest );
+ return;
+ }
+ my $imdb = new IMDB::Film( crit => $what, error => [] );
if( $imdb->status ) {
$kernel->post( $src, $replypath, $imdb->title()." (".$imdb->year()."): ".join( ', ', @{ $imdb->genres() } )."; Rating ".(scalar $imdb->rating()).": ".$imdb->storyline(), $dest );
} else {
- $kernel-post( $src, $replypath, "An error occured: ".$imdb->error, $dest );
+ $kernel->post( $src, $replypath, "An error occured: ".$imdb->error(), $dest );
}
}