--- parser3/www/htdocs/Attic/index.html 2002/11/29 07:42:16 1.190 +++ parser3/www/htdocs/Attic/index.html 2002/12/05 09:41:56 1.197 @@ -20,6 +20,7 @@ $body OK @main[] +#$form:a= #$a(123) #^a.format[%.10u] #$result[111] @@ -295,12 +296,85 @@ OK #^test_exif[jpg] #^http_prefix[] #^http_prefix_table[] -^http_prefix_xml[] +#^http_prefix_xml[] #^imagefont[] #^downloadtest[] #^cachebug[] #^quickregexatend[] #^docsamplehttpfileload[] +#^datecreatecolon[] +#^exifdocsample[] +#^rusagetv[] +#^varmethnameconflict[] +#^mimeold[] +^mimenew[] + +@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
+ Время съемки: ^exif.DateTimeOriginal.sql-string[]
+ Выдержка: $exif.ExposureTime секунды
+ Диафрагма: F$exif.FNumber
+ Использовалась вспышка: ^if(def $exif.Flash){^if($exif.Flash){да;нет};неизвестно}
+}{ + нет EXIF информации
+} + +@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/]] @@ -346,7 +420,12 @@ $length[^image.length[$text]] $response:body[^image.gif[]] @http_prefix_xml[] -$xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?^taint[сегодня]]] +$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']]] @@ -402,13 +481,16 @@ $file[^file:list[$dir;\.(jpe?g|JPE?G)^$] @show_exif_value[value][i] -^if($value is hash){ - ^for[i](0;$value-1){$value.$i}[,] +^if($value is date){ + ^value.sql-string[] }{ - $value + ^if($value is hash){ + ^for[i](0;$value-1){$value.$i}[,] + }{ + $value + } } - @message-id-test[] ^mail:send[ $.from[paf@mail]