#!/usr/bin/perl -w

# chmods all directories to 755, Perl/CGI scripts to 755, and normal files to 644

sub scanDir {
  my $dir = shift;

  opendir (DIR, $dir);
  foreach my $file (readdir(DIR)) {
    next if $file eq ".";
    next if $file eq "..";

    if (-d "$dir/$file") {
      print "chmod directory: 0755 ($dir/$file)\n";
      chmod (0755, "$dir/$file");
      &scanDir ("$dir/$file");
    }
    else {
      if ($file =~ /\.(cgi|pl|plx|plex)$/i) {
        print "chmod CGI file: 0755 ($dir/$file)\n";
        chmod (0755, "$dir/$file");
      }
      else {
        print "chmod file: 0644 ($dir/$file)\n";
        chmod (0644, "$dir/$file");
      }
    }
  }
  closedir (DIR);
}

&scanDir(".");
__END__