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

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

    $d =~ s/(deny from all)/\#$1/;

    #print $d;
    
    dumpfile($f,$d);
    
}
