The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Gtk2-Chmod-0.0.0
River stage zero No dependents
++
/ Gtk2::Chmod

NAME

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

VERSION

Version 0.0.0

SYNOPSIS

    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);
    }

METHODS

ask

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);
           }
       }

    }

RETURNED HASH

error

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

errorString

This provides a desciption of the current error.

pressed

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

ur

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

uw

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

ux

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

suid

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

gr

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

gw

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

sgid

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

ox

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

or

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

ow

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

ox

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

ERROR CODES

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

1

The file/directory does not exist.

AUTHOR

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

BUGS

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.

SUPPORT

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

    perldoc Gtk2::Chmod

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

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.