Diff for /parser3/www/htdocs/Attic/index.html between versions 1.185 and 1.198

version 1.185, 2002/11/28 07:17:37 version 1.198, 2002/12/05 10: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 298  OK Line 299  OK
 #^http_prefix_xml[]  #^http_prefix_xml[]
 #^imagefont[]  #^imagefont[]
 #^downloadtest[]  #^downloadtest[]
 ^cachebug[]  #^cachebug[]
   #^quickregexatend[]
   #^docsamplehttpfileload[]
   #^datecreatecolon[]
   #^exifdocsample[]
   #^rusagetv[]
   #^varmethnameconflict[]
   #^mimeold[]
   ^zmimenew[]
   
   @mimeold[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[paf@design.ru]
           $.text[1
           
           2
           
           
                   3]
   ]
   
   @mimenew[]
   ^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[]  @cachebug[]
 ^cache[test](10){body}  ^cache[test](10){body}
Line 308  $response:body[^file::load[binary;index. Line 405  $response:body[^file::load[binary;index.
   
   
 @imagefont[]  @imagefont[]
 $image[^image::create(200;30)]  $image[^image::create(200;30;0x00FFFF)]
 height(font)=1950<br>  height(font)=1950<br>
 $alph[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^;<>?@()^[^]'&*/]  $alph[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^;<>?@()^[^]'&*/]
 ^^alph.length[]=^alph.length[]<br>  ^^alph.length[]=^alph.length[]<br>
 ^eval(1950/^alph.length[])[%.10f]  ^eval(1950/^alph.length[])[%.10f]
   
 ^image.font[$alph;font.gif](20)  ^image.font[$alph;font.gif](20)
 ^image.text(0;0)[Ïðèâåò*]  $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[]]  $response:body[^image.gif[]]
   
 @http_prefix_xml[]  @http_prefix_xml[]
  $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002;  $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?^taint[ñåãîäíÿ];
 #       $.method[HEAD]      $.headers[
         $.headers[                  $.user-agent[ÏÀÔ]
                 $.user-agent[1]                  $.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>  <pre>^taint[^xdoc.string[]]</pre>
   
 @http_prefix_table[]  @http_prefix_table[]
Line 375  $file[^file:list[$dir;\.(jpe?g|JPE?G)^$] Line 481  $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.185  
changed lines
  Added in v.1.198


E-mail: