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

Diff for /parser3/www/htdocs/Attic/index.html between versions 1.178 and 1.196

version 1.178, 2002/11/22 16:16:34 version 1.196, 2002/12/05 08:08:59
Line 20  $body Line 20  $body
 OK  OK
   
 @main[]  @main[]
   #$form:a=
 #$a(123)  #$a(123)
 #^a.format[%.10u]  #^a.format[%.10u]
 #$result[111]  #$result[111]
Line 292  OK Line 293  OK
 #^includet2overridestatic[]  #^includet2overridestatic[]
 #^virtualtest2[]  #^virtualtest2[]
 #^message-id-test[]  #^message-id-test[]
 ^test_exif[jpg]  #^test_exif[jpg]
   #^http_prefix[]
   #^http_prefix_table[]
   #^http_prefix_xml[]
   #^imagefont[]
   #^downloadtest[]
   #^cachebug[]
   #^quickregexatend[]
   #^docsamplehttpfileload[]
   #^datecreatecolon[]
   #^exifdocsample[]
   #^rusagetv[]
   #^varmethnameconflict[]
   ^smtptest[]
   
   @smtptest[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[paf@design.ru]
           $.body[1
           
           2
           
           
                   3]
   ]
   
   @varmethnameconflict[]
   $varmethnameconflict[1]
   ^varmethnameconflict.format[%03d]
   
   @rusagetv[]
   $s[$status:rusage]
   ^s.tv_sec.format[%.0f].^s.tv_usec.format[%06.0f]
   
   @exifdocsample[]
   $image[^image::measure[jpg/DSC00003.JPG]]
   $exif[$image.exif]
   ^if($exif){
       Ïðîèçâîäèòåëü ôîòîàïïàðàòà, ìîäåëü: $exif.Make $exif.Model<br>
       Âðåìÿ ñúåìêè: ^exif.DateTimeOriginal.sql-string[]<br>
       Âûäåðæêà: $exif.ExposureTime ñåêóíäû<br>
       Äèàôðàãìà: F$exif.FNumber<br>
       Èñïîëüçîâàëàñü âñïûøêà: ^if(def $exif.Flash){^if($exif.Flash){äà;íåò};íåèçâåñòíî}<br>
   }{
       íåò EXIF èíôîðìàöèè<br>
   }
   
   @exif_value[value][i]
   ^if($value is date){
           ^value.sql-string[]
   }{
           ^if($value is hash){
                   ^for[i](0;$value-1){$value.$i}[,]
           }{
                   $value
           }
   }
   
   
   
   
   @datecreatecolon[]
   #$date[^date::create[2002-12-02 14:30]]
   #$date[^date::create[2002-12-02]]
   #$date[^date::create[2002:12:02 13:30]]
   $date[^date::create[2002:12:02]]
   #$date[^date::create[12:02]]
   ^date.sql-string[]
   
   @docsamplehttpfileload[]
   $file[^file::load[text;http://parser.ru/]]
   Ïðîãðàììíîå îáåñïå÷åíèå ñåðâåðà: $file.SERVER
   <hr>
   <pre>$file.text</pre>
   
   @quickregexatend[]
   #$subject[xxxabcd]
   #^if(^subject.match[^(?>.*)(?<=abcd)]){y;n}
   $subject[^for[i](0;1000){xxxxxyyyyy}   ]
   ^for[j](0;1000){
   #$trimmed[^subject.match[\s+^$][]{}]
   #$table[^subject.match[^(.*\S)\s+^$]]
   $table[^subject.match[^(.*\S)\s+^$]]
   $trimmed[$table.1]
   }
   ^untaint[html]{"$trimmed"}
   #$table[^subject.match[^(.*?)\s+^$]]
   #^untaint[html]{"$table.1"}
   
   
   @cachebug[]
   ^cache[test](10){body}
   
   @downloadtest[]
   $response:body[^file::load[binary;index.html]]
   
   
   @imagefont[]
   $image[^image::create(200;30;0x00FFFF)]
   height(font)=1950<br>
   $alph[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^;<>?@()^[^]'&*/]
   ^^alph.length[]=^alph.length[]<br>
   ^eval(1950/^alph.length[])[%.10f]
   
   ^image.font[$alph;font.gif](20)
   $text[AÏðèâåò*]
   ^image.text(0;0)[$text]
   $length[^image.length[$text]]
   #^image.rectangle(0;50)(2;2)(0x000000)
   ^image.rectangle(0;0)($length-1;5)(0x000000)
   $response:body[^image.gif[]]
   
   @http_prefix_xml[]
   $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?^taint[ñåãîäíÿ];
       $.headers[
                   $.user-agent[ÏÀÔ]
                   $.accept-test[$.value[çíà÷åíèå]$.with-option[îïöèÿ]]
           ]
   ]]
   Íà ^xdoc.selectString[string(/ValCurs/@Date)]
   êóðñ âàëþòû
   $USD_node[^xdoc.selectSingle[/ValCurs/Valute[CharCode='USD']]]
   "^USD_node.selectString[string(Name)]" ðàâåí ^USD_node.selectString[string(Value)]
   
   <hr>
   <pre>^taint[^xdoc.string[]]</pre>
   
   @http_prefix_table[]
   $table[^table::load[nameless;http://www.artlebedev.ru;$.USER-AGENT[paf]]]
   ^table.count[]
   <hr>
   <pre>$table.0</pre>
   
   @http_prefix[]
   #$file[^file::load[text;http://www.artlebedev.ru]]
   #$file[^file::load[text;http://www.artlebedev.ru;alt]]
   #$file[^file::load[text;http://parser3/exif.html;
   $file[^file::load[text;http://parser3/none;
           $.headers[
                   $.USER-AGENT[paf]
           ]
   ]]
   server: $file.SERVER<br>
   $file.status
   <hr>
   <pre>$file.text</pre>
   
 @test_exif[dir]  @test_exif[dir]
 $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]  $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]
Line 321  $file[^file:list[$dir;\.(jpe?g|JPE?G)^$] Line 468  $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]
 </table>  </table>
   
 @show_exif_value[value][i]  @show_exif_value[value][i]
 ^if($value is hash){  ^if($value is date){
         ^for[i](0;$value-1){$value.$i}[,]          ^value.sql-string[]
 }{  }{
         $value          ^if($value is hash){
                   ^for[i](0;$value-1){$value.$i}[,]
           }{
                   $value
           }
 }  }
   
   
 @message-id-test[]  @message-id-test[]
 ^mail:send[  ^mail:send[
         $.from[paf@mail]          $.from[paf@mail]
Removed from v.1.178  
changed lines
  Added in v.1.196

E-mail: