equal
deleted
inserted
replaced
23 my $com; |
23 my $com; |
24 my $baud; |
24 my $baud; |
25 print "What COMM port is the modem on?\n(Note: Symbian COMM ports are 1 less than windows)\n\tCOMM::"; |
25 print "What COMM port is the modem on?\n(Note: Symbian COMM ports are 1 less than windows)\n\tCOMM::"; |
26 chomp ($com = <>); |
26 chomp ($com = <>); |
27 |
27 |
28 print "What is the baud rate of the modem?\n(Wavecomm default is 9600, Telit default is 152000)\n\tBaud="; |
28 print "What is the baud rate of the modem?\n(Wavecomm default is 9600, Telit default is 115200)\n\tBaud="; |
29 chomp ($baud = <>); |
29 chomp ($baud = <>); |
30 |
30 |
31 #print "\nComm::$com Baud=$baud\n"; |
31 #print "\nComm::$com Baud=$baud\n"; |
32 |
32 |
33 # Open the config files |
33 # Open the config files |