On Wed, 20 Feb 2002 17:17:20 +0000, [EMAIL PROTECTED] (Craig Eberly) wrote:
>Hmm, I've tried this but it doesn't seem to change the file permissions at
>all on the backup file. I checked into it, and my stat command or $mode in
>this case is equal to 33261. Is that a normal output for the mode in the
>stat command? I'm on a Solaris 8 system.
The 33261 is file permissions and file type in decimal.
Under linux, chmod accepts this value, maybe under solaris
you have to to have the octal value?
Try this instead:
#!/usr/bin/perl
use warnings;
use File::Copy;
use strict;
my $mode = (stat $ARGV[0])[2]; #decimal unmasked
my $mode = sprintf("%04o", $mode & 07777) ; #octal masked off
print $mode,"\n";
copy( "$ARGV[0]", "$ARGV[0]\.bak" );
chmod ($mode, "$ARGV[0]\.bak");
print "Backup completed.\n";
exit 0;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
