shaba/systemd-stable
1
1
Fork 0
mirror of https://github.com/systemd/systemd-stable.git synced 2025-09-06 05:44:59 +03:00
Code Activity

fix useless but funny name_cdrom.pl script to work again

Browse Source 
Signed-off-by: Kay Sievers <kay.sievers@suse.de>
This commit is contained in:
Kay Sievers
2005-09-08 12:24:18 +02:00
parent 86eeb30e0c
commit aab571f362
1 changed files with 16 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
extras/name_cdrom.pl
View File

@@ -2,45 +2,31 @@
# a horribly funny script that shows how flexible udev can really be # a horribly funny script that shows how flexible udev can really be
# This is to be executed by udev with the following rules: # This is to be executed by udev with the following rules:
# KERNEL="[hs]d[a-z]", PROGRAM="name_cdrom.pl %M %m", NAME="%c{1}", SYMLINK="cdrom" #
# KERNEL="hd*[!0-9]|sr*", PROGRAM="name_cdrom.pl $tempnode", SYMLINK+="%c"
use strict; use strict;
use warnings; use warnings;
use CDDB_get qw( get_cddb ); use CDDB_get qw(get_cddb);
my $dev_node = "/tmp/cd_foo";
# following variables just need to be declared if different from defaults # following variables just need to be declared if different from defaults
my %config; my %config;
$config{CDDB_HOST}="freedb.freedb.org"; # set cddb host $config{'CDDB_HOST'} = "freedb.freedb.org"; # set cddb host
$config{CDDB_PORT}=8880; # set cddb port $config{'CDDB_PORT'} = 8880; # set cddb port
$config{CDDB_MODE}="cddb"; # set cddb mode: cddb or http $config{'CDDB_MODE'} = "cddb"; # set cddb mode: cddb or http
$config{CD_DEVICE}="$dev_node"; # set cd device $config{'CD_DEVICE'} = $ARGV[0]; # set cd device
$config{'input'} = 0; # no user interaction
# No user interaction, this is a automated script! my %cd = get_cddb(\%config);
$config{input}=0;
my $major = $ARGV[0]; if (!defined $cd{title}) {
my $minor = $ARGV[1]; exit 1;
# create our temp device node to read the cd info from
unlink($dev_node);
if (system("mknod $dev_node b $major $minor")) {
die "bad mknod failed";
} }
# get it on # print out our cd name
my %cd=get_cddb(\%config); $cd{artist} =~ s/ /_/g;
$cd{title} =~ s/ /_/g;
print "$cd{artist}-$cd{title}\n";
# remove the dev node we just created exit 0;
unlink($dev_node);
# print out our cd name if we have found it or skip rule by nonzero exit
if (defined $cd{title}) {
$cd{artist} =~ s/ /_/g;
$cd{title} =~ s/ /_/g;
print "$cd{artist}-$cd{title}\n";
} else {
exit -1;
}