view release on metacpan or search on metacpan
lib/Monitoring/Generator/TestConfig.pm view on Meta::CPAN
chmod 0755, $self->{'output_dir'}.'/init.d/'.$init;
chmod 0755, $self->{'output_dir'}.'/recreate.pl';
# check user/group
if( $^O ne "MSWin32" and $< == 0 ) {
`chown -R $self->{'user'}:$self->{'group'} $self->{'output_dir'}`;
}
if($self->{'layout'} eq 'omd') {
print "exported omd test config to: ".$self->{'output_dir'}.$obj_prefix."\n";
print "check your configuration with: ~/etc/init.d/nagios checkconfig\n";
view release on metacpan or search on metacpan
lib/Monitoring/Spooler.pm view on Meta::CPAN
This will create an initial group and set things up.
WARNING: Make sure the database file is owned by the user service the webinterface
and also accessible by the user execution your cronjobs, e.g. www-data.
chown -R www-data:www-data /var/lib/mon-spooler/
=head2 CREATE CRONJOBS
Create at least one cronjob here. If you have set-up an provider which supports
both text and phone messages you should set up two cronjobs here, otherwise
view release on metacpan or search on metacpan
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
view release on metacpan or search on metacpan
inc/Perl/Tidy.pm view on Meta::CPAN
caller
chdir
chmod
chomp
chop
chown
chr
chroot
close
closedir
cmp
inc/Perl/Tidy.pm view on Meta::CPAN
my @keyword_taking_list = qw(
and
chmod
chomp
chop
chown
dbmopen
die
elsif
exec
fcntl
view release on metacpan or search on metacpan
lib/MooseX/Runnable/Fuse.pm view on Meta::CPAN
requires 'rmdir';
requires 'symlink';
requires 'rename';
requires 'link';
requires 'chmod';
requires 'chown';
requires 'truncate';
requires 'utime';
requires 'write';
requires 'fsync';
}
lib/MooseX/Runnable/Fuse.pm view on Meta::CPAN
}
if($class->does_role('Filesystem::Fuse::Writable')){
push @method_map, map { $_ => $subify->($_) } qw{
mknod mkdir unlink rmdir symlink rename link
chmod chown truncate utime write fsync
};
}
if($class->does_role('Filesystem::Fuse::Attributes::Readable')){
push @method_map, map { $_ => $subify->($_) } qw{
view release on metacpan or search on metacpan
share/public/js/sh_perl.min.js view on Meta::CPAN
if(!this.sh_languages){this.sh_languages={}}sh_languages.perl=[[[/\b(?:import)\b/g,"sh_preproc",-1],[/(s)(\{(?:\\\}|[^}])*\}\{(?:\\\}|[^}])*\})([ixsmogce]*)/g,["sh_keyword","sh_regexp","sh_keyword"],-1],[/(s)(\((?:\\\)|[^)])*\)\((?:\\\)|[^)])*\))([ix...
view release on metacpan or search on metacpan
lib/Mozilla/Persona/Setup.pm view on Meta::CPAN
my $key = Crypt::OpenSSL::RSA->generate_key(2048);
write_file $outfn, $key->get_private_key_string;
chmod 0440, $outfn;
chown -1, $gid, $outfn
or warning __x"please set group on {fn} to {group}"
, fn => $outfn, group => $group;
$key;
}
view release on metacpan or search on metacpan
lib/Muck/FS.pm view on Meta::CPAN
Fuse::main(
mountpoint => $arg->{'mount'},
mountopts => 'allow_other',
threaded => '0',
chown => \&Muck::FS::VFS::x_chown,
chmod => \&Muck::FS::VFS::x_chmod,
getattr => \&Muck::FS::VFS::x_getattr,
getdir => \&Muck::FS::VFS::x_getdir,
link => \&Muck::FS::VFS::x_link,
mknod => \&Muck::FS::VFS::x_mknod,
view release on metacpan or search on metacpan
cgi-bin/Content/files.pl view on Meta::CPAN
. ' '
. (
$^O ne 'MSWin32' ? a(
{
onclick =>
"var a;prompt('Enter User:',function(argv){a= argv;prompt('Enter Group:',function(b){if(a != null && b != null)requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chownFile&file=$esubfolder&user='+encodeURIComponent(a)+'&gid='+encod...
class => 'toolbarButton'
},
'Chown',
) : ''
)
cgi-bin/Content/files.pl view on Meta::CPAN
"$year-$mon-$mday $hour:$min:$sec",
qq|<table cellpading="0" cellspacing="0">
<tr><td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName=...
. (
$^O ne 'MSWin32'
? qq|<td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){ a = c; prompt('Enter Group:',function(b){ if(a != null && b != null)requestURI('$m_hrSettings->{cgi}{serverNa...
: ''
)
. (
$^O ne 'MSWin32'
? qq|<td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chmodFile&file=$efl&ch...
cgi-bin/Content/files.pl view on Meta::CPAN
<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName='+...
|
. (
$^O ne 'MSWin32'
? qq|<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){a=c;prompt('Enter Group:',function(b){if(a != null && b != null)requestURI('$m_hrSetti...
: ''
)
. (
$^O ne 'MSWin32'
? qq|<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){;if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?acti...
cgi-bin/Content/files.pl view on Meta::CPAN
my $dir = $file =~ /(.*\/)[^\/]+$/ ? $1 : '/';
rename $file, "$dir$newName";
&showDir($dir);
} ## end sub renameFile
sub chownFile {
my $user = param('user');
my $uid = getpwnam($user);
my $gid = param('gid');
my $g = getgrnam($gid);
my $sFile = param('file');
$can_chown_giveaway = not sysconf(_PC_CHOWN_RESTRICTED);
print 'Not allowed' unless $can_chown_giveaway;
my $cnt = chown $uid, $g, $sFile;
print 'Ok' if $cnt > 0;
my $d = $sFile =~ m?^(.*)/[^/]+$? ? $1 : $m_hrSettings->{cgi}{bin};
&showDir($d);
} ## end sub chownFile
sub chmodFile {
my $chmod = param('chmod');
my $sFile = param('file');
chmod oct($chmod), $sFile if $chmod =~ /\d\d\d\d/ && -e $sFile;
view release on metacpan or search on metacpan
lib/Myco/Admin.pod view on Meta::CPAN
including the myco database. Make the "pgsql" user the owner of that
directory.
mkdir /var/db/pgsql
mkdir /var/db/pgsql/data
chown pgsql /var/db/pgsql/data
and set the right permissions:
chmod -R 0700 /var/db/pgsql/data
view release on metacpan or search on metacpan
lib/NIS/DBM.pm view on Meta::CPAN
NIS::DBM trivializes the implementation of daemons and other scripts
which maintain the NIS databases by presenting them as a hash keyed by
both username and user id. If a numeric username exists in the byname
databases, the number associated with that username will be used as the
user id. This is the same behavior as B<chown> and B<chgrp>.
NIS::DBM maintains three caches of information to construct an accurate
view of the NIS databases as modified by the program. The caches are
for actual records from the database, modifications to the database, and
deletions from the database. The caches have the following precedence:
view release on metacpan or search on metacpan
NISPlus/Table.pm view on Meta::CPAN
sub chmod
{
}
sub chown
{
}
sub DESTROY
{
view release on metacpan or search on metacpan
debian/libnolookup-perl-test.postinst view on Meta::CPAN
set -e
case "$1" in
configure)
chown draupne:draupne /usr/share/norid/test
chown -R draupne:draupne /usr/share/norid/test/NOLookup
chmod u+rwX,go+rX /usr/share/norid/test
chmod -R u+rwX,go+rX /usr/share/norid/test/NOLookup
;;
abort-upgrade|abort-remove|abort-deconfigure)
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
include/ppport.h view on Meta::CPAN
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
view release on metacpan or search on metacpan
build/build-aux/build-debian.dockerfile view on Meta::CPAN
RUN useradd -m build
RUN echo "build ALL=NOPASSWD:ALL" >> /etc/sudoers
ADD build-aux/debian/dput.cf /home/build/.dput.cf
ADD build-aux/debian/devscripts /home/build/.devscripts
RUN chown -R build:build /home/build
USER build
WORKDIR /home/build
ENV GIT_AUTHOR_NAME="Chris Leishman" GIT_COMMITTER_NAME="Chris Leishman"
view release on metacpan or search on metacpan
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
view release on metacpan or search on metacpan
libcdp/install-sh view on Meta::CPAN
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"
transformbasename=
transform_arg=
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=
chgrpcmd=
stripcmd=
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=
libcdp/install-sh view on Meta::CPAN
-b=TRANSFORMBASENAME
-c copy source (using $cpprog) instead of moving (using $mvprog).
-d create directories instead of installing files.
-g GROUP $chgrp installed files to GROUP.
-m MODE $chmod installed files to MODE.
-o USER $chown installed files to USER.
-s strip installed files (using $stripprog).
-t=TRANSFORM
--help display this help and exit.
--version display version info and exit.
libcdp/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-s) stripcmd=$stripprog
libcdp/install-sh view on Meta::CPAN
done
fi
if test -n "$dir_arg"; then
$doit $instcmd "$dst" \
&& { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \
&& { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; }
else
libcdp/install-sh view on Meta::CPAN
#
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $instcmd $src $dsttmp" command.
#
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \
&& { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } &&
# Now remove or move aside any old file at destination location. We
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub cfgetospeed;
sub cfsetispeed;
sub cfsetospeed;
sub chdir;
sub chmod;
sub chown;
sub clearerr;
sub clock;
sub close;
sub closedir;
sub constant;
_Deparsed_XSubs.pm view on Meta::CPAN
sub j0;
sub j1;
sub jn;
sub kill;
sub labs;
sub lchown;
sub ldexp;
sub ldiv;
sub lgamma;
sub link;
sub localeconv;
view release on metacpan or search on metacpan
demo/suexec_mod_perl.pl view on Meta::CPAN
my ($uid,$gid) = (getpwnam $nonroot)[2,3];
if (!-d $logdir) {
mkdir($logdir, 0755);
if ($uid && $gid && # Taint cleaning
"$uid:$gid" =~ /(\d+):(\d+)/) {
chown($1, $2, $logdir);
}
}
run Net::DNAT
port => 80,
view release on metacpan or search on metacpan
dropbear/debian/README.runit view on Meta::CPAN
# adduser --system --home /var/log/dropbear --no-create-home dropbearlog
Create the log directory and make the newly created system user the owner
of this directory
# mkdir -p /var/log/dropbear && chown dropbearlog /var/log/dropbear
Optionally adjust the configuration of the dropbear service by editing the
run script
# vi /etc/dropbear/run
view release on metacpan or search on metacpan
lib/Net/FullAuto/Cloud/fa_amazon.pm view on Meta::CPAN
system("${sudo}cp -R $homedir/.aws /home/$username")
unless $homedir eq "/home/$username";
my $group=$username;
$group='Administrators' if $username eq 'Administrator';
if ($username eq 'root') {
system("${sudo}chown -R $username:$group /$username/.aws");
system("${sudo}chmod 755 /$username/.aws");
} else {
system("${sudo}chown -R $username:$group /home/$username/.aws");
system("${sudo}chmod 755 /home/$username/.aws");
}
}
};
if ($handle) {
lib/Net/FullAuto/Cloud/fa_amazon.pm view on Meta::CPAN
#$handle->cmd($sudo.
# "cp -Rv $homedir/.aws /home/$handle_username",'__display__');
$group='Administrators' if $handle_username eq 'Administrator';
if ($handle_username eq 'root') {
$handle->cmd($sudo.
"chown -Rv $handle_username:$group /$handle_username/.aws",
'__display__');
$handle->cmd($sudo.
"chmod -v 755 /$handle_username/.aws",'__display__');
} else {
$handle->cmd($sudo.
"chown -Rv $handle_username:$group /home/$handle_username/.aws",
'__display__');
$handle->cmd($sudo.
"chmod -v 755 /home/$handle_username/.aws",'__display__');
}
}
view release on metacpan or search on metacpan
lib/Net/Hadoop/WebHDFS.pm view on Meta::CPAN
}
sub setpermission { (shift)->chmod(@_); }
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETOWNER
# [&owner=<USER>][&group=<GROUP>]"
sub chown {
my ($self, $path, %options) = @_;
my $err = $self->check_options('SETOWNER', %options);
croak $err if $err;
unless (defined($options{owner}) or defined($options{group})) {
croak "'chown' needs at least one of owner or group";
}
my $res = $self->operate_requests('PUT', $path, 'SETOWNER', \%options);
$res->{code} == 200;
}
$OPT_TABLE{SETOWNER} = ['owner', 'group'];
sub setowner { (shift)->chown(@_); }
# curl -i -X PUT "http://<HOST>:<PORT>/webhdfs/v1/<PATH>?op=SETREPLICATION
# [&replication=<SHORT>]"
sub replication {
my ($self, $path, $replnum, %options) = @_;
lib/Net/Hadoop/WebHDFS.pm view on Meta::CPAN
=head3 C<< $client->chmod($path, $mode) :Bool >>
Set permission of I<$path> as octal I<$mode>. Alias: B<setpermission>.
=head3 C<< $client->chown($path, [owner => 'username', group => 'groupname']) :Bool >>
Set owner or group of I<$path>. One of owner/group must be specified. Alias: B<setowner>.
=head3 C<< $client->replication($path, $replnum) :Bool >>
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libkwiki-perl", "Kwiki", "0.39", "1", "1"
"liblatex-driver-perl", "LaTeX-Driver", "0.08", "0", "4"
"liblatex-encode-perl", "LaTeX-Encode", "0.03", "0", "1"
"liblatex-table-perl", "LaTeX-Table", "1.0.0", "0", "0"
"liblayout-manager-perl", "Layout-Manager", "not-uploaded", "0", "0"
"liblchown-perl", "Lchown", "1.01", "0", "0"
"liblexical-persistence-perl", "Lexical-Persistence", "0.98", "1", "0"
"liblingua-en-inflect-number-perl", "Lingua-EN-Inflect-Number", "1.1", "0", "0"
"liblingua-en-inflect-perl", "Lingua-EN-Inflect", "1.891", "0", "1"
"liblingua-en-nameparse-perl", "Lingua-EN-NameParse", "1.24", "0", "0"
"liblingua-en-numbers-ordinate-perl", "Lingua-EN-Numbers-Ordinate", "1.02", "0", "0"
view release on metacpan or search on metacpan
lib/Net/LibNFS.pm view on Meta::CPAN
Like C<chmod()> above but won’t follow symbolic links.
Returns I<OBJ>.
=head2 $obj = I<OBJ>->chown( $PATH, $UID, $GID )
Sets a path’s ownership.
Returns I<OBJ>.
lib/Net/LibNFS.pm view on Meta::CPAN
Like C<utime()> above but can operate on symlinks.
Returns I<OBJ>.
=head2 $obj = I<OBJ>->lchown( $PATH, $MODE )
Like C<chown()> above but won’t follow symbolic links.
Returns I<OBJ>.
=head2 $obj = I<OBJ>->link( $OLDPATH, $NEWPATH )
view release on metacpan or search on metacpan
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
view release on metacpan or search on metacpan
lib/Net/MitDK.pm view on Meta::CPAN
mkdir $home or return (undef, "Cannot create $home: $!");
return (undef, "cannot chmod 0750 $home:$!") unless chmod 0750, $home;
if ( $^O !~ /win32/i) {
my (undef,undef,$gid) = getgrnam('nobody');
return (undef, "no group `nobody`") unless defined $gid;
return (undef, "cannot chown user:nobody $home:$!") unless chown $>, $gid, $home;
}
}
my $json;
my $encoder = JSON::XS->new->ascii->pretty;
lib/Net/MitDK.pm view on Meta::CPAN
if ( $^O !~ /win32/i) {
return (undef, "cannot chmod 0640 $file:$!") unless chmod 0640, $file;
my (undef,undef,$gid) = getgrnam('nobody');
return (undef, "no group `nobody`") unless defined $gid;
return (undef, "cannot chown user:nobody $file:$!") unless chown $>, $gid, $file;
}
$self->{timestamps}->{$profile} = time;
return 1;
view release on metacpan or search on metacpan
lib/Net/OpenNebula/RPC.pm view on Meta::CPAN
# gid : gid to use
# one : Net::OpenNebula instance to use for user/groupname lookup
# (i.e. when uid/gid is not a integer)
# It wil use $one->get_users and/or $one->get_groups methods.
sub chown
{
my ($self, %opts) = @_;
$self->has_id("chown") || return;
my $uid = $self->_lookup('user', $opts{uid}, $opts{one});
return if ! defined($uid);
my $gid = $self->_lookup('group', $opts{gid}, $opts{one});
return if ! defined($gid);
return $self->_onerpc("chown",
[ int => $self->id ],
[ int => $uid ],
[ int => $gid ]
);
}
lib/Net/OpenNebula/RPC.pm view on Meta::CPAN
my @bits;
if ($mode =~ m/^\d+/) {
my $bin = sprintf("%b", $mode & oct("777"));
@bits = split('', $bin);
} else {
$self->error("chown cannot handle mode $mode");
return;
};
if((scalar @bits) == 9) {
my @allargs = qw(chmod);
view release on metacpan or search on metacpan
lib/Net/OpenSSH/More.pm view on Meta::CPAN
warn "[WARN] Write failed: " . $self->sftp()->error() if !$ret;
if ( defined $owner || defined $group ) {
$owner //= $self->{'_opts'}{'user'};
$group //= $owner;
$ret = $self->sftp()->chown( $file, $owner, $group );
warn "[WARN] Couldn't chown $file" if $ret;
}
return $ret;
}
view release on metacpan or search on metacpan
lib/Net/SFTP/Foreign.pm view on Meta::CPAN
no strict 'refs';
*$name = $sub;
}
_gen_setstat_shortcut(truncate => 'file', SSH2_FILEXFER_ATTR_SIZE, 'int64');
_gen_setstat_shortcut(chown => 'any' , SSH2_FILEXFER_ATTR_UIDGID, 'int32', 'int32');
_gen_setstat_shortcut(chmod => 'any' , SSH2_FILEXFER_ATTR_PERMISSIONS, 'int32');
_gen_setstat_shortcut(utime => 'any' , SSH2_FILEXFER_ATTR_ACMODTIME, 'int32', 'int32');
sub _close {
@_ == 2 or croak 'Usage: $sftp->close($fh, $attrs)';
lib/Net/SFTP/Foreign.pm view on Meta::CPAN
this method is deprecated.
=item $sftp-E<gt>truncate($path_or_fh, $size)
=item $sftp-E<gt>chown($path_or_fh, $uid, $gid)
=item $sftp-E<gt>chmod($path_or_fh, $perm)
=item $sftp-E<gt>utime($path_or_fh, $atime, $mtime)
view release on metacpan or search on metacpan
lib/Net/SFTP/Server/FS.pm view on Meta::CPAN
}
if (defined $attrs->{permissions}) {
chmod $attrs->{permissions}, $obj or return;
}
if (defined $attrs->{gid}) {
chown $attrs->{uid}, $attrs->{gid}, $obj or return;
}
if (defined $attrs->{atime}) {
utime $attrs->{atime}, $attrs->{mtime}, $obj or return;
}
}