cygwin perl useradd command

[Jaspreet Singh]

hey guys,

 anybody has useradd command on cygwin. Here's something interesting.
i wrote a perl script for useradd command. it takes following arguments

 -u	:	Username\n";
 -p	:	Password\n";
 -g	:	Initial Group\n";
 -c	:	Comments\n";
 -d	:	Home Directory\n";
 -s	:	Shell\n";
 -m	:	Copy /etc/skel/* to <home_directory>\n";
 -h	:	Show usage\n";
 -v	:	Show version\n";
 --help	:	Show usage\n";
 --version	:	Show version\n";

like useradd.pl -u username -p password

then it resolves all given arguments, like -u, -p, -c and others

then adds "_usr" at the end of the username passed to script

then it creates a NET USER /ADD command with /COMMENTS: and /FULLNAME: if -c is found in arguments

then it execute it

confirm it by executing mkpasswd -l -u username command, it returns usersting like 

username:password:UID:GID:comments:home_dir:user_shell 

or

error

if username is found in output then new user is added to windows

NOW, this is where i am stuck when new user is suppose to be added to /etc/passwd file

the thing i want to have is enable this script to add user and group of same name to passwd and group file

where i am stuck is that it can add default userstring output from mkpasswd command to /etc/passwd file. but what i want is to verify if theres any user with same username (username minus "_usr") in passwd file if there is it is noty even suppose to add user to windows. if there is a group with same username in group file it is suppose to add a virtual user like

<username minus "_usr">:UID:<GID of group with same username>:comments:home_dir:user_shell

to passwd file.

if anybody even understand what i am tring to do and can complete this perl script. please reply

if anybody completes this then that person can also create usermod, userdel, groupadd, groupmod, and groupdel perl scripts to 

THIS WILL BE A REALY COOL THING IN CYGWIN

------------------------------------------------
HERES MY useradd.pl SAMPLE
------------------------------------------------

#!/usr/bin/perl

$ArgsCount = $#ARGV + 1;
$version = "Open Source Perl useradd Script For cygwin\n";
use constant vbcrlf => "\r\n";

foreach $i (0 .. $#ARGV) 
{
  if ($ARGV[$i] eq "-v") 
	{
		die $version;
	}
  elsif ($ARGV[$i] eq "--version")
	{
		die $version;
	}
  elsif ($ARGV[$i] eq "-h")
	{
		print $version;
		print "\n";
		print "usage :\n";
		print " -u	:	Username\n";
		print " -p	:	Password\n";
		print " -g	:	Initial Group\n";
		print " -c	:	Comments\n";
		print " -d	:	Home Directory\n";
		print " -s	:	Shell\n";
		print " -m	:	Copy /etc/skel/* to <home_directory>\n";
		print " -h	:	Show usage\n";
		print " -v	:	Show version\n";
		print " --help	:	Show usage\n";
		die " --version	:	Show version\n";
	}
  elsif ($ARGV[$i] eq "--help")
	{
		print $version;
		print "\n";
		print "usage :\n";
		print " -u	:	Username\n";
		print " -p	:	Password\n";
		print " -g	:	Initial Group\n";
		print " -c	:	Comments\n";
		print " -d	:	Home Directory\n";
		print " -s	:	Shell\n";
		print " -m	:	Copy /etc/skel/* to <home_directory>\n";
		print " -h	:	Show usage\n";
		print " -v	:	Show version\n";
		print " --help	:	Show usage\n";
		die " --version	:	Show version\n";
	}
}

$username = "";
$password = "";
$UID = "";
$GID = "";
$comments = "";
$home = "";
$shell = "";


foreach $i (0 .. $#ARGV) 
{

if (($ARGV[$i] eq "-u") && ($username eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        die "command failed.\n";
      }  
   else
	  {
        $username = $ARGV[$i + 1];
      }

	}
	
elsif (($ARGV[$i] eq "-p") && ($password eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        #die "command failed.";
      }  
   else
	  {
        $password = $ARGV[$i + 1];
      }

	}

elsif (($ARGV[$i] eq "-g") && ($GID eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        #die "command failed.";
      }  
   else
	  {
        $GID = $ARGV[$i + 1];
      }

	}

elsif (($ARGV[$i] eq "-c") && ($comments eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        #die "command failed.";
      }  
   else
	  {
        $comments = $ARGV[$i + 1];
      }

	}

elsif (($ARGV[$i] eq "-d") && ($home eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        #die "command failed.";
      }  
   else
	  {
        $home = $ARGV[$i + 1];
      }

	}

elsif (($ARGV[$i] eq "-s") && ($shell eq ""))
	{
	
   if (($ARGV[$i + 1] eq "-u") || ($ARGV[$i + 1] eq "-p")
      || ($ARGV[$i + 1] eq "-g") || ($ARGV[$i + 1] eq "-c")
      || ($ARGV[$i + 1] eq "-d") || ($ARGV[$i + 1] eq "-s")
      || ($ARGV[$i + 1] eq "-m"))
      {
        #die "command failed.";
      }  
   else
	  {
        $shell = $ARGV[$i + 1];
      }

	}
	
}

if ($username eq "")
	{
		print "Cant find username\n";
		print "\n";
		print $version;
		print "\n";
		print "usage :\n";
		print " -u	:	Username\n";
		print " -p	:	Password\n";
		print " -g	:	Initial Group\n";
		print " -c	:	Comments\n";
		print " -d	:	Home Directory\n";
		print " -s	:	Shell\n";
		print " -m	:	Copy /etc/skel/* to <home_directory>\n";
		print " -h	:	Show usage\n";
		print " -v	:	Show version\n";
		print " --help	:	Show usage\n";
		die " --version	:	Show version\n";
	}

$cmdline = "";
$cmdline = "NET USER /ADD ".$username."_usr";
if ($password ne "")
	{
		$cmdline = $cmdline." ".$password;
	}
if ($comments ne "")
	{
		$cmdline = $cmdline." /COMMENT:"."\"".$comments."\""." /FULLNAME:"."\"".$comments."\"";
	}
$CMD = `$cmdline 2>&1`;
$temp = $username."_usr";
$CMDMK = `mkpasswd -l -u $temp 2>&1`;
chomp;
($login, $npasswd, $nuid, $ngid, $ngcos, $nhome, $nshell) = split(/:/,$CMDMK);     
if ($login ne $temp)
	{
		die "Command failed.\n";
	}
$userstring = $username.":".$npasswd.":".$nuid.":".


#print $username.":".$password.":".$UID.":".$GID.":".$comments.":".$home.":".$shell."\n"; 

#print "Not dead";







      Meet people who discuss and share your passions. Go to http://in.promos.yahoo.com/groups/bestofyahoo/


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/