topic Re: ksh script help in Operating System - HP-UX

ksh script help

brian_31 — Thu, 31 Mar 2005 15:45:07 GMT

Team:

I need to get this done in ksh script. I have the
following output from lpstat -o (we are trying to
capture the jobs which are in the print queue for 7
days or more). lpstat -o output is attached. Please
help.

Thanks

Brian.

Re: ksh script help

brian_31 — Thu, 31 Mar 2005 15:46:11 GMT

Hi again:

We are trying to capture the jobs which are 7 days or more in the queue and email them to admins.

Thanks

Brian

Re: ksh script help

RAC_1 — Thu, 31 Mar 2005 16:07:29 GMT

#!/usr/bin/ksh

7day_back=`perl -e '$sevenday = localtime(time-24*60*60),print "$sevenday\n"'|awk '{print $2, $3}'`

lpstat -o | grep "${7day_bak}"

Anil

Re: ksh script help

TwoProc — Thu, 31 Mar 2005 16:19:46 GMT

This should work... but I can't test it much b/c my queues are pretty clean right now...

#!/bin/ksh
export HNAME=`/bin/hostname`
cd /var/spool/lp/request
for i in `find . -type f -name "cA*${HNAME}" -mtime +7`
do
printer=`echo $i | cut -f 2 -d"/"`
job=`echo $i | cut -f 3 -d"/"| sed -e "s/^cA//" -e "s/$HNAME//"`
echo Print Job $job on printer $printer is older than 7 days
done | mailx -s "OLD PRINT JOBS" admin@urcompany.com

Re: ksh script help

brian_31 — Thu, 31 Mar 2005 16:27:56 GMT

Thanks. I also need to email the results to admins. PLUS i need the script to work on the output that i have given. Please help

Thanks

Brian

Re: ksh script help

TwoProc — Thu, 31 Mar 2005 18:19:09 GMT

the mailx command at the end of the script I sent will send out the mail...
The script I wrote doesn't use your output -
it uses the fact that those files will reside in the output queue directories to create a simple find command to do the work.
But, it should be a simple thing to get the one Anil posted to work just pipe it to mailx command like I have at the end of the command I posted above.

Re: ksh script help

brian_31 — Thu, 31 Mar 2005 21:49:22 GMT

Hi:

There was a typo in the ksh script. I changed that but i still get the broken pipe error. Wonder what the issue would be?

Thanks

Brian.

Re: ksh script help

Hoang Chi Cong_1 — Fri, 01 Apr 2005 00:17:27 GMT

Think that you should remove it!

Re: ksh script help

brian_31 — Fri, 01 Apr 2005 07:56:12 GMT

hi:

This is what i get when i execute the script

$./print.sh
./print.sh[4]: 7day_back=Mar: not found
./print.sh[6]: "${7day_back}": bad substitution
$Broken Pipe

Please help

Re: ksh script help

harry d brown jr — Fri, 01 Apr 2005 08:26:03 GMT

you can NOT have numbers as the first chracter in a variable name!

SevenDaysBack=`perl -e '$sevenday = localtime(time-(7*24*60*60));print "$sevenday\n"'|awk '{print $2, $3}'`

and of course 7 days back is time - (7 * 24 * 60 *60)

live free or die
harry d brown jr

Re: ksh script help

Henk Pilon — Fri, 01 Apr 2005 08:27:02 GMT

Just don't start the name of a variable with a digit. ksh expects that to be a standard variable passed to the script at the commandline. ($0 - $9)
Change 7days_back to days_back or sevendays_back

Good luck

Re: ksh script help

brian_31 — Fri, 01 Apr 2005 10:22:07 GMT

anil/all:

I am getting null string for $sevenday $2 and $3 these are also null. please help.

Thanks

brian

Re: ksh script help

harry d brown jr — Fri, 01 Apr 2005 10:50:54 GMT

What do you get when you run this:

perl -e '$sevenday = localtime(time-(7*24*60*60));print "$sevenday\n"'|awk '{print $2, $3}'

or this:

perl -e '$sevenday = localtime(time-(7*24*60*60));print "$sevenday\n"'

live free or die
harry d brown jr

Re: ksh script help

Hein van den Heuvel — Fri, 01 Apr 2005 11:17:36 GMT

Hmmm,

that $sevendays thing works fine for me:

> ksh
$ SevenDaysBack=`perl -e '$sevenday = localtime(time-(7*24*60*60));print "$seven
day\n"'|awk '{print $2, $3}'`

$ echo $SevenDaysBack
Mar 25

fwiw, Personally it rubs me the wrong way to follow perl with awk when a trivial perl solution is available. For example:

$ perl -e '$_ = localtime(time-(7*24*60*60)); @old=split; print "$old[1] $old[2]
\n"'
Mar 25
$

To carry that theme forward, why not compare the dates in perl? Now the 'Mar 31' style date is hard to compare. So first convert it to seconds. Then compare with current time in seconds minus cutoff time. I don't know how to have perl do month-string to month-number nicely (Language independend, so I cheated and hardcoded a month table:

Start of a solution:

---- find_old.p ----
use Time::Local;
$year = (localtime)[5];
while (<>){
if (/(\w+)\s+(\d+)\s+(\d+):(\d+)$/) {
$mon = index("JanFebMarAprMayJunJulAugSepOctNovDec",$1)/3;
$t = timelocal(0,$4,$3,$2,$mon,$year);
print if ($t < time - (7*24*60*60))
}
}

---- sample output for slightly editted input sample ---

perl find_old.p lpstat.txt
brflora-295 aflorad1@essdbdu31 4330 Mar 21 19:30
brflora-298 aflorad1@essdbdu31 5444 Feb 2 19:30

It should be straight forwards to just print names, numbers, or email from that perl script.

Good luck,
Hein.

Re: ksh script help

Rory R Hammond — Fri, 01 Apr 2005 13:09:48 GMT

Brian,

I know that you are focused on the lpstat command.
I approached the problem differently
cd /var/spool/lp/request
find . -type file -mtime -7 -print
and then process that list.

good luck
Rory

Re: ksh script help

brian_31 — Fri, 01 Apr 2005 13:29:10 GMT

Thanks Harry, Hein. It works. What a Forum this is!!!! Unbeleivable.

Thanks a ton

Brian