If it's still running and you can find it and connect to its serial port, feel free to hack away) (yes, I did just give away the password to that old PBX. # we should now be at the Supervisor Name prompt # loop sending ESCs until we get the login prompt $term->read_interval(0xffffffff) # non-blocking readĭie '$esccount attempts to contact the PBX have failed.' if $escco +unt++ > 10 $term->read_interval(1000) # max time between chars 1000 ms (1 +sec) $term->error_msg(1) # hardware and data errors My $term = Win32::SerialPort->new('COM1') or die 'bad COM1\n'
