#!/usr/bin/perl use DBI(); use CGI qw(:standard); $dblogin = param("dblogin"); $dbologin = param("dbologin"); $dbpwd = param("dbpwd"); $dbaccess = param("dbaccess"); $dbenabled = param("dbenabled"); $act = param("act"); $old = param("old"); $authl = param("authl"); $authp = param("authp"); system "./auth.cgi users.cgi $authl $authp"; $retcode = $? / 256; if ($retcode ne "1") {exit;} my $cooke = cookie('mail.miranet'); if ($cooke eq "") {print ""; exit;} if ($cooke ne "1") {print "

Forbidden

Недостаточно прав"; exit;} #print "Content-type: text/html\n\n"; system("./ustat $rip |grep 1 > $rip"); open(patt,"<./patt_n1.html")||die "Pattern file 1 not found"; while() { print; } close(patt); $database="mail"; $hostname="127.0.0.1"; $port="3306"; $dbuser="root"; $dbpasswd="zopa25703"; $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"; $dbh = DBI->connect_cached($dsn, $dbuser, $dbpasswd) || die; if ($act eq "delete") { $sth = $dbh->prepare("DELETE FROM manage WHERE login=\"$dblogin\""); $sth->execute(); $act = ""; } if ($act eq "add") { $sth = $dbh->prepare("INSERT INTO manage VALUES (\"$dblogin\",\"$dbpwd\",\"$dbaccess\",\"$dbenabled\")"); $sth->execute(); $act = ""; } if ($act eq "change") { $sth = $dbh->prepare("UPDATE manage SET login=\"$dblogin\",password=\"$dbpwd\",access=\"$dbaccess\",enabled=\"$dbenabled\" WHERE login=\"$dbologin\""); $sth->execute(); $act = ""; } if ($act eq "edit") { print "
"; print ""; print ""; print ""; print ""; print ""; $sth = $dbh->prepare("SELECT * FROM manage WHERE login=\"$dblogin\""); $sth->execute(); ($dblogin, $dbpwd, $dbaccess, $dbenabled) = $sth->fetchrow_array(); if ($dbenabled eq "1") {$yes = "selected"; $no = "";} else {$no = "selected"; $yes = "";} print "
Имя пользователяПарольДоступВключеноДействие
 "; print "
"; print "
| Учётные записи | Пользователи | Настройка доменов |"; } if ($act eq "") { print "
"; print ""; print ""; print ""; print ""; print ""; $sth = $dbh->prepare("SELECT * FROM manage"); $sth->execute(); while (my ($dblogin, $dbpwd, $dbaccess, $dbenabled) = $sth->fetchrow_array()) { if ($dbaccess eq "1") {$dbaccess1 = "Полный";} else {$dbaccess1 = $dbaccess;} if ($dbenabled eq "1") {$dbenabled1 = "Да";} else {$dbenabled1 = "Нет";} if ($dbenabled eq "1") {$fc="#ffffff"; $fc1="#00ddff";} else {$fc="#ff7777"; $fc1="#eeaacc";} print ""; print ""; print ""; print ""; print ""; } print ""; print "
Имя пользователяПарольДоступВключеноДействие
$dblogin********$dbaccess1  
$dbenabled1  
Удалить Изменить
"; print "
"; print "
| Учётные записи | Настройка доменов |"; } $dbh->disconnect(); system("./ustat $rip |grep 1 > $rip"); open(patt,"<./patt_n2.html")||die "Pattern file 2 not found"; while() { print; } close(patt);