Hi all, long time no post so i thought i'd send this in - it's not hugely clever or difficult, but works well and is IMHO a CUFP.
At work our canteen puts up the menu in doc format which obviously isn't ideal (especially for all the engineers working on bsd).
Below is a solution:
I got them to mail the menu to me attached to a mail
i have a procmail rule thus:
:0:menu.lock
* ^Subject:.*(.*LUNCH MENU)
| menu/menu.pl
which runs it through this script:
#!/usr/bin/perl
# menu.pl a doc menu reformatter
use MIME::Parser;
use Date::Parse;
use POSIX qw(strftime);

my $dir="menu"; # working directory 
my $out_dir="htdocs"; # output directory

# use MIME::Parser to output the attachment to MENU.doc

my $parser=new MIME::Parser;
$parser->output_to_core(1);

my $entity=$parser->parse(\*STDIN);

for(@{$entity->{ME_Parts}}){
 if($_->{ME_Bodyhandle}->{MB_Binmode}){

  open(FH,">$dir/MENU.doc");
  print FH join "",@{$_->{ME_Bodyhandle}->{MBC_Data}};
  close FH;

  last;

 }
}

exit if !-e "$dir/MENU.doc"; # exit if no menu found.

# shell out to wvText to convert doc to txt.
system("/usr/local/bin/wvText $dir/MENU.doc $dir/menu.txt") || die;

# what day's lunch is it?
my $date;
for(@{$entity->{mail_inet_head}->{mail_hdr_list}}){
  if(/^Date: (.*?\d{4}).*$/){
   $date=strftime"%A %B %d %Y",localtime(str2time($1));
   last;
  }
};

# start of html
$menu=<<EOM;
<html><head><title>Canteen Menu</title><meta http-equiv=\"pragma\" con
+tent=\"no-cache\"></head><body>
<b><u>Menu for $date</u></b><br>
EOM

# read the translated file
open(MENU,"$dir/menu.txt");
while(<MENU>){
 # convert to unix format and tidy
 s#\cM##gs;
 s#^\s+##gs;
 chomp;
 next if !$_;
 # underline headings (sandwiches/soup/main dishes etc).
 s#.*(?:sandwiches|soup(?: of the day|:)|(?:main (?:dish(?:es)? (?!pri
+ces))|event)|salads|toasties|desserts|naughties).*#<br><b><u>$&</u></
+b>#is;

 # add it to the menu
 $menu.= "$_<br>$/";

}
close MENU;

# close html
$menu.="</body></html>";
# put prices after the dish rather than on next line 
#(in uk so price in £'s)
$menu=~s#<br>\n£# - £#sg;


my $menu_file="$out_dir/menu.html";
# print output
open(FH,">$menu_file"),
print FH $menu;
close FH;

chmod 0644,$menu_file;

# clean up temporary files made by or used by wvText
unlink "$dir/MENU.doc";
unlink "$dir/menu.txt";
system("/bin/rm /tmp/wv* 2>/dev/null");

[download]
Alex

In reply to what's for lunch? by teamster_jr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.