Hi, Hab ne Frage zu Perl: Wie muss die Datei "users" aussehen damit der folgende Script geht? mfg Thomas #!/usr/bin/perl # # Copyright (c) 2000 SuSE GmbH Nuernberg, Germany. All rights reserved. # # $Id: pw2ldap.pl,v 1.3 2001/07/25 15:45:51 choeger Exp $ # open(IN, "<users") || die; print "#!/bin/bash\n\n"; while( <IN> ) { chomp; ($uname, $pass, $uid, $gid, $gecos, $home, $shell) = split /:/; if( $gecos =~ /serv=/ || $gecos =~ /full=/ ) { print <<EOF;; # # # echo "migrating user $uname:" /usr/lib/apache/bin/add_user_ldap -bDN dc=leitner,dc=intra -al cyrus -ap cyrus \\ -uid $uname -sn $uname -up "{crypt}$pass" -mail $uname\@leitner.intra \\ -o "Leitner + Leitner" -hd $home -ls $shell -gNum $gid -uNum $uid -lang DE -c DE /usr/lib/apache/bin/add_user_cyrus -al cyrus -ap cyrus -uid $uname -qv 10000 \\ -mb INBOX.sent-mail -mb INBOX.old -mb INBOX.public EOF } else { # print "\n\nWARNING***** $uname not migrated ******\n\n\n" } } close(IN); -- GMX - Die Kommunikationsplattform im Internet. http://www.gmx.net