Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: [Shell/Perl(?)] Prepending timestamps to console output & writing results to a file
Top Forums Shell Programming and Scripting [Shell/Perl(?)] Prepending timestamps to console output & writing results to a file Post 302647071 by Vryali on Sunday 27th of May 2012 06:15:06 AM
Old 05-27-2012
Makes sense - I've bookmarked the other bit for reading when I'm more awake.

Wanted to come back and post my script, in case anyone had a use for them courtesy of the google machine later. There isn't a lot to it, and the hard part isn't mine per se, but here we go. Should work on any system with TSM server installed (Except Windows, but if you installed TSM on Windows, that's your own damn fault :])

Code:
#!/bin/sh
###############################################################################
#                                                                             #
#  Script Name: TSM-Console.sh                                                #
#  Created on : 05/26/2012                                                    #
#  Author     : Vryali                                                        #
#  Purpose    : Allow for console logging, which is normally more succint and #
#       easier to parse than the actlog, and keep seven days worth of logging.#
#  Note       : This script can be run through the crontab or AutoSys.        #
#  Cron                                                                       #
#       0 0 * * * /usr/local/bin/TSM-LogConsole.sh 1>/dev/null 2>&1           #
#  AutoSys/JIL                                                                #
#   insert_job: SA.TSM.LogConsole                                             #
#   command: /jobs/SA/prod/Prod_Run tsm@tivoli /usr/local/bin/TSM-Console.sh  #
#   permission: gx,wx                                                         #
#   date_conditions: 1                                                        #
#   days_of_week: all                                                         #
#   start_times: "00:01"                                                      #
#   description: "TSM Console Logging Script"                                 #
#   alarm_if_fail: 1                                                          #
#                                                                             #
#  History:                                                                   #
#  00 : Vryali     05/21/2012                                                 #
#       Original version of the script completed.                             #
#                                                                             #
###############################################################################

DSM="/usr/bin/dsmadmc"
TSMUser="username"
TSMPass="password"
PIDFile="/var/run/tsmconsole.pid"
CONLOG="/TSM/home/CONSOLE_LOG/`date +%a`-Console.log"

if [ -s ${PIDFile} ]; then
    cat ${PIDFile} | xargs kill -9
    cp /dev/null ${PIDFile}
fi

# Clear up the old one [if needed] but keep permissions...
cp /dev/null ${CONLOG}

# Start logging
nohup ${DSM} -id=${TSMUser} -pass=${TSMPass} -console| awk 'BEGIN { c = "date \"+%D %T\""; } { m=$0; c | getline; close( c ); print $0, m; }' >> ${CONLOG} 2>&1 &
# $! is actually awk - not DSM, so we'll filter out $$ - which is the subshell before we exit it.
ps -ef| grep $! | grep -v grep | grep -v $$ | awk '{print $2}' > ${PIDFile}
exit 0

Last edited by Vryali; 05-27-2012 at 07:21 AM.. Reason: Forgot to remove real name :)
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Finding pattern & prepending a line with text

Hello Dudes, I have a task to make a unix shell script that should search for a specific TEXT in a file.If that TEXT is found, shell script should add a comment statement before that TEXT line. Ex : LINE 1 xxxxx LINE 2 xxxx CALL xxxx LINE 3 xxxx PERFORM UNTIL if i... (1 Reply)
Discussion started by: kirrushna
1 Replies

2. UNIX for Dummies Questions & Answers

Writing to a file without echo it to the console !!!!

hi all, I am trying to write some message to a file using the following command. echo "${MESSAGE}" >&1 | tee -a ${File_name} can the same be done without using echo . I don't want the result to be displayed to the console. Can anyone guide me. Thanks in advance (6 Replies)
Discussion started by: amit_kv1983
6 Replies

3. Shell Programming and Scripting

Writing sql results to file using ksh -nevermind

I'm having problems with writing my sql results to a file: sqlplus -S username/password@DB <<!! set echo off set verify off set showmode off set feedback off set timing off set linesize 250 set wrap off set pagesize 0 set newpage none set tab off set trimspool on set colsep... (1 Reply)
Discussion started by: avillanueva
1 Replies

4. Shell Programming and Scripting

shell script output in HTML or with table like results

Hello, Currently i have a ksh script which will disply the results in plain text format. I want to format the result in more readable format like Making bold headings and format with colors etc. Something like html or excel format and send that content as email. Please help me how i can do... (2 Replies)
Discussion started by: kotasateesh
2 Replies

5. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

6. Shell Programming and Scripting

Perl - save results to output file.

Can any one please help, the code works...I want the output of $result to be saved in an output.txt file which is lcoated in c:\\temp\\output.txt. $filepath="C:\\temp\\ip.txt"; open (HOSTLIST,"$filepath"); @hosts=(<HOSTLIST>); foreach $host(@hosts) { $results = `nslookup... (1 Reply)
Discussion started by: sureshcisco
1 Replies

7. Shell Programming and Scripting

Sed script for appending & prepending

Hello Mates I am trying to write a script, which appends and prepends the text in a file. I tried testing with a small file and it worked fine. but for the large file, the script is wiping the entire file and adds only the word to be appended in the file. mv $file_name $file_name.bak sed... (6 Replies)
Discussion started by: sathyaac
6 Replies

8. Shell Programming and Scripting

awk help: Match data fields from 2 files & output results from both into 1 file

I need to take 2 input files and create 1 output based on matches from each file. I am looking to match field #1 in both files (Userid) and create an output file that will be a combination of fields from both file1 and file2 if there are any differences in the fields 2,3,4,5,or 6. Below is an... (5 Replies)
Discussion started by: ambroze
5 Replies

9. Shell Programming and Scripting

[Solved] Writing output to the console

Hi All, I have written one script in which am writting the result to the log file. I want to display the results on the console also if ; then echo "$result doesnot match with the host file">>InputHostsFileErrors.txt else echo "$result input matches with the host... (7 Replies)
Discussion started by: sharsour
7 Replies

10. UNIX for Beginners Questions & Answers

Print Error in Console and both Error & Output in Log file - UNIX

I am writing a shell script with 2 run time arguments. During the execution if i got any error, then it needs to redirected to a error file and in console. Also both error and output to be redirected to a log file. But i am facing the below error. #! /bin/sh errExit () { errMsg=`cat... (1 Reply)
Discussion started by: sarathy_a35
1 Replies

LEARN ABOUT DEBIAN

ui::dialog::console

UI::Dialog::Console(3pm)				User Contributed Perl Documentation				  UI::Dialog::Console(3pm)

NAME

       UI::Dialog::Console

SYNOPSIS

	 use UI::Dialog::Console;
	 my $d = new UI::Dialog::Console ( title => 'Default',
					   height => 20, width => 65,
					   listheight => 5 );

	 # Either a CDialog, Whiptail or ASCII msgbox widget should be displayed
	 # with a preference for CDialog.
	 $d->msgbox( title => 'Welcome!', text => 'Welcome one and all!' );

ABSTRACT

       UI::Dialog::Console is simply another meta-class for UI::Dialog. This class simply has a different order of priority than UI::Dialog and no
       GUI support.

DESCRIPTION

       This class is simply a nice way to try and ensure a Console based widget set.

EXPORT

	 None

INHERITS

	 UI::Dialog

CONSTRUCTOR

       new( @options )

       EXAMPLE
	    my $d = new( title => 'Default Title', backtitle => 'Backtitle',
			 width => 65, height => 20, listheight => 5,
			 order => [ 'cdialog', 'whiptail', 'ascii' ] );

       DESCRIPTION
		 This is the Class Constructor method. It accepts a list of key => value pairs and uses them as the defaults when interacting with
		 the various widgets.

       RETURNS
		 A blessed object reference of the UI::Dialog::Console class.

       OPTIONS
	   The (...)'s after each option indicate the default for the option.

	   debug = 0,1,2(0)
	   order = [ kdialog, xdialog ] (as indicated)
	   PATH = [ /bin, /usr/bin, /usr/local/bin, /opt/bin ] (as indicated)
	   backtitle = "backtitle" ('')
	   title = "title" ('')
	   beepbefore = 0,1(0)
	   beepafter = 0,1(0)
	   height = d+(20)
	   width = d+(65)
	   listheight = d+(5)

SEE ALSO

       PERLDOC
	  UI::Dialog
	  UI::Dialog::Backend
	  UI::Dialog::Backend::ASCII
	  UI::Dialog::Backend::CDialog
	  UI::Dialog::Backend::Whiptail

       MAN FILES
	  dialog(1), whiptail(1)

BUGS

       Please email the author with any bug reports. Include the name of the module in the subject line.

AUTHOR

       Kevin C. Krinke, <kckrinke@opendoorsoftware.com>

COPYRIGHT AND LICENSE

	Copyright (C) 2003  Kevin C. Krinke <kckrinke@opendoorsoftware.com>

	This library is free software; you can redistribute it and/or
	modify it under the terms of the GNU Lesser General Public
	License as published by the Free Software Foundation; either
	version 2.1 of the License, or (at your option) any later version.

	This library is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
	Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public
	License along with this library; if not, write to the Free Software
	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA

perl v5.8.8							    2004-08-01						  UI::Dialog::Console(3pm)
All times are GMT -4. The time now is 06:30 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy