lilalo

diff l3-backend @ 99:05e99d32f1f5

$1 заменена на \1
Иначе не работало
Странно.... Проверить
author devi
date Mon Jun 12 09:32:18 2006 +0300 (2006-06-12)
parents 4c02cf4123ee
children 53b890d1ae90
line diff
     1.1 --- a/l3-backend	Sun Jun 11 22:07:42 2006 +0300
     1.2 +++ b/l3-backend	Mon Jun 12 09:32:18 2006 +0300
     1.3 @@ -102,7 +102,16 @@
     1.4  		}
     1.5  		close(OUT);
     1.6  
     1.7 -        while ($saved_data =~ m@<(session|command)>(.*)</$1>@sg) {
     1.8 +            #open(LOG, ">>", "/tmp/l3-backend.log");
     1.9 +            #print LOG "Saved data:$saved_data\n";
    1.10 +            #close(LOG);
    1.11 +
    1.12 +        while ($saved_data =~ m@<(session|command)>(.*)</\1>@sg) {
    1.13 +
    1.14 +            #open(LOG, ">>", "/tmp/l3-backend.log");
    1.15 +            #print LOG "Found element $1\n";
    1.16 +            #close(LOG);
    1.17 +            
    1.18              my $element_name = $1;
    1.19              my $element = $2;
    1.20              if ($element =~ m@<l3cd>(.*?)</l3cd>@msg) {