--- 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]