replace and chmod

I'd suggest you look up how to use the chmod function.

perldoc -f chmod.


Also why chmod the script to 777.  755 should be fine.

I'd rewrite it as.



open FILE,$cfile or die "Cannot read from $file $!\n";
open TMP, ">$cfile.$$" or die "Cannot write to $file.$$ $!\n";

my $counter = 0;

while (<FILE>) {
  $counter++ if s/$oldDate/$newDate/gi;
  $counter++ if s/$yesDate/$repDate/gi;
  print TMP;
}
close FILE,TMP;

print "Done Replacing $cfile\n";


print "initializing cleanup.sh\n";
chmod 0755, '/home/kidprod/cleanup.sh' or die "Cannot chmod $!\n";
system("/home/kidprod/cleanup.sh") and die "Cannot run /home/kidprod/cleanup.sh";
print "completed cleanup.sh\n";

Tintin has put his finger on the core problem: When you use perl's chmod operator, the mode argument has to be specified as an octal number.

I took both suggestions, the first to use the system command to start a second interperter, and the second, to read the perdoc -f chmod (you expect points for that?) to no avail.  I think I need to be more specific.  the line in the above code:
chmod "777 /home/kidprod/cleanup.sh"|| die "Cannot update";
returns true, or no die error.
But the permission stays the same at 666, and the log file shows no eror, as seen below:

plus when i call the script, cleanup.sh there is no execute permission error in the log.  I only see the execute permission error when i run it from the command line.

I'm thinking of changing the scripts to read a file with the new dates, rather than running a find and replace on the script itself.  Suggestions?

Thx bob

*******************************
dt.sh has started  20030110
....15 25 07
*******************************

The system date is: 20030110
The Replacement Date is: 2003-01-10
Yesterdays date is: 2003-1-9
The Old Date is: 20030109
The New Date is: 20030110
The Yesterday Date is: 2003-01-09
The Replace Date is: 2003-01-10
Replacing /home/kidprod/cleanup.sh
Done Replacing /home/kidprod/cleanup.sh
changing attrib
done changing attrib on /home/kidprod/cleanup.sh
backup file in /home/kidprod/cleanup.sh.yes
initializing cleanup.sh
completed cleanup.sh
*******************************
dt.sh has finished  20030110
....15 25 07
*******************************

OK, so you've read the perldoc for chmod and you are not understanding it.  That's OK.

Did you even try running my version of the script (with the correct chmod parameters)?

The line

chmod "777 /home/kidprod/cleanup.sh"|| die "Cannot update";

is invoking the 'chmod' operator incorrectly, but apparently in a way that does not explicitly fail. Instead, you need (at a minimum) change that line to:

chmod 0777, "/home/kidprod/cleanup.sh" or die "Cannot update";

Though changing the mode to 0755 would be safer.

The mode parameter must be an octal number in Perl! That means it needs a leading zero. Well, you could use regular numbers if you knew that they had the desired octal value, but it's a lot clearer to use octal.

=========

As for points, neither Tintin nor I are doing this for "points". We answer questions because we enjoy helping people and value the stimulation the questions often provide for us to go off and learn new things.

100% agree with you jmcq.

Points are not important (most people never bother allocating them anyway).

Nothing has happened on this question in the past 9 months. It's time for cleanup!

My recommendation, which I will post in the Cleanup topic area, is that
the question be PAQed and points refunded.

Please post any comments here within the next seven days. Moderators check comments here before acting on the recommendation. Experts: silence will likely be taken as assent.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

jmcg
EE Cleanup Volunteer