#!/usr/bin/perl -w 
print "\nSet Default User 0.1\n\n";

#Variablendeklaration
$configfile = "default_groups.cfg";
$par1 = ($ARGV[0]);
 
#Parameterverarbeitung
if ($par1 eq ""){$par1 = "0";}
if (($par1 eq "0") || ($par1 eq "-h") || ($par1 eq "/h"))
{
	print 'Format: "vbdefaultgroups <User>"'."\n";
	print 'Userformat Beispiel: "YF12HXX"'."\n";
	exit(0);
}

# Check ob User existiert
$users = `getent group vb_sw_users`; 	# Gruppe aus LDAP auslesen
if (index($users,$par1) == -1){
	print "User existiert nicht\n";
	exit (0);}

# User in Gruppen einfügen
open DEFAULT, $configfile;
foreach $line ( <DEFAULT> ) 
	{ 
		$group_count++;
		chomp($line);
		print "-u:$par1 -g:$line -add\n";	# ist nur ein Ausgabetest bevor ich das LDAP zuramsche
		
	}
	
close DEFAULT;