/[cvs]/nfo/perl/scripts/giantdisc/bin/gdc.pl
ViewVC logotype

Diff of /nfo/perl/scripts/giantdisc/bin/gdc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Tue Mar 8 20:53:46 2005 UTC revision 1.5 by joko, Tue Mar 8 21:39:23 2005 UTC
# Line 22  use Data::Dumper; Line 22  use Data::Dumper;
22  use gdclient;  use gdclient;
23    
24  my $action = shift;  my $action = shift;
25    my $hostname = 'siggi';
26    
27  sub usage {  sub usage {
28    print "Usage: gdc.pl ripcd|ripstatus", "\n";    print "Usage: gdc.pl ripcd|ripstatus", "\n";
# Line 41  if (!$action) { Line 42  if (!$action) {
42    
43    
44  sub ripcd {  sub ripcd {
45    gd_connect("siggi");    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        
# Line 85  sub ripcd { Line 90  sub ripcd {
90  }  }
91    
92  sub ripstatus {  sub ripstatus {
93    gd_connect("siggi");    gd_connect($hostname);
94    
95    while (1) {    while (1) {
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;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed