| 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
