--- parser3/www/htdocs/Attic/index.html 2002/11/28 12:23:39 1.188 +++ parser3/www/htdocs/Attic/index.html 2002/12/05 13:00:53 1.201 @@ -20,6 +20,7 @@ $body OK @main[] +#$form:a= #$a(123) #^a.format[%.10u] #$result[111] @@ -296,10 +297,120 @@ OK #^http_prefix[] #^http_prefix_table[] #^http_prefix_xml[] -^imagefont[] +#^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] + $.subject[проверка,тут2] + $.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/]] +Программное обеспечение сервера: $file.SERVER +
+
$file.text
@quickregexatend[] #$subject[xxxabcd] @@ -339,13 +450,18 @@ $length[^image.length[$text]] $response:body[^image.gif[]] @http_prefix_xml[] - $xdoc[^xdoc::load[http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002; -# $.method[HEAD] - $.headers[ - $.user-agent[1] - ] +$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']]] +"^USD_node.selectString[string(Name)]" равен ^USD_node.selectString[string(Value)] +
^taint[^xdoc.string[]]
@http_prefix_table[] @@ -395,13 +511,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]