doc/loncapafiles/logcleanup.piml - diff

Return to logcleanup.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.1, 2005/07/08 15:46:40	version 1.2, 2006/01/23 19:51:24
Line 34 http://www.lon-capa.org/	Line 34 http://www.lon-capa.org/
<file>	<file>
<target dist='default'>/home/httpd/perl/logs/lonnet.perm.log</target>	<target dist='default'>/home/httpd/perl/logs/lonnet.perm.log</target>
<perlscript mode='fg'>	<perlscript mode='fg'>
unless	if (-e '<TARGET />') # Does file exist?
(-e '<TARGET />') # Does file exist?
{	{
print("** ERROR ** Missing <TARGET />\n");
} else {
system('cp <TARGET /> <TARGET />.old');	system('cp <TARGET /> <TARGET />.old');
open(IN,'<TARGET />.old');	open(IN,'<TARGET />.old');
open(OUT,'><TARGET />');	open(OUT,'><TARGET />');