home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2-beta.img / usr / lib / perl / modem < prev    next >
Text File  |  1995-12-04  |  762b  |  38 lines
  1. # config modem -*-perl-*-
  2.  
  3. sub configure_modem {
  4.     local ( $dev );
  5.  
  6.     if (!&rhs_menu("Modem Configuration",
  7. <<EOM
  8. >
  9. Select the device (serial port) to which your modem is connected.
  10. >
  11. If you have no modem, select <none>.
  12. >
  13. (This configuration step simply makes a link from /dev/modem
  14. to your actual modem device.)
  15. > 
  16. EOM
  17.            , 60, 5,
  18.            "<none>", "No Modem",
  19.            "/dev/cua0", "COM1: under MS-DOS",
  20.            "/dev/cua1", "COM2: under MS-DOS",
  21.            "/dev/cua2", "COM3: under MS-DOS",
  22.            "/dev/cua3", "COM4: under MS-DOS")) {
  23.     return 0;
  24.     }
  25.  
  26.     return 1 if $dialog_result eq "<none>";
  27.  
  28.     $dev = $dialog_result;
  29.     $dev =~ s/.*\///;
  30.     unlink("$fsmount/dev/modem");
  31.     symlink($dev, "$fsmount/dev/modem");
  32.  
  33.     return 1;
  34. }
  35.  
  36. ########################
  37. 1;
  38.