#!/usr/bin/perl
#
# This is a telnet/login replay program. It will replay a session using
# the timestamps from the packet log.
#
# USAGE: run the script as normal. You can provide a factor as an
#	argument, eg "2" to run twice as fast, or "0.5" to run
#	at half time. eg,
# 		./session_0002.telnet.replay 2
#
# Auto generated by Chaosreader.
#
$| = 1;
$factor = $ARGV[0] || 1;
sub msleep {
	$ms = shift;
	$ms = $ms / $factor;
	select(undef, undef, undef, $ms);
}
print '
';
msleep(0.112020015716553);
print '$ ';
msleep(0.0605599880218506);
print '
';
msleep(0.139370083808899);
print '$ ';
msleep(0.530319929122925);
print 'l';
msleep(0.0887700319290161);
print 's';
msleep(0.0448099374771118);
print ' ';
msleep(0.0534800291061401);
print '-';
msleep(0.0760800838470459);
print 'l';
msleep(0.0790098905563354);
print '
';
msleep(0.127080082893372);
print 'total 60
drwxr-xr-x   2 root     other        512 Oct 17 23:45 Bin
-rw-r--r--   1 guest    other      12155 Oct  5 22:55 guest.tar.gz
-rw-r--r--   1 guest    other        136 Oct  5 22:50 local.cshrc
-rw-r--r--   1 guest    other        157 Oct  5 22:50 local.login
-rw-r--r--   1 guest    other        174 Oct  5 22:50 local.profile
-rw-r--r--   1 guest    other         49 Oct  5 22:55 motd
-r--r--r--   1 guest    other        516 Oct  5 22:55 passwd
-rw-r--r--   1 guest    other        168 Nov  3 23:43 somefile.txt
-rw-r--r--   1 guest    other      11096 Oct  5 22:53 thumb.jpg
$ ';
msleep(0.798370003700256);
print '
';
msleep(0.101239919662476);
print '$ ';
msleep(0.443680047988892);
print 'u';
msleep(0.0794399976730347);
print 'p';
msleep(0.116629958152771);
print 't';
msleep(0.113409996032715);
print 'i';
msleep(0.0263000726699829);
print 'm';
msleep(0.0853999853134155);
print 'e';
msleep(0.0827000141143799);
print '
';
msleep(0.152040004730225);
print ' 11:50pm  up 232 day(s),  4:52,  2 users,  load average: 0.06, 0.04, 0.06
$ ';
msleep(0);