webmin/ums/UserAdd.cgi

#!/usr/bin/perl
use strict;
use File::Copy;

# Als erstes: Sorry fuer ENGLISH/DEUTSCH Mischmasch
# Zweitens: Was ist das??
# Also: 
# 1. Legt LDAP PosixAccounts an(Zum anmelden ueber PAM)
# 2. DomainAbaehngige HOMDEDIRs
# Ach schau dir den CODE an.
# Kommando uebergabe (CMD/TEST(see sub GetUserDataAuto)/HTML(Webmin)

my $howtotell = "HTML";

if ($howtotell eq "HTML") {
use CGI;
use CGI::Carp qw(fatalsToBrowser);
}

## ACHTUNG ### auf ALLE folgenden Parameter achten 

my $current_dir = "/usr/libexec/webmin/ums";
##Wenn jemand eine Funktion kennt das aktuelle Perl-Arbeitsverzeichnis zu ermitteln, bitte!
my $ldap_start_uid = "999";
my $ldap_stop_uid = "20000";
# Letzters gilt auch fuer Gruppen
my $mailuserpath = "/mailuser";
#Where to put your DomainDirs
my $template = "/template/www";
#your Horde Template 
my $group_www_root = "/www";
my $mail_root = "/mail";
#your Users IMAP dir (under $HOME)
my $user_www_root = "/public_html";
#your Users WWW_ROOT (under $HOME)
my $base_dn = "ou=MailUser,ou=UMS,dc=europatentdienst,dc=de";
#LDAP Base DN for PosixAccounts
my $horde_base_dn = "ou=Horde,ou=UMS,dc=europatentdienst,dc=de";
#LDAP Base DN for Horde
my $root_dn = "'cn=Manager,dc=europatentdienst,dc=de'";
my $root_pass = "MEAS876";
# You should know what this means
my $ldiffile = "/root/devel/perl/test.ldif";
my $ldif_dn_file = "/root/devel/perl/test_dn.ldif";
my $ldif_imap_file = "/root/devel/perl/test_imap.ldif";
my $ldif_horde_file = "/root/devel/perl/test_horde.ldif";
# These files are needed to generate LDIFs-->LDAPADD->LDAPServer
my $virtualhost_file = "/etc/mail_test/virtusertable";
my $local_host_name_file = "/etc/mail_test/local-host-names";
my $genericstable_file = "/etc/mail_test/genericstable";
# Your Sendmail Files
my $make_bin = "/usr/bin/make";
my $make_target = "/etc/mail_test";
my $remote_sendmail = "/usr/sbin/rcsendmail";
my $sendmail_command = "restart";
# I'am tiered now, sure you know what this means

Main();

sub GetEnt_Passwd {
my @biggest_uid;
my @biggest_gid;
my @existing_users;
my @getent_passwd;
my $foreach_counter;
@getent_passwd = qx(/usr/bin/getent passwd);
foreach (@getent_passwd) {
@getent_passwd[$foreach_counter] =~ /(.*):x:(\d*):(\d*).*/;
    if ($2 > $ldap_start_uid && $2 < $ldap_stop_uid) { 
        @existing_users[$foreach_counter] = $1;
        @biggest_uid[$foreach_counter] = $2;
        @biggest_gid[$foreach_counter] = $3;
        }
$foreach_counter++;
}

@biggest_uid = sort(NummernSort @biggest_uid);
@biggest_gid = sort(NummernSort @biggest_gid);
@biggest_uid = reverse(@biggest_uid);
@biggest_gid = reverse(@biggest_gid);
my $HighestUID = @biggest_uid[0];
my $HighestGID = @biggest_gid[0];
my $UidNumber = $HighestUID + 1;
my $GidNumber = $HighestGID + 1;
my %HighestIDs = (HighestUID => $HighestUID,HighestGID => $HighestGID,UidNumber => $UidNumber,GidNumber => $GidNumber);
return (%HighestIDs);
}

sub NummernSort {
if ($a < $b)
    {return -1;}
elsif($a == $b)
    {return 0; }
else
    {return 1; }
}

sub GetUserDataCMD {
my %UserDaten;
print "Vorname: ";
my $vorname=<STDIN>;
chomp $vorname;
print "Nachname: ";
my $nachname=<STDIN>;
chomp $nachname;
print "Domain(info.de): ";
my $domain=<STDIN>;
chomp $domain;
print "Benutzername: ";
my $username=<STDIN>;
chomp $username;
print "Password: ";
my $password=<STDIN>;
chomp $password;
my $imap = "";
until ($imap eq "yes" | $imap eq "no") {
print "Imap/HomeDir/ModDav/User_WWW(yes/no):";
$imap=<STDIN>;
chomp $imap;
}
print "Email(Name vor dem @):";
my $email =<STDIN>;
chomp $email;
$email = $email."\@".$domain;
my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
return (%UserDaten);
}

sub GetUserDataAuto {
my $vorname="Test";
my $nachname="Tester";
my $domain="testing.de";
my $username="testtester";
my $password="test(/&";
my $imap="yes";
my $email= "testtester"."\@".$domain;
my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
return (%UserDaten);
}

sub CreateLDAPUser {
my $cn = shift;
my $user = $cn;
my $domain = shift;
my $pass = shift;
my $surename = shift;
my $givenname = shift;
my $uidNumber = shift;
my $gidNumber = shift;
my $homeDir = shift;
my $imap = shift;
my $email = shift;

$domain =~ /(.*)\.(.*)/;
my $domain_dn = "ou=".$1."_".$2;
my $domain_dir = "/".$1."_".$2;

my @LDIFDATEI;
@LDIFDATEI[0] = "dn: uid=$givenname $surename,$domain_dn,$base_dn\n";
@LDIFDATEI[1] = "objectclass: top\n";
@LDIFDATEI[2] = "objectclass: posixAccount\n";
@LDIFDATEI[3] = "objectclass: shadowAccount\n";
@LDIFDATEI[4] = "objectclass: account\n";
@LDIFDATEI[5] = "cn: $cn\n";
@LDIFDATEI[6] = "uid: $user\n";
@LDIFDATEI[7] = "gecos: $givenname $surename\n";
@LDIFDATEI[8] = "uidNumber: $uidNumber\n";
@LDIFDATEI[9] = "gidNumber: $gidNumber\n";
@LDIFDATEI[10] = "homeDirectory: $homeDir\n";
@LDIFDATEI[11] = "userPassword: $pass\n";
@LDIFDATEI[12] = "loginShell: /bin/false\n";

if ($imap eq "yes") {
my @LDIFHORDEOU;
@LDIFHORDEOU[0] = "dn: $domain_dn,$horde_base_dn\n";
@LDIFHORDEOU[1] = "ou: $domain_dn\n";
@LDIFHORDEOU[2] = "objectclass: top\n";
@LDIFHORDEOU[3] = "objectclass: organizationalUnit\n";
open(DATEI, ">$ldif_horde_file") || die "Datei nicht gefunden";
print DATEI @LDIFHORDEOU;
close(DATEI);
qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_horde_file)
}

if ($imap eq "yes") {
my @LDIFIMAP;
@LDIFIMAP[0] = "dn: cn=$givenname $surename,$domain_dn,$horde_base_dn\n";
@LDIFIMAP[1] = "objectclass: organizationalPerson\n";
@LDIFIMAP[2] = "objectclass: inetOrgPerson\n";
@LDIFIMAP[3] = "objectclass: person\n";
@LDIFIMAP[4] = "objectclass: hordePerson\n";
@LDIFIMAP[5] = "sn: $surename\n";
@LDIFIMAP[6] = "cn: $givenname $surename\n";
@LDIFIMAP[7] = "mail: $email\n";
@LDIFIMAP[8] = "gn: $givenname\n";
open(DATEI, ">$ldif_imap_file") || die "Datei nicht gefunden";
print DATEI @LDIFIMAP;
close(DATEI);
qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_imap_file)
}


if (!-e $mailuserpath.$domain_dir) {
#if ($imap eq "yes") {
my @LDIFOU;
@LDIFOU[0] = "dn: $domain_dn,$base_dn\n";
@LDIFOU[1] = "ou: $domain_dn\n";
@LDIFOU[2] = "objectclass: top\n";
@LDIFOU[3] = "objectclass: organizationalUnit\n";
open(DATEI, ">$ldif_dn_file") || die "Datei nicht gefunden";
print DATEI @LDIFOU;
close(DATEI);
qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_dn_file)
}

open(DATEI, ">$ldiffile") || die "Datei nicht gefunden";
print DATEI @LDIFDATEI;
close(DATEI);

qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldiffile)
}

sub HomeDirGet {
my $user = shift;
my $domain = shift;
my $imap = shift;
$domain =~ /(.*)\.(.*)/;
my $homedir = $mailuserpath."/".$1."_".$2."/".$user;
if ($imap ne "yes") {
$homedir = "/dev/null";
}
return ($homedir);
}

sub HomeDirMake {
my $user = shift;
my $domain = shift;
my $imap = shift;
my $uid = shift;
my $gid = shift;
my $group = shift;
$domain =~ /(.*)\.(.*)/;
my $select11 = $1;
my $select12 = $2;
my $pre_save_path = $mailuserpath;
my $domaindir = "/".$select11."_".$select12;
my $homedir = $mailuserpath.$domaindir."/".$user;
if ($imap eq "yes") {
        my $homedir = $mailuserpath.$domaindir."/".$user;
            if (!-e $pre_save_path.$domaindir) {
            mkdir ($pre_save_path.$domaindir) 
            }
            if (!-e $pre_save_path.$domaindir."/".$user) {
            mkdir ($pre_save_path.$domaindir."/".$user)
            }
            if (!-e $pre_save_path.$domaindir."/".$user.$mail_root) {
            mkdir ($pre_save_path.$domaindir."/".$user.$mail_root)
            }
            if (!-e $pre_save_path.$domaindir."/".$user.$user_www_root) {
            mkdir ($pre_save_path.$domaindir."/".$user.$user_www_root)
            }
            if(!-e $homedir) {
            $homedir = "/dev/null";
            return ($homedir);
            }
            else {
            qx (/bin/chown -R $user:$group $pre_save_path$domaindir"/"$user)
            #qx (/bin/chmod -R 750 $pre_save_path.$domaindir.$group_www_root)
            }
            if (!-e $pre_save_path.$domaindir.$group_www_root) {
            qx (/bin/cp -R $pre_save_path$template $pre_save_path$domaindir);
            qx (/bin/chown -R root:$group $pre_save_path$domaindir$group_www_root);
            #qx (/bin/chmod -R 750 $pre_save_path.$domaindir.$group_www_root)
            }
}
else {
$homedir = "/dev/null";
return ($homedir);
}}

sub Group {
#to implemented
my $gid = shift;
my $domain = shift;
$domain =~ /(.*)\.(.*)/;
my $group_name = $1."_".$2;
qx (/usr/sbin/groupadd -g $gid $group_name);
return ($group_name);
}

sub GetUserDataHTML {
my %UserDaten;
my $cgi = new CGI;
my @Feldnamen = $cgi->param();

print $cgi->header(),
      $cgi->start_html('CGI-Feedback'),
      $cgi->h1('UMS-Feedback');
      #,$cgi->i('comments.pl'));
      my @Feldinhalte;
      my $counter = 0;
      foreach my $Feld (@Feldnamen) {
        #print $cgi->b('Feldname: '),
        #      $Feld,
        #      $cgi->b(', Inhalt: '),
        #      $cgi->param($Feld), "<br>";
              @Feldinhalte[$counter]=$cgi->param($Feld);
              $counter++;
      }
print $cgi->end_html();

my $vorname = @Feldinhalte[0];
my $nachname = @Feldinhalte[1];
my $username = @Feldinhalte[2];
my $password = @Feldinhalte[3];
my $domain = @Feldinhalte[4];
my $email = @Feldinhalte[5];
my $imap = @Feldinhalte[6];
$email = $email."\@".$domain;

print $cgi->h1("$vorname"),
        $cgi->h1("$nachname"),
        $cgi->h1("$username"),
        $cgi->h1("$password"),
        $cgi->h1("$domain"),
        $cgi->h1("$email"),
        $cgi->h1("$imap"),"<br>";

my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
return (%UserDaten);
}

sub SendmailConfig {
my $user = shift;
my $domain = shift;
my $email = shift;

open(DATEI, "<$virtualhost_file") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my @NeueZeilen;
@NeueZeilen[0] = $email."       ".$user."\n";
foreach(@NeueZeilen) {
  push(@Zeilen,$_);
}
open(DATEI, ">$virtualhost_file") || die "Datei nicht gefunden";
print DATEI @Zeilen;
close(DATEI);

$domain =~ /(.*)\.(.*)/;
my $domain_dir = "/".$1."_".$2;
if (!-e $mailuserpath.$domain_dir) {
open(DATEI, "<$local_host_name_file") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my @NeueZeilen;
@NeueZeilen[0] = $domain."\n";
foreach(@NeueZeilen) {
  push(@Zeilen,$_);
}
open(DATEI, ">$local_host_name_file") || die "Datei nicht gefunden";
print DATEI @Zeilen;
close(DATEI);
}

open(DATEI, "<$genericstable_file") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);
my @NeueZeilen;
@NeueZeilen[0] = $user."        ".$email."\n";
foreach(@NeueZeilen) {
  push(@Zeilen,$_);
}
open(DATEI, ">$genericstable_file") || die "Datei nicht gefunden";
print DATEI @Zeilen;
close(DATEI);
sleep 2;
chdir ($make_target);
qx($make_bin);
chdir ($current_dir);
sleep 2;
qx($remote_sendmail restart);
sleep 2;
}

sub Main {
my %UserData;
if ($howtotell eq "TEST"){
%UserData = GetUserDataAuto();
}
if ($howtotell eq "CMD"){
%UserData = GetUserDataCMD();
}
if ($howtotell eq "HTML"){
%UserData = GetUserDataHTML();
}
else {
die;
}
my %UIDs = GetEnt_Passwd();
my $Group_Name = Group($UIDs{'GidNumber'},$UserData{'Domain'});
my $HomeDirGet = HomeDirGet($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Imap'});
CreateLDAPUser($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Password'},$UserData{'Nachname'},$UserData{'Vorname'},$UIDs{'UidNumber'},$UIDs{'GidNumber'},$HomeDirGet,$UserData{'Imap'},$UserData{'EMail'});
my $sendmail = SendmailConfig($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'EMail'});
my $HomeDirMake = HomeDirMake($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Imap'},$UIDs{'UidNumber'},$UIDs{'GidNumber'},$Group_Name);
}
1	janosch	1.1	#!/usr/bin/perl
2			use strict;
3			use File::Copy;
4
5			# Als erstes: Sorry fuer ENGLISH/DEUTSCH Mischmasch
6			# Zweitens: Was ist das??
7			# Also:
8			# 1. Legt LDAP PosixAccounts an(Zum anmelden ueber PAM)
9			# 2. DomainAbaehngige HOMDEDIRs
10			# Ach schau dir den CODE an.
11			# Kommando uebergabe (CMD/TEST(see sub GetUserDataAuto)/HTML(Webmin)
12
13			my $howtotell = "HTML";
14
15			if ($howtotell eq "HTML") {
16			use CGI;
17			use CGI::Carp qw(fatalsToBrowser);
18			}
19
20			## ACHTUNG ### auf ALLE folgenden Parameter achten
21
22			my $current_dir = "/usr/libexec/webmin/ums";
23			##Wenn jemand eine Funktion kennt das aktuelle Perl-Arbeitsverzeichnis zu ermitteln, bitte!
24			my $ldap_start_uid = "999";
25			my $ldap_stop_uid = "20000";
26			# Letzters gilt auch fuer Gruppen
27			my $mailuserpath = "/mailuser";
28			#Where to put your DomainDirs
29			my $template = "/template/www";
30			#your Horde Template
31			my $group_www_root = "/www";
32			my $mail_root = "/mail";
33			#your Users IMAP dir (under $HOME)
34			my $user_www_root = "/public_html";
35			#your Users WWW_ROOT (under $HOME)
36			my $base_dn = "ou=MailUser,ou=UMS,dc=europatentdienst,dc=de";
37			#LDAP Base DN for PosixAccounts
38			my $horde_base_dn = "ou=Horde,ou=UMS,dc=europatentdienst,dc=de";
39			#LDAP Base DN for Horde
40			my $root_dn = "'cn=Manager,dc=europatentdienst,dc=de'";
41			my $root_pass = "MEAS876";
42			# You should know what this means
43			my $ldiffile = "/root/devel/perl/test.ldif";
44			my $ldif_dn_file = "/root/devel/perl/test_dn.ldif";
45			my $ldif_imap_file = "/root/devel/perl/test_imap.ldif";
46			my $ldif_horde_file = "/root/devel/perl/test_horde.ldif";
47			# These files are needed to generate LDIFs-->LDAPADD->LDAPServer
48			my $virtualhost_file = "/etc/mail_test/virtusertable";
49			my $local_host_name_file = "/etc/mail_test/local-host-names";
50			my $genericstable_file = "/etc/mail_test/genericstable";
51			# Your Sendmail Files
52			my $make_bin = "/usr/bin/make";
53			my $make_target = "/etc/mail_test";
54			my $remote_sendmail = "/usr/sbin/rcsendmail";
55			my $sendmail_command = "restart";
56			# I'am tiered now, sure you know what this means
57
58			Main();
59
60			sub GetEnt_Passwd {
61			my @biggest_uid;
62			my @biggest_gid;
63			my @existing_users;
64			my @getent_passwd;
65			my $foreach_counter;
66			@getent_passwd = qx(/usr/bin/getent passwd);
67			foreach (@getent_passwd) {
68			@getent_passwd[$foreach_counter] =~ /(.):x:(\d):(\d)./;
69			if ($2 > $ldap_start_uid && $2 < $ldap_stop_uid) {
70			@existing_users[$foreach_counter] = $1;
71			@biggest_uid[$foreach_counter] = $2;
72			@biggest_gid[$foreach_counter] = $3;
73			}
74			$foreach_counter++;
75			}
76
77			@biggest_uid = sort(NummernSort @biggest_uid);
78			@biggest_gid = sort(NummernSort @biggest_gid);
79			@biggest_uid = reverse(@biggest_uid);
80			@biggest_gid = reverse(@biggest_gid);
81			my $HighestUID = @biggest_uid[0];
82			my $HighestGID = @biggest_gid[0];
83			my $UidNumber = $HighestUID + 1;
84			my $GidNumber = $HighestGID + 1;
85			my %HighestIDs = (HighestUID => $HighestUID,HighestGID => $HighestGID,UidNumber => $UidNumber,GidNumber => $GidNumber);
86			return (%HighestIDs);
87			}
88
89			sub NummernSort {
90			if ($a < $b)
91			{return -1;}
92			elsif($a == $b)
93			{return 0; }
94			else
95			{return 1; }
96			}
97
98			sub GetUserDataCMD {
99			my %UserDaten;
100			print "Vorname: ";
101			my $vorname=<STDIN>;
102			chomp $vorname;
103			print "Nachname: ";
104			my $nachname=<STDIN>;
105			chomp $nachname;
106			print "Domain(info.de): ";
107			my $domain=<STDIN>;
108			chomp $domain;
109			print "Benutzername: ";
110			my $username=<STDIN>;
111			chomp $username;
112			print "Password: ";
113			my $password=<STDIN>;
114			chomp $password;
115			my $imap = "";
116			until ($imap eq "yes" \| $imap eq "no") {
117			print "Imap/HomeDir/ModDav/User_WWW(yes/no):";
118			$imap=<STDIN>;
119			chomp $imap;
120			}
121			print "Email(Name vor dem @):";
122			my $email =<STDIN>;
123			chomp $email;
124			$email = $email."\@".$domain;
125			my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
126			return (%UserDaten);
127			}
128
129			sub GetUserDataAuto {
130			my $vorname="Test";
131			my $nachname="Tester";
132			my $domain="testing.de";
133			my $username="testtester";
134			my $password="test(/&";
135			my $imap="yes";
136			my $email= "testtester"."\@".$domain;
137			my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
138			return (%UserDaten);
139			}
140
141			sub CreateLDAPUser {
142			my $cn = shift;
143			my $user = $cn;
144			my $domain = shift;
145			my $pass = shift;
146			my $surename = shift;
147			my $givenname = shift;
148			my $uidNumber = shift;
149			my $gidNumber = shift;
150			my $homeDir = shift;
151			my $imap = shift;
152			my $email = shift;
153
154			$domain =~ /(.)\.(.)/;
155			my $domain_dn = "ou=".$1."_".$2;
156			my $domain_dir = "/".$1."_".$2;
157
158			my @LDIFDATEI;
159			@LDIFDATEI[0] = "dn: uid=$givenname $surename,$domain_dn,$base_dn\n";
160			@LDIFDATEI[1] = "objectclass: top\n";
161			@LDIFDATEI[2] = "objectclass: posixAccount\n";
162			@LDIFDATEI[3] = "objectclass: shadowAccount\n";
163			@LDIFDATEI[4] = "objectclass: account\n";
164			@LDIFDATEI[5] = "cn: $cn\n";
165			@LDIFDATEI[6] = "uid: $user\n";
166			@LDIFDATEI[7] = "gecos: $givenname $surename\n";
167			@LDIFDATEI[8] = "uidNumber: $uidNumber\n";
168			@LDIFDATEI[9] = "gidNumber: $gidNumber\n";
169			@LDIFDATEI[10] = "homeDirectory: $homeDir\n";
170			@LDIFDATEI[11] = "userPassword: $pass\n";
171			@LDIFDATEI[12] = "loginShell: /bin/false\n";
172
173			if ($imap eq "yes") {
174			my @LDIFHORDEOU;
175			@LDIFHORDEOU[0] = "dn: $domain_dn,$horde_base_dn\n";
176			@LDIFHORDEOU[1] = "ou: $domain_dn\n";
177			@LDIFHORDEOU[2] = "objectclass: top\n";
178			@LDIFHORDEOU[3] = "objectclass: organizationalUnit\n";
179			open(DATEI, ">$ldif_horde_file") \|\| die "Datei nicht gefunden";
180			print DATEI @LDIFHORDEOU;
181			close(DATEI);
182			qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_horde_file)
183			}
184
185			if ($imap eq "yes") {
186			my @LDIFIMAP;
187			@LDIFIMAP[0] = "dn: cn=$givenname $surename,$domain_dn,$horde_base_dn\n";
188			@LDIFIMAP[1] = "objectclass: organizationalPerson\n";
189			@LDIFIMAP[2] = "objectclass: inetOrgPerson\n";
190			@LDIFIMAP[3] = "objectclass: person\n";
191			@LDIFIMAP[4] = "objectclass: hordePerson\n";
192			@LDIFIMAP[5] = "sn: $surename\n";
193			@LDIFIMAP[6] = "cn: $givenname $surename\n";
194			@LDIFIMAP[7] = "mail: $email\n";
195			@LDIFIMAP[8] = "gn: $givenname\n";
196			open(DATEI, ">$ldif_imap_file") \|\| die "Datei nicht gefunden";
197			print DATEI @LDIFIMAP;
198			close(DATEI);
199			qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_imap_file)
200			}
201
202
203			if (!-e $mailuserpath.$domain_dir) {
204			#if ($imap eq "yes") {
205			my @LDIFOU;
206			@LDIFOU[0] = "dn: $domain_dn,$base_dn\n";
207			@LDIFOU[1] = "ou: $domain_dn\n";
208			@LDIFOU[2] = "objectclass: top\n";
209			@LDIFOU[3] = "objectclass: organizationalUnit\n";
210			open(DATEI, ">$ldif_dn_file") \|\| die "Datei nicht gefunden";
211			print DATEI @LDIFOU;
212			close(DATEI);
213			qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldif_dn_file)
214			}
215
216			open(DATEI, ">$ldiffile") \|\| die "Datei nicht gefunden";
217			print DATEI @LDIFDATEI;
218			close(DATEI);
219
220			qx (/usr/bin/ldapadd -D $root_dn -x -w $root_pass -f $ldiffile)
221			}
222
223			sub HomeDirGet {
224			my $user = shift;
225			my $domain = shift;
226			my $imap = shift;
227			$domain =~ /(.)\.(.)/;
228			my $homedir = $mailuserpath."/".$1."_".$2."/".$user;
229			if ($imap ne "yes") {
230			$homedir = "/dev/null";
231			}
232			return ($homedir);
233			}
234
235			sub HomeDirMake {
236			my $user = shift;
237			my $domain = shift;
238			my $imap = shift;
239			my $uid = shift;
240			my $gid = shift;
241			my $group = shift;
242			$domain =~ /(.)\.(.)/;
243			my $select11 = $1;
244			my $select12 = $2;
245			my $pre_save_path = $mailuserpath;
246			my $domaindir = "/".$select11."_".$select12;
247			my $homedir = $mailuserpath.$domaindir."/".$user;
248			if ($imap eq "yes") {
249			my $homedir = $mailuserpath.$domaindir."/".$user;
250			if (!-e $pre_save_path.$domaindir) {
251			mkdir ($pre_save_path.$domaindir)
252			}
253			if (!-e $pre_save_path.$domaindir."/".$user) {
254			mkdir ($pre_save_path.$domaindir."/".$user)
255			}
256			if (!-e $pre_save_path.$domaindir."/".$user.$mail_root) {
257			mkdir ($pre_save_path.$domaindir."/".$user.$mail_root)
258			}
259			if (!-e $pre_save_path.$domaindir."/".$user.$user_www_root) {
260			mkdir ($pre_save_path.$domaindir."/".$user.$user_www_root)
261			}
262			if(!-e $homedir) {
263			$homedir = "/dev/null";
264			return ($homedir);
265			}
266			else {
267			qx (/bin/chown -R $user:$group $pre_save_path$domaindir"/"$user)
268			#qx (/bin/chmod -R 750 $pre_save_path.$domaindir.$group_www_root)
269			}
270			if (!-e $pre_save_path.$domaindir.$group_www_root) {
271			qx (/bin/cp -R $pre_save_path$template $pre_save_path$domaindir);
272			qx (/bin/chown -R root:$group $pre_save_path$domaindir$group_www_root);
273			#qx (/bin/chmod -R 750 $pre_save_path.$domaindir.$group_www_root)
274			}
275			}
276			else {
277			$homedir = "/dev/null";
278			return ($homedir);
279			}}
280
281			sub Group {
282			#to implemented
283			my $gid = shift;
284			my $domain = shift;
285			$domain =~ /(.)\.(.)/;
286			my $group_name = $1."_".$2;
287			qx (/usr/sbin/groupadd -g $gid $group_name);
288			return ($group_name);
289			}
290
291			sub GetUserDataHTML {
292			my %UserDaten;
293			my $cgi = new CGI;
294			my @Feldnamen = $cgi->param();
295
296			print $cgi->header(),
297			$cgi->start_html('CGI-Feedback'),
298			$cgi->h1('UMS-Feedback');
299			#,$cgi->i('comments.pl'));
300			my @Feldinhalte;
301			my $counter = 0;
302			foreach my $Feld (@Feldnamen) {
303			#print $cgi->b('Feldname: '),
304			# $Feld,
305			# $cgi->b(', Inhalt: '),
306			# $cgi->param($Feld), "<br>";
307			@Feldinhalte[$counter]=$cgi->param($Feld);
308			$counter++;
309			}
310			print $cgi->end_html();
311
312			my $vorname = @Feldinhalte[0];
313			my $nachname = @Feldinhalte[1];
314			my $username = @Feldinhalte[2];
315			my $password = @Feldinhalte[3];
316			my $domain = @Feldinhalte[4];
317			my $email = @Feldinhalte[5];
318			my $imap = @Feldinhalte[6];
319			$email = $email."\@".$domain;
320
321			print $cgi->h1("$vorname"),
322			$cgi->h1("$nachname"),
323			$cgi->h1("$username"),
324			$cgi->h1("$password"),
325			$cgi->h1("$domain"),
326			$cgi->h1("$email"),
327			$cgi->h1("$imap"),"<br>";
328
329			my %UserDaten = (Vorname=>$vorname,Nachname=>$nachname,Domain=>$domain,Benutzername=>$username,Password=>$password,Imap=>$imap,EMail=>$email);
330			return (%UserDaten);
331			}
332
333			sub SendmailConfig {
334			my $user = shift;
335			my $domain = shift;
336			my $email = shift;
337
338			open(DATEI, "<$virtualhost_file") \|\| die "Datei nicht gefunden";
339			my @Zeilen = <DATEI>;
340			close(DATEI);
341			my @NeueZeilen;
342			@NeueZeilen[0] = $email." ".$user."\n";
343			foreach(@NeueZeilen) {
344			push(@Zeilen,$_);
345			}
346			open(DATEI, ">$virtualhost_file") \|\| die "Datei nicht gefunden";
347			print DATEI @Zeilen;
348			close(DATEI);
349
350			$domain =~ /(.)\.(.)/;
351			my $domain_dir = "/".$1."_".$2;
352			if (!-e $mailuserpath.$domain_dir) {
353			open(DATEI, "<$local_host_name_file") \|\| die "Datei nicht gefunden";
354			my @Zeilen = <DATEI>;
355			close(DATEI);
356			my @NeueZeilen;
357			@NeueZeilen[0] = $domain."\n";
358			foreach(@NeueZeilen) {
359			push(@Zeilen,$_);
360			}
361			open(DATEI, ">$local_host_name_file") \|\| die "Datei nicht gefunden";
362			print DATEI @Zeilen;
363			close(DATEI);
364			}
365
366			open(DATEI, "<$genericstable_file") \|\| die "Datei nicht gefunden";
367			my @Zeilen = <DATEI>;
368			close(DATEI);
369			my @NeueZeilen;
370			@NeueZeilen[0] = $user." ".$email."\n";
371			foreach(@NeueZeilen) {
372			push(@Zeilen,$_);
373			}
374			open(DATEI, ">$genericstable_file") \|\| die "Datei nicht gefunden";
375			print DATEI @Zeilen;
376			close(DATEI);
377			sleep 2;
378			chdir ($make_target);
379			qx($make_bin);
380			chdir ($current_dir);
381			sleep 2;
382			qx($remote_sendmail restart);
383			sleep 2;
384			}
385
386			sub Main {
387			my %UserData;
388			if ($howtotell eq "TEST"){
389			%UserData = GetUserDataAuto();
390			}
391			if ($howtotell eq "CMD"){
392			%UserData = GetUserDataCMD();
393			}
394			if ($howtotell eq "HTML"){
395			%UserData = GetUserDataHTML();
396			}
397			else {
398			die;
399			}
400			my %UIDs = GetEnt_Passwd();
401			my $Group_Name = Group($UIDs{'GidNumber'},$UserData{'Domain'});
402			my $HomeDirGet = HomeDirGet($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Imap'});
403			CreateLDAPUser($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Password'},$UserData{'Nachname'},$UserData{'Vorname'},$UIDs{'UidNumber'},$UIDs{'GidNumber'},$HomeDirGet,$UserData{'Imap'},$UserData{'EMail'});
404			my $sendmail = SendmailConfig($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'EMail'});
405			my $HomeDirMake = HomeDirMake($UserData{'Benutzername'},$UserData{'Domain'},$UserData{'Imap'},$UIDs{'UidNumber'},$UIDs{'GidNumber'},$Group_Name);
406			}
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26