Gtk2::Chmod - Provides a dialog for getting values to use with chmod.

Version 0.0.0

    use Gtk2;
    use Gtk2::Chmod;

    Gtk2->init;

    my %returned=Gtk2::Chmod->ask('/etc/passwd');
    if($returned{error}){
        print "Error!\n".$returned{errorString}."\n";
    }else{
        use Data::Dumper;
        print Dumper(\%returned);
    }

This creates a dialog that provides a dialog for getting what mode should be used for a file/directory when doing chmod.

The data is returned as a hash

The initial settings are based off of the file/direcotry specified.

    my %returned=Gtk2::Chmod->ask($item);
    if($returned{error}){
        print "Error!\n".$returned{errorString}."\n";
    }else{
        use Data::Dumper;
        print Dumper(\%returned);

       if($returned{pressed} eq 'ok'){
           if(-d $item){
               chmod($returned{dirmode}, $item);
           }else{
               chmod($returned{filemode}, $item);
           }
       }

    }

This is defined if there is a error and the integer is the error code.

This provides a desciption of the current error.

If this is set to 'ok' the user has accepted the values.

Set to '1' if the user has read permissions.

Set to '1' if the user has write permissions.

Set to '1' if the user has execute/search permissions.

Set to '1' if the user has suid permissions.

Set to '1' if the group has read permissions.

Set to '1' if the group has write permissions.

Set to '1' if the group has sgid permissions.

Set to '1' if the group has group permissions.

Set to '1' if the other has read permissions.

Set to '1' if the other has write permissions.

Set to '1' if the other has group permissions.

To check if a error is set, check $returned{error}. A more verbose description of the returned error can be found in $returned{errorString};

The file/directory does not exist.

Zane C. Bowers, <vvelox at vvelox.net>

Please report any bugs or feature requests to bug-gtk2-chmod at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Gtk2-Chmod. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

You can find documentation for this module with the perldoc command.

    perldoc Gtk2::Chmod

You can also look for information at:

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Gtk2-Chmod

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Gtk2-Chmod

* CPAN Ratings

http://cpanratings.perl.org/d/Gtk2-Chmod

* Search CPAN

http://search.cpan.org/dist/Gtk2-Chmod/

Copyright 2009 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.