[BACK]Return to index.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / www / htdocs

Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.251 and 1.315

version 1.251, 2001/07/31 14:22:00 version 1.315, 2001/09/18 13:52:20
Line 1 Line 1
 @main[]  @main[]
 ^connect[pgsql://paf:paf123@six/paf]{  ^xslt[]
 #       ^void:sql{create table lotest (test oid)}  OK
         ^void:sql{insert into lotest (test) values (/*:test*/'пр\'иве')}  
         $проверка[^table::sql{select test from lotest}]  @xslt[]
         ^проверка.menu{  $dom[^dom::set{<?xml version="1.0" encoding="windows-1251"?>
 #               ^проверка.line[]:<pre>^untaint[as-is]{$проверка.test}</pre>  
 #               ^проверка.line[]:<pre>^untaint[html]{$проверка.test}</pre>  <people>
 #               ^проверка.line[]:<pre>$проверка.test</pre>          <man id="1">
                 ^проверка.line[]:$проверка.test                  <name>PAF</name>
         }[<br>]          </man>
         <hr>          <man id="2">
                   <name>ПИФ</name>
 ^rem{          </man>
 #       ^void:sql{create table texttest (body text)}  </people>
         ^void:sql{insert into texttest (body) values ('приветприветприветприветприветприветприветприветприветприветприветприветпривет  }]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  ^show-dnode[$dom]<hr>
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  $people[^dom.xpath[*/man[@id=1]]]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  #^show1[]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  ^show-dnodes[$people]<hr>
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  @show1[]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  ^for[i](0;^people._count[]-1){
 приветприветприветприветприветприветприветприветприветприветприветприветпривет      $node[$people.$i]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет          $node.first-child.value: 
 приветприветприветприветприветприветприветприветприветприветприветприветпривет                  $pattributes[$node.parent.attributes]
 приветприветприветприветприветприветприветприветприветприветприветприветпривет                  ^if(^pattributes._count[]){
 приветприветприветприветприветприветприветприветприветприветприветприветпривет                          $pattributes.id.name=$pattributes.id.value
 приветприветприветприветприветприветприветприветприветприветприветприветпривет                  }
 приветприветприветприветприветприветприветприветприветприветприветприветпривет          <br>
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 приветприветприветприветприветприветприветприветприветприветприветприветпривет  
 ')}  
         $проверка[^table::sql{select * from texttest}]  
         ^проверка.menu{  
                 ^проверка.line[]:$проверка.body  
         }[<br>]  
         <hr>  
 }  }
 #    ^void::sql{insert into хрен (a) values (1)}  
         2*2=$id(^int:sql{select 2*2})  @show-dnodes[array][i]
         $id<br>  ^for[i](0;^array._count[]-1){
           ^show-dnode[$array.$i]
         $пресса[^table::sql{select * from aaa}]  
 #       $a[^пресса.columns[]]^a.menu{$a.column}  
         ^пресса.menu{  
                 $пресса.val  
         }[<br>]  
 }  }
 <hr>  
 $cookie:reg0[$.value[8reg0]$.expires[session]]  @show-dnode[dnode;level]
 $cookie:reg1[$.value[8reg1]$.expires[session]]  $level
 $cookie:reg0  ^if($dnode.type eq element){
 $cookie:reg1          &lt^;$dnode.name
   $pairs[$dnode.attributes]
 <hr>  ^if(def $pairs){
 ^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{          $names[^pairs._keys[]]
 #    ^void::sql{insert into хрен (a) values (1)}          ^names.menu{$names.key=$pairs.[$names.key].value }
         $id(^int:sql{select 5})  
         $id  
   
         $пресса[^table::sql{select * from press where header='$form:h'}]  
         ^пресса.menu{  
                 $пресса.id, $пресса.date_row, $пресса.header, $пресса.short_text^rem{, $пресса.full_text}, $пресса.mode  
         }[<br>]  
 }  }
 <hr>  &gt^;
 #$response:status[404]  }{[$dnode.type]}
 #$response:location[/inh.html]   
 #<hr>  ^if(def $dnode.value){'$dnode.value'}<br>
 $таблица[^table::set{a  b  ^if(def ${dnode.first-child}){^show-dnode[$dnode.first-child]($level+1)}
 1       2  ^if(def ${dnode.next-sibling}){^show-dnode[$dnode.next-sibling]($level)}
 11      22  
 }]  ^if($dnode.type eq element){
 ^$таблица.fields.a=$таблица.fields.a<br>  $level&lt^;/$dnode.name&gt^;<br>
 ^$таблица.a=$таблица.a<br>  
 <hr>  
 $n[z]  
 =^n.match[sdf][]{123}=  
 <hr>  
   
 =$3=  
 <hr>  
   
 $строка[123]  
 ^строка.match[(.);g]{($match.1)}  
 <hr>  
 $a{  
         $b[1]  
 }  }
 ^$b=$b<br>  
 ^$a!$a<br>  
 ^$b=$b<br>  
 <hr>  
Removed from v.1.251  
changed lines
  Added in v.1.315

E-mail: