--- parser3/www/htdocs/Attic/index.html 2002/11/25 14:57:33 1.180
+++ parser3/www/htdocs/Attic/index.html 2002/12/04 11:26:26 1.195
@@ -293,17 +293,118 @@ OK
#^virtualtest2[]
#^message-id-test[]
#^test_exif[jpg]
-^http_prefix[]
+#^http_prefix[]
#^http_prefix_table[]
#^http_prefix_xml[]
+#^imagefont[]
+#^downloadtest[]
+#^cachebug[]
+#^quickregexatend[]
+#^docsamplehttpfileload[]
+#^datecreatecolon[]
+#^exifdocsample[]
+#^rusagetv[]
+^varmethnameconflict[]
+
+@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/]]
+Программное обеспечение сервера: $file.SERVER
+
$file.text+ +@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
^taint[^xdoc.string[]]@http_prefix_table[] @@ -315,11 +416,13 @@ $table[^table::load[nameless;http://www. @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
$file.text@@ -351,13 +454,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]