#!/usr/bin/env perl
use strict;
use rob_misc;

foreach my $f (`find | grep .htaccess\$`)
{
    print $f;
    my $d=slurp($f);

    $d=~s/allow from \.ac\.uk//;
    $d .= "
allow from surrey.ac.uk
";
   
#    $d .=
#"
#Options +Indexes
#
#";

    print $d;
    
    dumpfile($f,$d);
    `chomd a+r $f`;
}
