/[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.3 by joko, Tue Mar 8 21:00:45 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)) {    if (my $check_cd = gd_command("chcd", undef, 1)) {
# Line 85  sub ripcd { Line 86  sub ripcd {
86  }  }
87    
88  sub ripstatus {  sub ripstatus {
89    gd_connect("siggi");    gd_connect($hostname);
90    
91    while (1) {    while (1) {
92      my $status_rip = gd_command("grpst", undef, 1);      my $status_rip = gd_command("grpst", undef, 1);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed