#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

print
    header,
    start_html(
        -title=>'CHMOD UTILITY'
    );
&do_chmod if param;
&send_form;

sub 
do_chmod
{
    for (param('Dirs')) {
        my @files;
        push @files, $_ while <$_*.p*>;
        if (chmod param('Action'), @files) {
            print "Changed permissions on " . join(" ; ",@files) . " to " . param('Action') . "<BR>";
        }
        else {
            print "Could not change permissions on " . join(" ; ",@files) . " to " . param('Action') . "<BR>";
        }
    }
    print "DONE";
}

sub
send_form
{
    my @dirs;
    push @dirs, $_ while <../*/>;
    print 
        startform(
            -name=>'mainform',
            -method=>'POST',
            -action=>'chmod.pl',
        ),
        checkbox_group(
            'Dirs',
            [@dirs],
            [],
            1,
        ),
        submit(
            -name=>'Action',
            -value=>'0755',
        ),
        submit(
            -name=>'Action',
            -value=>'0644',
        ),
        endform,
        end_html;
}