giantdisc/bin/gdc.pl

#!/usr/bin/perl

##################################################
#
# GiantDisc mp3 Jukebox Client
# 
#  2005, Andreas Motl
#
##################################################


# Client script talking to GiantDisc TCP port.
#
# Purpose: Trigger "Rip CD" from remote

use strict;
use warnings;

use Data::Dumper;
use gdclient;

my $payload = [
          'Guano Apes',
          'Open Your Eyes',
          '',
          '',
          '',
          '',
          '0',
          '0',
          '189',
          '0',
          '1e0c1f12',
          '1',
          '',
          '0',
          '0',
          '',
          '',
          'mp3 192'
        ];


gd_connect("siggi");
gd_command("reccdt", @$payload);
gd_disconnect();


###############################################################################
1	joko	1.1	#!/usr/bin/perl
2
3			##################################################
4			#
5			# GiantDisc mp3 Jukebox Client
6			#
7			# 2005, Andreas Motl
8			#
9			##################################################
10
11
12			# Client script talking to GiantDisc TCP port.
13			#
14			# Purpose: Trigger "Rip CD" from remote
15
16			use strict;
17			use warnings;
18
19			use Data::Dumper;
20			use gdclient;
21
22			my $payload = [
23			'Guano Apes',
24			'Open Your Eyes',
25			'',
26			'',
27			'',
28			'',
29			'0',
30			'0',
31			'189',
32			'0',
33			'1e0c1f12',
34			'1',
35			'',
36			'0',
37			'0',
38			'',
39			'',
40			'mp3 192'
41			];
42
43
44			gd_connect("siggi");
45			gd_command("reccdt", @$payload);
46			gd_disconnect();
47
48
49			###############################################################################
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26