Changeset 1446
- Timestamp:
- 04/03/08 15:48:27 (5 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
honeyclient/branches/exp/kindlund-simpler_agent/bin/StartAgent.pl
r1444 r1446 7 7 use Carp (); 8 8 9 use Term::ReadKey; 9 10 use HoneyClient::Util::Config qw(getVar); 10 11 use HoneyClient::Agent; … … 23 24 print "URL: " . $URL. "\n"; 24 25 25 #HoneyClient::Agent->destroy(); 26 ReadMode 4; # Turn off controls keys 27 while (not defined ($key = ReadKey(-1))) { 28 # No key yet 29 } 30 print "Get key $key\n"; 31 ReadMode 0; # Reset tty mode before exiting 32 33 HoneyClient::Agent->destroy();
