X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=elogind.git;a=blobdiff_plain;f=extras%2Fname_cdrom.pl;h=28d2d29a3decf920debc4d3e545f6ba837a0aeb7;hp=3a4772e6d9389d3d82f1fb16b3bc90ddb9a6cbca;hb=f05da2ae00de9fedaabb59dbf9a18b63175c5d40;hpb=33084f1e2ac5187e326e7fdf827506d438e656ed;ds=inline diff --git a/extras/name_cdrom.pl b/extras/name_cdrom.pl old mode 100644 new mode 100755 index 3a4772e6d..28d2d29a3 --- a/extras/name_cdrom.pl +++ b/extras/name_cdrom.pl @@ -1,46 +1,31 @@ #!/usr/bin/perl -# a horribly funny script that shows how flexible udev can really be -# This is to be executed by udev with the following rules: -# KERNEL="[hs]d[a-z]", PROGRAM="name_cdrom.pl %M %m", NAME="%1c", SYMLINK="cdrom" +# Horrible but funny script that shows how flexible udev can really be +# This is to be executed by udev with the following rule: +# KERNEL="hd*[!0-9]|sr*", PROGRAM="name_cdrom.pl $tempnode", SYMLINK+="%c" use strict; use warnings; -use CDDB_get qw( get_cddb ); - -my $dev_node = "/tmp/cd_foo"; +use CDDB_get qw(get_cddb); # following variables just need to be declared if different from defaults my %config; -$config{CDDB_HOST}="freedb.freedb.org"; # set cddb host -$config{CDDB_PORT}=8880; # set cddb port -$config{CDDB_MODE}="cddb"; # set cddb mode: cddb or http -$config{CD_DEVICE}="$dev_node"; # set cd device - -# No user interaction, this is a automated script! -$config{input}=0; +$config{'CDDB_HOST'} = "freedb.freedb.org"; # set cddb host +$config{'CDDB_PORT'} = 8880; # set cddb port +$config{'CDDB_MODE'} = "cddb"; # set cddb mode: cddb or http +$config{'CD_DEVICE'} = $ARGV[0]; # set cd device +$config{'input'} = 0; # no user interaction -my $major = $ARGV[0]; -my $minor = $ARGV[1]; +my %cd = get_cddb(\%config); -# 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"; +if (!defined $cd{title}) { + exit 1; } -# get it on -my %cd=get_cddb(\%config); +# print out our cd name +$cd{artist} =~ s/ /_/g; +$cd{title} =~ s/ /_/g; +print "$cd{artist}-$cd{title}\n"; -# remove the dev node we just created -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; -} +exit 0;