home *** CD-ROM | disk | FTP | other *** search
- # config modem -*-perl-*-
-
- sub configure_modem {
- local ( $dev );
-
- if (!&rhs_menu("Modem Configuration",
- <<EOM
- >
- Select the device (serial port) to which your modem is connected.
- >
- If you have no modem, select <none>.
- >
- (This configuration step simply makes a link from /dev/modem
- to your actual modem device.)
- >
- EOM
- , 60, 5,
- "<none>", "No Modem",
- "/dev/cua0", "COM1: under MS-DOS",
- "/dev/cua1", "COM2: under MS-DOS",
- "/dev/cua2", "COM3: under MS-DOS",
- "/dev/cua3", "COM4: under MS-DOS")) {
- return 0;
- }
-
- return 1 if $dialog_result eq "<none>";
-
- $dev = $dialog_result;
- $dev =~ s/.*\///;
- unlink("$fsmount/dev/modem");
- symlink($dev, "$fsmount/dev/modem");
-
- return 1;
- }
-
- ########################
- 1;
-