#!/usr/bin/perl
#    create_base.pl Version 0.93	
#    Copyright (c) 1995, David Hillman
#
require "./jconfig.pl";
open (LS,"$ARGV[0]") || die "Cannot find or open $ARGV[0]";
@list = <LS>;
close (LS);
foreach (@list)
	{
		chop($_);
		print "Name for file $_ :";
		chop($newname = <STDIN>); 
		$newline = "0:"."$_".":$newname\n";
		push(@newbase,$newline);
	}
open (NB,">$base") || die "Cannot open $base for writing";
print NB @newbase;
close (NB);
unlink($ARGV[0]);
