Cygwin wmaker failures on the wmaker.inst

Removing the errors that occur on the wmaker.inst directory not found ... change the Documents And Settings to the Docume~1 (8 char) notation in the .bashrc

export HOME="/cygdrive/c/Docume~1/MyUserName"

Removing lines context based with -pe

Removing lines with the -pe option.

perl -i -pe '
s/true/false/g;
s/^.+user-preferred.+$//g;
s/^.*(<\/cluster>.*)$/$1 xsi:nil="true">$2/g;
s/^.*(<\/machine>.*)$/$1 xsi:nil="true">$2/g;

if ($_ =~ // ) {
$ssl='on';
}
if ($_ =~ /listen-port/ and $ssl) {
$_ = undef;
$ssl= undef;
}
if ($_ =~ /
}

if ($_ =~ /<\/jta-migrat/ ) { $m = undef; $_ = undef; } ' spa/qas/config/config.xml vi spa/qas/config/config.xml

Setting Terminal Column and Rows Setting

export COLUMNS=80;export ROWS=24;stty rows 24 cols 80

Cygwin Bell Elimination On Backspace

echo set bell-style none >> $HOME/.inputrc

Oracle: Listing All Invalid PLSQL Packages

SELECT count(*) 
FROM ALL_OBJECTS 
WHERE owner = 'MYAPP'
  and  OBJECT_TYPE like  'PACKAGE\%'
  and status = 'INVALID'; ";

Showing CLOB information for Oracle

SELECT  dbms_lob.substr(a.user_data.payload, 3000,1)
FROM vmsut.tms_queue_table a

Perl And Capturing remote stdout and strerr streams

The script opens the systemout.log of the nodeagent and finds the references to the incident streams and shows them on the screen. Helpfull for troubleshooting WebSphere startup problems.

#!/usr/bin/perl

open (CMD, "( /usr/bin/ssh foouser\@host1 'cd pf/logs/nodeagent/;cat systemout.log | grep resetIncidentStream | cut -b152-') |")
 or die "ERROR: $!";
while () {
 print $_, "\n";
 open (CMD2, "( /usr/bin/ssh foouser\@host2 'grep -i exception $_') |");
 while () {
   print "$_";
 }
}
close (CMD);