#!/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.109899997711182);
print '$ ';
msleep(0.0138399600982666);
print '
';
msleep(0.186070084571838);
print '$ ';
msleep(3.98388993740082);
print '^D';
msleep(0.00996005535125732);
print '';
msleep(0.678149938583374);
print '';
msleep(0);