#!/usr/bin/perl
# "A bit more tricky part. Takes glftpds passwd file as argument"
# cpass2.pl /glftpd/etc/passwd >> /etc/shadow
# "that will append the userbase to passwd file. And you'll need to
# append to passwd file too with cpass.pl if you havent done it already"

@PASSWD=qx{cat $ARGV[0]};
foreach $line (@PASSWD) {
	($nick,$pass,$id,$group,$when,$restrict,$shell)=split(':',$line);
	print "$nick:$pass:9951:0:99999:7:-1:-1:-1\n";
}
