source: branches/locker-dev/locker/sbin/mail-owners.pl @ 2689

#!/usr/athena/bin/perl

use strict;

use warnings;

open LIST, "actual";

open TEMPLATE, "wordpress-email";

my $template = do {local $/; <TEMPLATE>};

sub bits {
    # Given the argument of a locker, return users with rlidwka rights
    my $DIR = shift;
    open PERM, "fs la $DIR | ";
    my @list = (); #to be filled with users or moira lists
    while (my $line = <PERM>){
        if ($line =~ m{(\S+) \s rlidwka}x) {
            my $temp = $1;
            $temp =~ s/system://g;          
            push @list, $temp;
        }
    }
    return @list;
}

while (my $line = <LIST>) {
    print $line;
    if ($line =~ m{( (.*/ ([^/]+) ) /web_scripts/(\S+) )\s.*'([.0-9]+)'}x) {  
        my $PATH = $1;
        #print $PATH;
        my $DIR = $2;
        my $LOCKER = $3;
        my $URI = "$3.scripts.mit.edu/$4";
        my $VERSION = $5;
        next if $VERSION ne '2.0.2';
        my $lockeremail = $template;
        $lockeremail =~ s/<LOCKER>/$LOCKER/g;
        $lockeremail =~ s/<URI>/$URI/g;
        $lockeremail =~ s/<DIRECTORY>/$PATH/g;
        $lockeremail =~ s/<VERSION>/$VERSION/g;
        $lockeremail = "To: ".join(',',&bits($DIR))."\n\n".$lockeremail; 
        open OUTPUT, ">./email/$LOCKER";
        print OUTPUT $lockeremail; 
    }
}