|
|
| version 1.169, 2001/05/08 06:00:47 | version 1.178, 2001/05/10 12:42:41 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^eval(1<2) | $t[^table:set{key value |
| 1 v1 | |
| 2 v2}] | |
| $h[^t.hash[key]] | |
| ^rem{ | |
| ^connect[$SQL.connect-string]{ | |
| $shit[^taint[our's]] | |
| # $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}] | |
| $paf[^table:sql{select * from paf order by id desc}(5)] | |
| $paf{ | |
| ^empty{query result is empty}{ | |
| <table border=1> | |
| <tr><td>id</td><td>name</td><td>age</td></tr> | |
| ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>} | |
| </table> | |
| }} | |
| } | |
| } | |
| <HR> | |
| $abc{} | |
| $tn[^table:set[nameless]{a1 b1 | |
| a2 b2 | |
| }] | |
| $x[^tn.locate[0;a2]] | |
| ^$tn.1=$tn.1 | |
| <hr> | |
| $t0[^table:set{key a b | |
| 1 a1 | |
| 2 a2 b2 | |
| }] | |
| ^if(^t0.locate[key;2] && "a" ne "b"){y;n} | |
| <hr> | |
| $currentFolder[/a/b] | |
| $path[^currentFolder.lsplit[/]] | |
| ^path.flip[] | |
| $path{ | |
| ^menu{$0}{,} | |
| } | |
| <hr> | |
| $t1[^table:set{key value | |
| 1 v1 | |
| 2 v2}] | |
| $h1[^t1.hash[key]] | |
| ^h1.default[$value[nothing]] | |
| ^$h1.2.value=$h1.2.value<br> | |
| ^$h1.2x.value=$h1.2x.value<br> | |
| <hr> | |
| $t2[^table:set{key a b | |
| 1 a1 | |
| 2 a2 b2 | |
| }] | |
| t2 ^if(^t2.empty[]){empty}{not empty}<br> | |
| ^t2.offset(1) | |
| $t2.b | |
| $r[^t2.record[]] | |
| <hr> | |
| $th[^t2.hash[b]] | |
| ^$th.b2.a=$th.b2.a<br> | |
| <hr> | |
| $th[^t2.hash[key;a]] | |
| ^$th.2.a=$th.2.a<br> | |
| <hr> | |
| #^OP:eval(1<2) | |
| $filelist[^table:dir[.]] | $filelist[^table:dir[.]] |
| <hr> | <hr> |
| Line 10 $branches[^table:set{name val | Line 75 $branches[^table:set{name val |
| index.cgihtml 123 | index.cgihtml 123 |
| }] | }] |
| $splitURI[^request:uri.lsplit[/]] | $splitURI[^request:uri.lsplit[/]] |
| ^branches.locate[name;$splitURI.1] | name ^if(^branches.locate[name;$splitURI.1]){found;not found}: |
| $branches.name | $branches.name |
| <HR> | <HR> |
| $splitURI[^request:uri.lsplit[/]] | $splitURI[^request:uri.lsplit[/]] |
| $splitURI.0!$splitURI.1 | $splitURI.0!$splitURI.1 |