[Perl] Новичкам: задаем вопросы

....

 

Это скрипт массового добавления доменов для 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();

 

Есть ли кейлоггер в Perl язык? Я не смог найти / сделать это!

Спасибо!

 

1)тема про перл, код на пхп. По этому не работает..
2)http://php.net/manual/en/function.mysqli-connect.php

 

delete

 

Товарищи кодеры, вопрос.
Есть список из тысячи буквонаборов длинною в 16 букв каждая (далее "база"). Есть буквонаборы, которые я введу, и они могут не совпасть с базой на 100%. Так вот, как можно реализовать, чтобы скрипт выбрал самый подходящий вариант из базы? Спасибо

 

http://search.cpan.org/~mlehmann/String-Similarity-1.04/Similarity.pm

 

Написал многопоточный брутер. Если работает без прокси, больше 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
А есть ли подобная команда на перле? И пример использования, пожалуйста, кому не сложно.

 

подскажите какое cms miped ru

 

Авторизуюсь на сайте, а он мне вместо кабинета вот такое выдаёт. Я не знаю что с этим делать, 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 ?