# -*- sh -*-

Url="http://menzies.us/lash"
Xml="rss.xml"
Q="\""

new() {
   gawk '/<id>.*<\/id>/ {
           New =  0 + gensub(/^.*<id>(.*)<\/id>.*$/,"\\1","g");
           Max = (New > Max ? New : Max) }
      END {print ++Max}' -
}

Id=`cat $Xml | new`  
Here="${Url}/?${Id}"
MonthYear=`date +"%b%y"`
Secs=`date +"%s"`
cat<<-EOF

  <item>
`for i in $*; do echo "    <category rank=\"1000\" >$i</category>"; done`
     <id>${Id}</id> 
     <title>
        TITLE
     </title>
     <pubdate secs=$Q$Secs$Q around=$Q$MonthYear$Q>`date`</pubdate>
     <link>
	LINK
     </link>
     <guid>${Id}</guid>
     <description><![CDATA[<p>
 
          DESCRIPTION

     </p>]]></description>
  </item>

EOF