[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.180 and 1.210

version 1.180, 2002/11/25 14:57:33 version 1.210, 2003/01/16 10:13:14
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 293  OK Line 294  OK
 #^virtualtest2[]  #^virtualtest2[]
 #^message-id-test[]  #^message-id-test[]
 #^test_exif[jpg]  #^test_exif[jpg]
 ^http_prefix[]  #^http_prefix[]
 #^http_prefix_table[]  #^http_prefix_table[]
 #^http_prefix_xml[]  #^http_prefix_xml[]
   #^imagefont[]
   #^downloadtest[]
   #^cachebug[]
   #^quickregexatend[]
   #^httpfileloadtest2[]
   #^datecreatecolon[]
   #^exifdocsample[]
   #^rusagetv[]
   #^varmethnameconflict[]
   #^mimeold[]
   #^mimenew[]
   #^doctableclonesample[]
   #^manyto[]
   #^strangewrite[]
   #^badexceptiontype[]
   #^coookieexpirestest[]
   #^fullpathbug[]
   #^form_fields_modification_bug[]
   #^nbsp_xslt_output[]
   #^mailcharset[]
   ^transparence_copy_test[]
   
   @transparence_copy_test[]
   $k(2)
   $image[^image::load[paf.gif]]
   $mark[^image::load[mark.gif]]
   #^image.copy[$mark](0;0;$mark.width;$mark.height;0;0)
   ^image.copy[$mark](0;0;$mark.width;$mark.height;0;0;$image.width/$k;$image.height/$k)
   
   $response:body[^image.gif[]]
   
   
   @mailcharset[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[paf@mail.design.ru]
           $.subject[проверка]
                   $.charset[koi8-r]
           $.text[
                   $.charset[koi8-r]
                   $.value[проверка]
           ]       
   ]
   
   @nbsp_xslt_output[]
   $input[^xdoc::create[doc]]
   $sheet[^xdoc::create{<?xml version="1.0"?> 
   <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
           <xsl:template match="doc">
                   output&#160^;there
           </xsl:template>
   </xsl:stylesheet>
   }]
   $output[^input.transform[$sheet]]
   #$response:body[^output.file[]]
   ^taint[^output.string[]]
   
   
   @form_fields_modification_bug[]
   $form:fields.foo[bar]
   $form:foo
   <hr>
   
   @fullpathbug[]
   ^file:fullpath[a.gif]
   
   @coookieexpirestest[]
   $cookie:test1[
           $.value[1]
           $.expires[session]
   ]
   
   $cookie:test1=
   
   
   @badexceptiontype[]
   ^connect[mysql://mdm:4b833ljq@db-mysql/mdm]{
   ^void:sql{b}
   }
   
   
   @strangewrite[]
   $a[$form:a]
   $ax.b[2]
   $ax.b=
   
   @manyto[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[паф <paf@design.ru>, паф дома <pafhome@design.ru>]
   #       $.bcc[pafhome@design.ru]
   #       $.cc[pafhome@design.ru]
           $.subject[проверка два в to]
           $.text[привет]
   ]
   
   @manyto[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[паф <paf@design.ru>]
           $.bcc[паф дома <pafhome@design.ru>]
   #       $.cc[pafhome@design.ru]
           $.subject[проверка to,bcc]
           $.text[привет]
   ]
   
   @manyto[]
   ^mail:send[
           $.from[paf@design.ru]
           $.to[паф <paf@design.ru>]
   #       $.bcc[паф дома <pafhome@design.ru>]
           $.cc[паф дома <pafhome@design.ru>]
           $.subject[проверка to,cc]
           $.text[привет]
   ]
   
   @doctableclonesample[]
   $orig[^table::create{name
   Вася
   Коля
   Лена
   Маша
   }]
   
   #сдвигает текущую запись таблицы from на <Коля>
   ^orig.offset(1)
   
   #копирует начиная стекущей записи во from, 10 записей максимум
   $copy[^table::create[$orig;
       $.offset[cur]
       $.limit(10)
   ]]
   
   ^copy.menu{$copy.name}[,]
   
   @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[]
   
   @httpfileloadtest2[]
   $file[^file::load[text;http://parser.ru/x;
           $.any-status(1)
   ]]
   Программное обеспечение сервера: $file.SERVER
   <hr>
   HTTP status: $file.status<br>
   <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[]  @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 315  $table[^table::load[nameless;http://www. Line 569  $table[^table::load[nameless;http://www.
 @http_prefix[]  @http_prefix[]
 #$file[^file::load[text;http://www.artlebedev.ru]]  #$file[^file::load[text;http://www.artlebedev.ru]]
 #$file[^file::load[text;http://www.artlebedev.ru;alt]]  #$file[^file::load[text;http://www.artlebedev.ru;alt]]
   #$file[^file::load[text;http://parser3/exif.html;
 $file[^file::load[text;http://parser3/none;  $file[^file::load[text;http://parser3/none;
         $.headers[          $.headers[
                 $.USER-AGENT[paf]                  $.USER-AGENT[paf]
         ]          ]
 ]]  ]]
   server: $file.SERVER<br>
 $file.status  $file.status
 <hr>  <hr>
 <pre>$file.text</pre>  <pre>$file.text</pre>
Line 351  $file[^file:list[$dir;\.(jpe?g|JPE?G)^$] Line 607  $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.180  
changed lines
  Added in v.1.210

E-mail: