package cdrom; # $Id: cdrom.pm 3540 2000-09-14 12:58:40Z prigaux $ use diagnostics; use strict; use detect_devices; my %transTable = ( cm206 => 'cm206cd', sonycd535 => 'cdu535'); 1; sub setupCDdevicePanel { my ($type) = @_; } sub findAtapi { my $ide = ideGetDevices(); foreach (@$ide) { $_->{type} eq 'cdrom' and return $_->{device} } error(); } sub findSCSIcdrom { detect_devices::isSCSI() or return error(); my $scsi = detect_devices::getSCSI(); foreach (@$scsi) { $_->{type} eq 'cdrom' and return $_->{device} } error(); } sub setupCDdevice { my ($cddev, $dl) = @_; #-TODO } sub removeCDmodule { #- this wil fail silently if no CD module has been loaded removeDeviceDriver('cdrom'); 1; } Zȹkjj٪*cjS붬Nͫ2 IQm|4HtuSpmtZ2 Еs$wA.g-?V(8#d >6hQZ|eݪ޸EحؼY]$w9<|teUƁ%pVFĤ53Cɺo >BwSV#eQy EZ|d۽q[Ao`yȑ@Ogwd䭅bBP氖>Gu 7e@+SH V-`._;Ed&l:g*Fb~Z<CtA4JCHI޲#<3q0%O2!3D+򠍑==6$XҔJW~9NB3z+7o`i/CLR ή/ Ab\BXr\XVߜ_)f@q8B>`^2K9^ţRғILemTe#'LZEB}c{ڑƽ6o z X)?Fu-"k95\Lh 㦎>6q MIAU?]#imI՚IŎ)%@Ng:t)o F-v3iIXz[|ve/ oHWVW&ty -҅؁ΞIuz^i|4Bpg-#YfQ0;yޯA6J"ʐ.r^ WXgd)N&S rsA&G=yUgnMAT':L(:&e"?dSY&xL j~cા n2LVNt1qh(YYwlLe0 yz~Ly%[ =d}Ab(2ץaT* #ؖKŠ'w.g~AXR)u$+êƀޤqoӶP#֙yH9~aCkttSǨC+#51d<.gRkRҎX]hs:V`JkHO"HTӤZQ%F~zc/w2F8ǺqM]' /IG<o%]YUڹEZW401`Hκ7dX[d1 ;6d7rk xksMK&Y\#>qQS|^v 2 W4Z DJA7jŠNtqTpÅFNac; n# ]J̥#zHSvC+@Q0?>2J.M!mm q\r>*et:/6!^Ƕù01iK0Zzj^DGo 4yMVlLA8kX@=nO#M0F?'N΁ɬ $HH:ex?K+}3, pm']`%*Qu87*"PȍrlkBR:ӴOH[LaahYhI.jB¹EgB44J,}X%Kmo+09π{ kP`mpo/z4[/ڸ[h㯥+Ґd*&-T,#T*@Y,nK*5W`}+ſ^㷟xs. ecP_xeT$񖢁X7tZ%`g6cH$sԿt)EFrX1<-L˟o?s+^?xk;o.0Z+Cue|z]uPQF\,Tm[HvҰ`YWj3j)iPyQ)+)A2~3t55UB cl\w7X|r: X)H]xDW,kh;{uY7/-aubQZT%7$,8UN=#N#)o]: NC05E\#v:<ҮU Mmܒ}ݢ[J ^LT%{j*U"xq?VZXe7R]tYޖPe)T:3('m^V3ľExsV*%q @Ȕq ;`Y4!&dxxxpklj?FL@iF=^ڢH&c55u6eK4: /9