--- parser3/www/htdocs/Attic/index.html 2002/11/29 08:06:59 1.192
+++ parser3/www/htdocs/Attic/index.html 2002/12/19 10:17:42 1.205
@@ -20,6 +20,7 @@ $body
OK
@main[]
+$form:a=
#$a(123)
#^a.format[%.10u]
#$result[111]
@@ -295,12 +296,149 @@ 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[]
+#^strangewrite[]
+#^badexceptiontype[]
+
+@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[паф , паф дома ]
+# $.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 +545,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]