#!/usr/bin/perl
# "takes as argument glftpd groupfile"
# cgrp /glftpd/etc/group > /.ftp-data/groups.user
# "and now you have gftpd groups file"

@PASSWD=qx{cat $ARGV[0]};
foreach $line (@PASSWD) {
	($group,$desc,$id)=split(':',$line);
	print "$group $desc\n";
}
