--- parser3/www/htdocs/Attic/index.html 2002/11/29 08:06:59 1.192 +++ parser3/www/htdocs/Attic/index.html 2002/12/05 15:00:01 1.202 @@ -20,6 +20,7 @@ $body OK @main[] +#$form:a= #$a(123) #^a.format[%.10u] #$result[111] @@ -295,12 +296,136 @@ 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[] +#^doctableclonesample[] +^manyto[] + +@manyto[] +^mail:send[ + $.from[paf@design.ru] + $.to[паф , паф дома ] +# $.bcc[pafhome@design.ru] +# $.cc[pafhome@design.ru] + $.subject[проверка два в to] + $.text[привет] +] + +@manyto[] +^mail:send[ + $.from[paf@design.ru] + $.to[паф ] + $.bcc[паф дома ] +# $.cc[pafhome@design.ru] + $.subject[проверка to,bcc] + $.text[привет] +] + +@manyto[] +^mail:send[ + $.from[paf@design.ru] + $.to[паф ] +# $.bcc[паф дома ] + $.cc[паф дома ] + $.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
+ Время съемки: ^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/]] @@ -407,13 +532,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]