- Timestamp:
- 11/10/09 16:49:29 (13 years ago)
- Location:
- xml2rfc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
xml2rfc/rfc2629.dtd
r448 r713 1 1 <!-- 2 revised DTD for the RFC document series, draft of 200 0-02-232 revised DTD for the RFC document series, draft of 2009-10-06 3 3 --> 4 4 -
xml2rfc/xml2rfc.tcl
r704 r713 12 12 global prog prog_version prog_url prog_ack 13 13 set prog "xml2rfc" 14 set prog_version "v1.34pre 4"14 set prog_version "v1.34pre5" 15 15 set prog_url "http://xml.resource.org/" 16 16 set prog_ack \ … … 5564 5564 } elseif {[string first "trust" [string tolower $attrs(ipr)]] < 0} { 5565 5565 set newP 1 5566 } elseif {$ymd < "20091 201"} {5567 # TLP 2009 09 copyright notice beginning with Dec20095566 } elseif {$ymd < "20091101"} { 5567 # TLP 2009 09 copyright notice beginning with Nov 2009 5568 5568 set newP 7 5569 5569 } … … 5573 5573 if {$newP == 8} { 5574 5574 # RFCs: include escape clause in Copyright Notice 5575 # IDs: include in Status Of This Memo (produced elsewhere), for date before Dec20095575 # IDs: include in Status Of This Memo (produced elsewhere), for date before Nov 2009 5576 5576 if {![string compare $attrs(ipr) "pre5378Trust200902"] && \ 5577 ([string compare $attrs(number) ""] || $ymd >= "20091 201")} {5577 ([string compare $attrs(number) ""] || $ymd >= "20091101")} { 5578 5578 set copyshort $copyshortTrust200909esc 5579 5579 } else { … … 5746 5746 5747 5747 set organization [find_element organization $av(.CHILDREN)] 5748 array set ov [list abbrev ""] 5749 if {[string compare $organization ""]} { 5750 array set ov $elem($organization) 5748 if {[llength $organization] == 1} { 5749 array set ov [list abbrev ""] 5750 if {[string compare $organization ""]} { 5751 array set ov $elem($organization) 5752 } 5751 5753 } 5752 5754 … … 5758 5760 lappend block1 $av(fullname) 5759 5761 } 5760 if {[ string compare $ov(.CTEXT) ""]} {5762 if {[llength $organization] == 1 && [string compare $ov(.CTEXT) ""]} { 5761 5763 lappend block1 $ov(.CTEXT) 5762 5764 } … … 6289 6291 set ymd [clock format $attrs(.PARSEDDATE) -format "%Y%m%d" \ 6290 6292 -gmt true] 6291 if {($ymd >= "20091 201") \6293 if {($ymd >= "20091101") \ 6292 6294 && ![string compare $ipreal pre5378Trust200902]} { 6293 6295 set ipreal trust200902 … … 6338 6340 set organization [find_element organization $av(.CHILDREN)] 6339 6341 array set ov [list abbrev ""] 6340 if {[string compare $organization ""]} { 6341 array set ov $elem($organization) 6342 } 6343 if {![string compare $ov(abbrev) ""]} { 6344 set ov(abbrev) $ov(.CTEXT) 6342 if {[llength $organization] == 1} { 6343 if {[string compare $organization ""]} { 6344 array set ov $elem($organization) 6345 } 6346 if {![string compare $ov(abbrev) ""]} { 6347 set ov(abbrev) $ov(.CTEXT) 6348 } 6345 6349 } 6346 6350 … … 6428 6432 set cutoff 20090701 6429 6433 } else { 6430 set cutoff 20091 2016434 set cutoff 20091101 6431 6435 } 6432 6436 … … 17229 17233 section "*"] \ 17230 17234 title {} \ 17231 author [list organization " " \17235 author [list organization "?" \ 17232 17236 address "*"] \ 17233 17237 organization {} \
Note: See TracChangeset
for help on using the changeset viewer.