Это скрипт массового добавления доменов для ispmanager, прописываю корневую папку '/www/' , а создается '/www/название домена' . Помогите убрать название домена из корневой папки. Code: #!/usr/bin/perl # Title: WWW Dpmains Mass Create plugin # Version: 1.5.1 (29/Aug/2012) # Authors: ISP system, Dmitry # License: GPL # Site: http://usings.ru BEGIN { push @INC, '/usr/local/ispmgr/lib/perl' } *STDERR = *STDOUT; use CGI; use POSIX; use XML::LibXML; use Mgr; use warnings; use strict; my $mgr_cookie_name = 'ispmgr4'; my $Q = new CGI; my $xml = XML::LibXML::Document->new ('1.0', 'utf-8'); my $xmlroot; sub createroot ($) { $xmlroot = $xml->createElement ($_[0]); $xml->setDocumentElement ($xmlroot); } sub addelem ($$) { my $el = $xml->createElement ($_[1]); $_[0]->appendChild ($el); return $el; } sub out () { print $xml->toString(0); } sub userips ($) { my @r; my ($doc, $root) = Mgr::query ('softinfo', []); my $param = ($_[0] eq 'root' || ($root->findnodes('mgrver'))[0]->textContent =~ /Lite/) ? [] : [['su', $_[0]]]; ($doc, $root) = Mgr::query ('wwwdomain.edit', $param, 'devel'); my $slist = ($root->findnodes('slist[@name="ip"]'))[0]; return $slist; } sub iplist ($$) { foreach (@{$_[1]}) { my $ip = addelem ($_[0], 'val'); $ip->setAttribute ('key', $_); $ip->appendText ($_); } } sub features ($) { my @features; (undef, my $f) = Mgr::query ('featurelist', []); my $php = addelem ($xmlroot, 'slist'); $php->setAttribute ('name', 'php'); my $phpnone = addelem ($php, 'msg'); $phpnone->appendText ('phpnone'); foreach my $feature ($f->findnodes('elem/*')) { my $en = $feature->nodeName; if ($en eq 'phpcgi' || $en eq 'phpmod' || $en eq 'phpfcgi') { my $pe = addelem ($php, 'msg'); $pe->appendText ($en); } } } sub form ($) { my $userips = userips ($_[0]->{username}); createroot ('doc'); my $docroot = addelem ($xmlroot, 'docroot'); $docroot->appendText ('auto'); my $wwwalias = addelem ($xmlroot, 'wwwalias'); $userips->setOwnerDocument($xml); $xmlroot->addChild ($userips); features ($_->{username}); addelem ($xmlroot, 'elid'); out (); } sub create ($) { my @domains = split (/\s+/, $Q->param('domain')); my $docroot = $Q->param('docroot'); if ($docroot ne 'auto') { $docroot .= '/' if substr($docroot, -1, 1) ne '/'; } my @param = ( ['admin', $Q->param('admin')], ['charset', $Q->param('charset')], ['index', $Q->param('index')], ['php', $Q->param('php')], ['ip', $Q->param('ip')], ['sok', 'ok'], ['su', $_[0]->{username}] ); if ($Q->param('wwwalias')) { foreach (@domains) { Mgr::query ('wwwdomain.edit', [ ['domain', $_], ['alias', 'www.' . $_], ['docroot', $docroot . ($docroot eq 'auto' ? '' : $_)], @param ]); } } else { foreach (@domains) { Mgr::query ('wwwdomain.edit', [ ['domain', $_], ['docroot', $docroot . ($docroot eq 'auto' ? '' : $_)], @param ]); } } my $dir = $Q->param ('directory'); if ($dir ne '') { my @dirs; foreach (@domains) { (undef, my $r) = Mgr::query ('wwwdomain.edit', [ ['elid', $_]]); my $docroot = ($r->findnodes ('docroot'))[0]; if ($docroot) { $docroot = $docroot->textContent; push @dirs, $docroot; } } my @pw = getpwnam($_[0]->{username}); setuid($pw[2]); setgid($pw[3]); chdir($pw[7]); foreach (@dirs) { `cp -pr "$dir/"* '$_'`; } } createroot ('doc'); my $ok = addelem ($xmlroot, 'ok'); $ok->appendText ('restart'); out (); } my $sok = $Q->param('sok') || 0; my $ses = Mgr::session ($mgr_cookie_name, $Q); if (!defined $ses) { createroot ('doc'); my $error = addelem ($xmlroot, 'error'); $error->setAttribute ('code', 100); $error->appendText ('Auth failed'); out (); } else { if ($sok) { create ($ses); } else { form ($ses); } }
Code: Mgr::query ('wwwdomain.edit', [ ['domain', $_], ['alias', [b]'www.'[/b] . $_], ['docroot', $docroot . ($docroot eq 'auto' ? '' : $_)], @param ]);
Инфа не добавляется в базу Mysql Подскажите пожалуйста вот код но почему то не заносится инфа в базу данных. что тут не так? <?php $error = array(); if(!empty($_POST)) { $name = "Имя"; $email = "E-mail"; if(empty($_POST['name'])) $error[] = "Текстовое поле $name не заполнено"; if(empty($_POST['email'])) $error[] = "Текстовое поле $email не заполнено"; if(empty($error)) { echo $_POST['name']."<br/>"; echo $_POST['email']."<br/>"; echo $_POST['about']."<br/>"; exit(); } } if(!empty($error)) { foreach($error as $err) { echo "<span style=\"color:red\">$err</span><br/>"; } } $name = $_POST['name']."<br/>"; $email = $_POST['email']."<br/>"; $about = $_POST['about']."<br/>"; echo $name, $email, $about; $host = 'localhost'; $database = 'form'; mysqli_connect('localhost', 'root', "", 'form'); $sql = "insert into `book` (name, email, about)"; echo "$sql"; die();
1)тема про перл, код на пхп. По этому не работает.. 2)http://php.net/manual/en/function.mysqli-connect.php
Товарищи кодеры, вопрос. Есть список из тысячи буквонаборов длинною в 16 букв каждая (далее "база"). Есть буквонаборы, которые я введу, и они могут не совпасть с базой на 100%. Так вот, как можно реализовать, чтобы скрипт выбрал самый подходящий вариант из базы? Спасибо
Написал многопоточный брутер. Если работает без прокси, больше 20 потоков ( и то не всегда ) не получается поставить, начинает сразу же очень резко жрать оперативку. А если подключить прокси то уже нормально тянет хоть 150 потоков. В чем может быть проблема ? Многопоточность реализована, как в скриптах у Каими. $trl[$_] = threads->create(\&main) for 0..$threads - 1; $_->join for @trl; sub main {} Еще бывает, что скрипт сам завершает работу. Работает , работает , раз и завершился. Как узнать причину ?
Как установить модули (а точнее - HTML::Template) на Perl (localhost). Гуглил, нашел только какие-то команды для чего-то. Консоль что-ли? Куда вводить? Как подключать?
А точнее нужно знать вашу ОС, скорее всего вы нашли команды для *nix процесс установки различен для разных ОС для Windows [путь куда установлен perl]/bin/ppm.bat и команда install HTML::Template
Вопрос имею. Господа, какой командой можно внедрить в сценарий перл свой php код? Для примера, чтобы внедрить сторонний код в PHP, используется php функция virtual(); На SSI это будет инструкция include virtual А есть ли подобная команда на перле? И пример использования, пожалуйста, кому не сложно.
Авторизуюсь на сайте, а он мне вместо кабинета вот такое выдаёт. Я не знаю что с этим делать, 2 дня в гугле потерял в попытке найти подобный случай, подскажите в какую сторону ковырять дальше. кидает меня на адрес вида HTML: https://site.ru/cnt/auth_login.jsp;jsessionid=C2EDA585AC4E5FB29F6A2907BEA36514 HTML: <html> <head> <title>C</title> <meta http-equiv="Cache-control" content="no-cache; charset=windows-1251"> </head> <body> <form id='goto' name='goto' action='j_security_check' method="post"> <input type="hidden" name="j_username" value="user" /> <input type="hidden" name="j_password" value=""/> </form> <SCRIPT LANGUAGE="javascript" for="window"> document.forms['goto'].submit(); </SCRIPT>
А стоит ли?? Всем привет. Вот, решился взяться за Perl, НО стоит ли оно того? Интересует именно возможность заработка на нем в последствии. Ибо есть питон, который похож, да и фриланса на нем куда больше, но душу не греет, так скажем. Что подскажете?
пробую написать код загрузки плагина в вордпрес, но что то не как код в снифере вот и в итоге постояно ошибка
рылся в гугле не нашел(( как через lwp ограничить размер получаемой нтмл страници, например мне не нужно грузить все 300кб сайта, а только первый 10-20кб
Да ладно? А в официальной документации не пробовал искать http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm ?