Perl script to rotate logs Post: 302177254

Sponsored Content

Top Forums Shell Programming and Scripting Perl script to rotate logs Post 302177254 by theninja on Thursday 20th of March 2008 12:41:22 PM

03-20-2008

Registered User

as suggested I added/modified the code as follows

Code:

@LOGNAMES=map { glob($_) } 'Proxy*','Claim*','Eligibility*';
# @LOGNAMES=('fin*.log*','Proxy*','Claim*','Eligibility*');
%ARCHIVE=('*.$MONTH.*'=>1);

chdir $LOGPATH;  # Change to the log directory
printf "$LOGPATH\n";
foreach $filename (@LOGNAMES) {
  my $oldest = "$filename.$MAXCYCLE";
printf $filename\n;
print "DEBUG: oldest is '$oldest'\n";
  archive($oldest) if -e $oldest and $ARCHIVE{$filename};
print "DEBUG: '$oldest' exists\n" if -e $oldest;
print "DEBUG: ARCHIVE{'$filename'} is true\n" if $ARCHIVE{$filename};
print "DEBUG: would archive oldest\n" if -e $oldest and $ARCHIVE{$filename};
  for (my $s=$MAXCYCLE; $s >= 0; $s-- ) {
print "DEBUG: s is $s\n";
        $oldname = $s ? "$filename.$s" : $filename;
        $newname = join(".",$filename,$s+1);
print "DEBUG: oldname now '$oldname', newname is '$newname'\n";
print "DEBUG: would rename '$oldname' to '$newname'\n" if -e $oldname;
        rename $oldname,$newname if -e $oldname;

Whe I run it, it only prints out the $LOGPATH then hangs with no output. So i am asuming that one of these two lines is failing....
foreach $filename (@LOGNAMES) {
my $oldest = "$filename.$MAXCYCLE";

Perls doesn't seem very easy to debug, no stdout or stderr?

theninja

View Public Profile for theninja

Find all posts by theninja

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Script for Log Rotate

Hello, I only know the basic for shell programing. I need help for this, I thinks this is a basic for anyone who know a litle of shell scripting. I need creat a script for a rotatate logs, when a filesystem is full. I have a filesystem. The rotate consist in zip the current log (copy) and...

2. UNIX for Dummies Questions & Answers

Rotate logs every 1 hour

Hello All, I am learning unix and basically I want to rotate one of my application logs every 1 hour. I need to rotate that file every one hour. I looked in the forums and googled.. but couldn;t get proper information. Requesting you all to kindly guide me. Our application is running on...

3. Shell Programming and Scripting

Help with a rotate log script

Hi all, Am trying to write my own log rotate script. Curremtly, what I have is as below: #!/bin/ksh file_to_rotate=${1} x=${2} while ] do let curr=${x} let prev=${x}-1 if ] ; then #echo "cp -p ${file_to_rotate} ${file_to_rotate}.${curr}" cp -p...

4. Shell Programming and Scripting

Script to rotate file log

Hi Experts, I have script on crontab and give output quite large. I would like to know how to create rotate log when the size of log maximum 50MB if the test.log is 50MB then create test.0 Thanks Edy

5. Shell Programming and Scripting

Perl script to parse multiple windows event logs.

Hi all, I am developing a log parsing agent in perl to send windows Event logs to Zenoss Monitoring tool. Using Win32::EventLog i can able to get the Event messages but only one Eventype eg Application or System could able to parse at a time. Can you please help to how to open mutiple eventlogs...

6. Shell Programming and Scripting

Perl script to extract last 24 hrs logs from cronlog

Hi Friends, Can anybody help me to create a perl script to generate log file for last 24 hrs from cron log file ?? Thank You

7. UNIX for Dummies Questions & Answers

Need script to rotate logs

I have few solaris-10 non global zones, where one application is writing some logs to /var/ovd/ConfigLogs. It keeps increasing all the time, as it is needed by application team as of now. I want a small script, which I can configure in cronjob, which should : - Run every Saturday 10 PM - Copy...

8. UNIX for Dummies Questions & Answers

Logs do not rotate

My problem: Both access and error logs do not rotate any more and get really large. They are located here: /srv/www/+vHost name here+/logs/ Configuration seems to be here: /etc/logrotate.conf => looks OK, including "size 10M" to avoid large files (/etc/logrotate.d => is empty) manually...

9. Shell Programming and Scripting

If I ran perl script again,old logs should move with today date and new logs should generate.

Appreciate help for the below issue. Im using below code.....I dont want to attach the logs when I ran the perl twice...I just want to take backup with today date and generate new logs...What I need to do for the below scirpt.............. 1)if logs exist it should move the logs with extention...

LEARN ABOUT DEBIAN

catalyst::manual::deployment::sharedhosting

Catalyst::Manual::Deployment::SharedHosting(3pm)	User Contributed Perl Documentation	  Catalyst::Manual::Deployment::SharedHosting(3pm)

NAME

       Catalyst::Manual::Deployment::SharedHosting - Deploying Catalyst on Shared Hosting

Catalyst on shared hosting
       So, you want to put your Catalyst application out there for the whole world to see, but you don't want to break the bank. There is an
       answer - if you can get shared hosting with FastCGI and a shell, you can install your Catalyst app in a local directory on your shared
       host. First, run

	   perl -MCPAN -e shell

       and go through the standard CPAN configuration process. Then exit without installing anything. Next, download the latest local::lib package
       and follow its 'bootstrap' instructions to get it installed and the local configuration added to your "~/.bashrc".

       Now log out, then back in again (or run ". .bashrc" if you prefer).

       Now you can install the modules you need using CPAN as normal; they will be installed into your local directory, and Perl will pick them
       up.  Finally, change into the root directory of your virtual host, and symlink your application's script directory:

	   cd path/to/mydomain.com
	   ln -s ~/lib/MyApp/script script

       And add the following lines to your .htaccess file (assuming the server is setup to handle .pl as fcgi - you may need to rename the script
       to myapp_fastcgi.fcgi and/or use a SetHandler directive):

	 RewriteEngine On
	 RewriteCond %{REQUEST_URI} !^/?script/myapp_fastcgi.pl
	 RewriteRule ^(.*)$ script/myapp_fastcgi.pl/$1 [PT,L]

       Now "http://mydomain.com/" should now Just Work. Congratulations, now you can tell your friends about your new website.

AUTHORS

       Catalyst Contributors, see Catalyst.pm

COPYRIGHT

       This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.14.2							    2012-01-20			  Catalyst::Manual::Deployment::SharedHosting(3pm)