--- 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:39:23	1.5
@@ -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
   
@@ -92,12 +96,12 @@
     my $status_rip = gd_command("grpst", undef, 1);
     print "-" x 40, "\n";
     print "Rip Status:", "\n";
-    print $status_rip, "\n";
+    print $status_rip ? $status_rip : 'No ripping process running.', "\n";
     
     print "-" x 40, "\n";
     my $status_compress = gd_command("gcpst", undef, 1);
     print "Compress Status:", "\n";
-    print $status_compress, "\n";
+    print $status_compress ? $status_compress : 'No compress process running.', "\n";
     print "\n";
     
     sleep 5;