Zane C. Bowers-Hadley > Gtk2-Chmod-0.0.0 > Gtk2::Chmod

Download:
Gtk2-Chmod-0.0.0.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.0.0   Source  

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.

syntax highlighting: