#!/usr/bin/perl $entrynum = 0; $date = ""; $inbody = 0; $body = ""; while () { if ($inbody eq 0) { if (/\/) { chomp; s|||g; s|-|/|g; s|(\d\d\d\d)/(\d\d/\d\d)|$2/$1|; print "AUTHOR: Mulad\n"; print "TITLE: Advogato Entry " . ++$entrynum . "\n"; print "DATE: $_\n"; print "CATEGORY: Old Advogato Diary\n"; print "-----\n"; print "BODY:\n"; } elsif (/\/) { $inbody = 1; } } else { if (/\<\/contents\>/) { $inbody = 0; print "-----\n"; print "--------\n"; } else { s|||; s|||; print "$_"; } } }