/[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.3 by joko, Tue Mar 8 21:00:45 2005 UTC revision 1.4 by joko, Tue Mar 8 21:07:29 2005 UTC
# Line 45  sub ripcd { Line 45  sub ripcd {
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        
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed