--- nfo/perl/scripts/giantdisc/bin/gdc.pl 2005/03/08 21:00:45 1.3 +++ nfo/perl/scripts/giantdisc/bin/gdc.pl 2005/03/08 21:07:29 1.4 @@ -45,11 +45,15 @@ gd_connect($hostname); # 1. check if cd is already in database (probably ripped?) - if (my $check_cd = gd_command("chcd", undef, 1)) { - print "-" x 60, "\n"; - print "CD already ripped:", "\n", $check_cd, "\n"; - print "-" x 60, "\n"; + print "-" x 60, "\n"; + print "Check CD: "; + my $check_cd; + if ($check_cd = gd_command("chcd", undef, 1)) { + print "CD already ripped!"; } + print "\n"; + print $check_cd, "\n"; + print "-" x 60, "\n"; # TODO: parse $check_cd and propagate cddb-id to "lcddi", if desired