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

Forbidden

Недостаточно прав"; exit;} $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; #print "Content-type: text/html\n\n"; open(patt,"<./patt_n1.html")||die "Pattern file 1 not found"; while() { print; } close(patt); #------------------------------------------------------------------ print "

Регистрация почтового ящика

Почтовый ящик:	\@
Имя пользователя:	как имя почтового ящика
Пароль:
Повтор пароля:
Лимит:	МБ (не более 1024)
Коментарий:

\n | Учётные записи |"; if ($cooke eq "1") {print " Настройка доменов |";} print ""; $dbh->disconnect(); #------------------------------------------------------------------ open(patt,"<./patt_n2.html")||die "Pattern file 2 not found"; while() { print; } close(patt); system ("../../counter.cgi mail");