# 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;