From a05b77509e6e3723f3e969eefd1c2a34bad79675 Mon Sep 17 00:00:00 2001 From: "greg@kroah.com" Date: Tue, 6 Jan 2004 01:11:53 -0800 Subject: [PATCH] [PATCH] add silly script that names cdrom drives based on the cd in them. --- extras/name_cdrom.pl | 45 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 extras/name_cdrom.pl diff --git a/extras/name_cdrom.pl b/extras/name_cdrom.pl new file mode 100644 index 00000000..569b119b --- /dev/null +++ b/extras/name_cdrom.pl @@ -0,0 +1,45 @@ +#!/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: +# CALLOUT, BUS="ide", PROGRAM="name_cdrom.pl %M %m", ID="good*", NAME="%1c", SYMLINK="cdrom" +# CALLOUT, BUS="scsi", PROGRAM="name_cdrom.pl %M %m", ID="good*", NAME="%1c", SYMLINK="cdrom" +# +# The scsi rule catches USB cdroms and ide-scsi devices. +# + +use CDDB_get qw( get_cddb ); + +my %config; + +$dev_node = "/tmp/cd_foo"; + +# following variables just need to be declared if different from defaults +$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; + +$major = $ARGV[0]; +$minor = $ARGV[1]; + +# create our temp device node to read the cd info from +if (system("mknod $dev_node b $major $minor")) { + die "bad mknod failed"; + } + +# get it on +my %cd=get_cddb(\%config); + +# remove the dev node we just created +unlink($dev_node); + +# print out our cd name if we have found it +unless(defined $cd{title}) { + print"bad unknown cdrom\n"; +} else { + print "good $cd{artist}_$cd{title}\n"; +} -- 2.39.5