"веб морда" для хостинга бесплтаные

[Proftp]

кто какие использует для freebsd? (бесплтаные)

кстате идея появилась написать веб интервейс для укправления веб сервара, я написал но не доделан еще, он создает аккаунт типо на сервере...

я ставил webmin (юзермин)
у Apache suexec работает

но webmin пишет, что suexec нету!!!

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

бесплатные не юзаю...
себе - парвлю руками всё, у клиентов, которых админю - directadmin - но он не бесплатный.

[serge]

ISPManager - но тож платный. Хотя сколько за ним косяков замечено, то по мне лучше и качественней на консольных скриптах работать. А для клиентов можно и минимальную по возможностям бесплатную поискать.
Сходи на sourceforge.net - там есть то что ищещ 100%. Недавно сам искал.

[100kg]

a Cpanel и plesk, как раз для этих задач сделан?

[Proftp]

а йа не крупная компания, чтобы лицензии покупать бешаные

[Alex Keda]

директадмин 15 бексов в месяц стоит.
анлим - 300 чтоли

[serge]

если б не приходилось за платными системами еще и косяки исправлять, то цены б им небыло их немного, но периодически жизнь портят.

[Proftp]

кстате, голдентелеком без этих панелек

В СНГ кажеться боле 80000 пользователей на хостинге с апаче 1.3!

я пишу, но еще не доделано, скоро покажу...

там будет
1) содание аккаунта
2) удаление
3) предуприждение ,продление аккаунта
4) логи
5) конфиг днс, виртуал хост, крон и т.д.

сори за оффтоп

[Кирилл]

Не хотелось бы показаться "велосипедистом"... Но сейчас я тоже хочу создать свою хостнг-панель. Ибо платить за глюкавые платные панели не хочу, а воровать (дезендить и тд) - севесть не позволит :-)

Так вот, если у кого-нибудь есть желание присоединиться, буду весьма рад компании.
Кстати, топикстартер тоже мог бы помочь общественности своими наработками.

Мой ящик - кирилл точка киев собака gmail.com


ЗЫЖ. Речь не идет о том, чтобы написать "абы работало". Хочется нормальную панельку на шаблонах, со встроенным биллингом, авторегистрацией доменов, приемом оплаты и т.д.
С технической стороны я в данный момент вижу это как библиотеку PHP-скриптов, написанных исключительно под 5 версию (про поддержку 4 ветки и речи не может быть). Вероятно использование фреймворком - ZF или Cake

[Alex Keda]

идея хорошая, но надо либо садиться и писать самому, либо организовывать группу товарищей которые будут периодически приходить и уходить из проекта..

[zg]

Речь не идет о том, чтобы написать "абы работало". Хочется нормальную панельку на шаблонах, со встроенным биллингом, авторегистрацией доменов, приемом оплаты и т.д.

опыт разработки есть? или администрирования?

как я понимаю ты хочешь написать PLESK, который стоит 300-500 долларов в год

Основная проблема таких проектов - цель, если бесплатность и свободное распространение, то будут ломать и красявостей первое время не будет, если "нормальная панелька на шаблонах", то потонет ещё на стадии первого дизайна, если основной целью будет "не а бы что", то потребуются средства и постоянный доход, если панелька нужна просто так, то и браться не стоит - плати 100$ в год ру-центру и забот не знай.

[ProFTP]

Код: Выделить всё

#use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print "Content-type: text/html\n\n";

sub head_page {

}

sub error_maxmessage {

}


sub error_nomessage {

}

sub end_page {

sub filelock {
flock(DB,2);
}
sub fileunlock {
flock(DB,8);
}


sub get_time {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++;
$year+=1900;
if ($mday<10) { $mday="0$mday"; }
if ($mon<10) { $mon="0$mon"; }
if ($min<10) { $min="0$min"; }
$date="$mday.$mon.$year";
$time="$hour:$min";
$cur_all_day=$mday+$mon*30+$year*365;
}



$query = CGI->new();
$login=$query->param("login");
$passwd=$query->param("passwd");
$city=$query->param("city");
$email=$query->param("email");
$title=$query->param("title");


if (! length($login)) {
&head_page;
&error_maxmessage;
&end_page;
exit;
}

$login =~ s/^\\s+//;
$login =~ s/\\s+$//;

# < >
if ((15 < length($login)) || ( 1 > length($login))) {
&head_page;
&error_maxmessage;
&end_page;
exit;
}



unless ($login =~ /^[a-z0-9]+$/) {
print "Адрес не соответствует форме foo2";
exit;
}

if (! length($email)) {
print "no email";
exit;
}

if ($email =~ /^[a-zA-Z_\\.-][a-zA-Z0-9_\\.-\\d]*\\@[a-zA-Z\\.-\\d]+\\.[a-zA-Z]{2,4}$/) {
print "no email";
exit;
}

if (! length($passwd)) {
print "no email";
exit;
}


if ((15 < length($passwd)) || (6 > length($passwd))) {
print "no passwd";
exit;
}


if (! length($title)) {
print "no title";
exit;
}


if ((30 < length($title)) || (2 > length($title))) {
print "2 до 30";
exit;
}



open (MYFILE, "1.txt") || die "awibka";

my(@sdata)=<MYFILE>;
foreach $str (@sdata) {
($iidd, $llog22, $passswd, $cityy, $emaaa, $title, $ip)=split(/\;/, $str);

if (grep { /^$login$/ } $llog22) {
print "or login";
exit;
}

if (grep { /^$email$/ } $emaaa) {
print "or email";
exit;
}

}

close(MYFILE);


my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost","логин", "пароль") || die $DBI::errstr;

my $result = $dbh->prepare("CREATE DATABASE IF NOT EXISTS ${user_name}_db");
my $result2 = $dbh->prepare("GRANT ALL PRIVILEGES on $user_name.* to $user_name@localhost IDENTIFIED BY '$user_passwd_m' ");

$result->execute();
$result2->execute();


$result->finish();
$result2->finish();


$dbh->disconnect();

get_time();



system("mkdir /usr/home/$login") && die "no mkdir";


#my $Result = system("mkdir /usr/home/$login");
#if ($Result < 1) {print "Не могу создать\n"; exit;}

system("cp -R /usr/home/pp/ /usr/home/$login") && die "no copy";

system("chown www:www /usr/home/$login") && die "";


open (DB, "1.txt") || die print "Cannot open file $basefile: $!";
@base = <DB>;
close(DB);

open (DB, ">1.txt") || die print "Cannot open file $basefile: $!";
&filelock;
truncate(DB,0);
print DB "000;$login\;$passwd\;$city\;$email\;$title\;$time\;$date\;$ippp\;\n";
print DB @base;
&fileunlock;
close(DB);
print "ok";

[ProFTP]

я еще не делал!! обещал показать , жизнь коротка времени нету делать
пхп не люблю, на перле можно сделать просто и чтобы не поломали

что-то на подобе вот этого ho.com.ua только на много лучше...

[zg]

пхп не люблю, на перле можно сделать просто и чтобы не поломали

уже сделал "защищённый" скрипт

my $result2 = $dbh->prepare("GRANT ALL PRIVILEGES on $user_name.* to $user_name@localhost IDENTIFIED BY '$user_passwd_m' ");

сколько не смотрю скрипты на перле, все почему-то не умеют пользоваться интерфейсом базы данных... а жаль. Перл великий язык, но пользоваться им умеют единицы.

[ProFTP]

его делал до того как топик создал

вы бы сказали что именно... потому что перл все по разному используют...

[zg]

вы бы сказали что именно... потому что перл все по разному используют...

функция prepare должна использоваться для подготовки запроса к многократному выполнению, плюс там можно использовать шаблоны, которым можно передавать параметры, получая таким образом большую скорость многократного выполнения одно запроса и/или исключить возможность инъекции.

На перле я не пишу, но с интрефейсом баз данных знаком, ссылку могу дать на PDO http://ru2.php.net/manual/ru/function.PDO-prepare.php обрати особое внимание на второй пример, каким образом там используется функция prepare.

[ProFTP]

опять захотелось писать панельку...

[jeehadina]

directadmin рулит

[Alex Keda]

15 баксов в месяц...
плюс засирает систему...
не рулит.

[ProFTP]

а кто что хотел увидеть в панельке, может что-то новое? если делать, то передать как в cpanel, один в один, только на perl...? или по другому?