#!/usr/bin/perl -w

use strict;

my $retval = 1;

system("rm -f /dev/cdrom");

# Probe IDE CDROM
for(my $i = ord('a'); $i <= ord('d'); $i++) {
	my $dev = "hd".chr($i);
	my $media_file = "/proc/ide/$dev/media";
	open(FH, $media_file) || next;
	my $media = <FH>;
	close(FH);
	chomp($media);
	if($media eq "cdrom") {
		$retval = 0;
		system("ln -sf /dev/$dev /dev/cdrom");
	} 
}
# Probe SCSI and USB CDROM
for(my $i = 0; $i < 8; $i++) {
	my $dev = "scd".$i;
	if (open(FH, "/dev/$dev")) {
		$retval = 0;
		system("ln -sf /dev/$dev /dev/cdrom");
		close(FH);
	} elsif ($! =~ /No medium found/) {
		$retval = 0;
		system("ln -sf /dev/$dev /dev/cdrom");
	}
}

exit $retval;
