| 45 |
gd_connect($hostname); |
gd_connect($hostname); |
| 46 |
|
|
| 47 |
# 1. check if cd is already in database (probably ripped?) |
# 1. check if cd is already in database (probably ripped?) |
| 48 |
if (my $check_cd = gd_command("chcd", undef, 1)) { |
print "-" x 60, "\n"; |
| 49 |
print "-" x 60, "\n"; |
print "Check CD: "; |
| 50 |
print "CD already ripped:", "\n", $check_cd, "\n"; |
my $check_cd; |
| 51 |
print "-" x 60, "\n"; |
if ($check_cd = gd_command("chcd", undef, 1)) { |
| 52 |
|
print "CD already ripped!"; |
| 53 |
} |
} |
| 54 |
|
print "\n"; |
| 55 |
|
print $check_cd, "\n"; |
| 56 |
|
print "-" x 60, "\n"; |
| 57 |
|
|
| 58 |
# TODO: parse $check_cd and propagate cddb-id to "lcddi", if desired |
# TODO: parse $check_cd and propagate cddb-id to "lcddi", if desired |
| 59 |
|
|
| 96 |
my $status_rip = gd_command("grpst", undef, 1); |
my $status_rip = gd_command("grpst", undef, 1); |
| 97 |
print "-" x 40, "\n"; |
print "-" x 40, "\n"; |
| 98 |
print "Rip Status:", "\n"; |
print "Rip Status:", "\n"; |
| 99 |
print $status_rip, "\n"; |
print $status_rip ? $status_rip : 'No ripping process running.', "\n"; |
| 100 |
|
|
| 101 |
print "-" x 40, "\n"; |
print "-" x 40, "\n"; |
| 102 |
my $status_compress = gd_command("gcpst", undef, 1); |
my $status_compress = gd_command("gcpst", undef, 1); |
| 103 |
print "Compress Status:", "\n"; |
print "Compress Status:", "\n"; |
| 104 |
print $status_compress, "\n"; |
print $status_compress ? $status_compress : 'No compress process running.', "\n"; |
| 105 |
print "\n"; |
print "\n"; |
| 106 |
|
|
| 107 |
sleep 5; |
sleep 5; |
Parent Directory
| 
Revision Log
| 
Patch
