# HG changeset patch
# User devi
# Date 1150093938 -10800
# Node ID 05e99d32f1f5dc01382879cf24e913f040feaee6
# Parent 4c02cf4123ee4b88dd7c76b74147f0a2d567fa36
$1 заменена на \1
Иначе не работало
Странно.... Проверить
diff -r 4c02cf4123ee -r 05e99d32f1f5 l3-backend
--- a/l3-backend Sun Jun 11 22:07:42 2006 +0300
+++ b/l3-backend Mon Jun 12 09:32:18 2006 +0300
@@ -102,7 +102,16 @@
}
close(OUT);
- while ($saved_data =~ m@<(session|command)>(.*)@sg) {
+ #open(LOG, ">>", "/tmp/l3-backend.log");
+ #print LOG "Saved data:$saved_data\n";
+ #close(LOG);
+
+ while ($saved_data =~ m@<(session|command)>(.*)@sg) {
+
+ #open(LOG, ">>", "/tmp/l3-backend.log");
+ #print LOG "Found element $1\n";
+ #close(LOG);
+
my $element_name = $1;
my $element = $2;
if ($element =~ m@(.*?)@msg) {
diff -r 4c02cf4123ee -r 05e99d32f1f5 l3-frontend
--- a/l3-frontend Sun Jun 11 22:07:42 2006 +0300
+++ b/l3-frontend Mon Jun 12 09:32:18 2006 +0300
@@ -1191,6 +1191,11 @@
$control_form .= "\n"
. "\n";
+
+ # Управляющая форма отключена
+ # Она слишеком сильно мешает, нужно что-то переделать
+ $control_form = "";
+
my $result;
$result = <
diff -r 4c02cf4123ee -r 05e99d32f1f5 l3config.pm
--- a/l3config.pm Sun Jun 11 22:07:42 2006 +0300
+++ b/l3config.pm Mon Jun 12 09:32:18 2006 +0300
@@ -84,7 +84,7 @@
"detach" => "yes",
"agent_pidfile" => "$ENV{HOME}/.lilalo/l3-agent.pid",
- "backend_address" => "192.168.18.254",
+ "backend_address" => "192.168.15.254",
"backend_port" => "18030",
"backend_pidfile" => "/tmp/l3-backend.pid",
"backend_datafile" => "/var/lilalo/lablogs-xml/backend.xml",