#!/usr/pkg/bin/perl 
# Author  :	Stefan Schumacher, <stefan[at]net-tex[dot]de>
# PGP     :   	0xB3FBAE33
# Purpose :	reads a given file in and prints it out linewise 	
# Created :	Sun Oct 19 20:57:29 2003
# Needs   :    
# released under BSD License, I will not support non-free forks 
# like Public Domain, closed source, GPL or other

# get filename from parameter
my ($readfile)=@ARGV;

##connect filehandle
#open FILE,">>$readfile" or die;
#my $handle = select FILE;

##set logical line to undef, read whole file
#$/ = undef;

my $parameter = $ARGV[0];
my $pause = $ARGV[1];

#set pause to 1 if no parameter is given
if ($pause eq ''){
	$pause = 1;}

if($parameter eq '-v'){
print "lilo.pl   version 0.1   20031122 \n(C) Stefan Schumacher <stefan\@net\-tex\.de> http://www.net-tex.de\nreleased under BSD Licence \n";
}


elsif($parameter eq '-h'){
print "lilo.pl -v	  : show version
lilo.pl -h	  : show this   
lilo.pl foo.bar	  : reads foo.bar in and prints it linewise out 
		    with a standard pause of 1 sec between each line
lilo.pl foo.bar	3 : reads foo.bar in and prints it linewise out 
		    with a pause of 3 sec
		 \n";
}


else{
for ($i=1;$i>0;$i++){
open MYHANDLE, $readfile or die;
my @fileInLines = <FILE>;

#traverse each line in file
while(<MYHANDLE>){
	print "$_";
	sleep $pause;
	if (eof){
		close ARGV;
	}
}# while
close MYHANDLE or die;
}# for

}