Hi everyone!
I'm trying to create a database monitoring script that reads an alert file and sends an error message if it can 'grep' a particular string.
Is there a way to send this message to a mail client using SMTP?
Even better, is there any place on this site that has these kinds of... (5 Replies)
I am comparing two table structure in different databases,Put into 2 txt files , when comparing if column sequnce and data type is not matching ,it has to display that info else Table structure is ok.
wrote shell script ,its not working .I am getting "Table structure is not ok" even if both... (1 Reply)
Hi,
I have two databases with same tables on different servers.I need to check the data content in each table and if something is missing, should print that.
I have a tool which takes the snapshot the table structure,index so on and compares with the other server tables snapshot.
Now i need... (1 Reply)
Hi guys...
I am busy writing a script to notify me via an mail if my application is down. I have done that.
Now I want this script to stop sending mails after five mails were sent but the script should keep on checking the application.
When the application is up again that count should be... (5 Replies)
Hello all;
I have been really frustrated with finding the correct perl code (and MySql statements) to accomplish what I thought was straight forward...I have tested I don't know how many different codes\suggestions I found on the net without any success...but anyhow let me explain my plight and... (0 Replies)
I have 2 files that need to be compared. Email the differences if something is different and don't email if nothing is different. One or both of the files could be empty. One or both could have data in them.
example files
backup.doc.$(date +%y%m%d) file size is 0
backup.doc.$(TZ=CST+24... (4 Replies)
Whats the difference between mail and mailx?
I'm trying to troubleshoot a problem where I can send mail from server A with this `echo $MESSAGE | mail -s "$SUBJECT" -r $FROM $RECIPIENTS` command but executing the same command from server B throws me this error (Both servers are RHEL)
... (1 Reply)
Hi,
I have txt file below
02.05.2014,10.05.2014,dfs,srtytr,tyhty
05.10.2014,15.10.2014,456ef,t6y5fgtd,xg45t
21.11.2014,28.11.2014,sefser,dfw344,zsdfrw
22.12.2014,30.12.2014,fwe,aerw4,zwq4q
my script will ask two input,
enter start date
05.10.2014
enter end date... (3 Replies)
my queryis :
select distinct m.name, item_count, item from master m join client p on m.name=p.name where item_count = 1 and item > 1;
But how should I update them?
i used update statetment :
Update from client Set item =1 where m.name=p.name and item_count=1 AND item>1
Is this wrong? (1 Reply)
I have defined a set of global variables at the beginning of my script as below:
#ideal values
export ITEM1=SUCCESS
export ITEM2=FAILURE
export ITEM3=UNAVAILABLE
export ITEM5=FAILURE
export ITEM6=SUCCESS
now I have a shell script function which returns a value in below format.
ITEM1... (1 Reply)
Discussion started by: ctrld
1 Replies
LEARN ABOUT CENTOS
tk::table
Table(3) User Contributed Perl Documentation Table(3)NAME
Tk::Table - Scrollable 2 dimensional table of Tk widgets
SYNOPSIS
use Tk::Table;
$table = $parent->Table(-rows => number,
-columns => number,
-scrollbars => anchor,
-fixedrows => number,
-fixedcolumns => number,
-takefocus => boolean);
$widget = $table->Button(...);
$old = $table->put($row,$col,$widget);
$old = $table->put($row,$col,"Text"); # simple Label
$widget = $table->get($row,$col);
$cols = $table->totalColumns;
$rows = $table->totalRows;
$table->see($widget);
$table->see($row,$col);
($row,$col) = $table->Posn($widget);
DESCRIPTION
Tk::Table is an all-perl widget/geometry manager which allows a two dimensional table of arbitary perl/Tk widgets to be displayed.
Entries in the Table are simply ordinary perl/Tk widgets. They should be created with the Table as their parent. Widgets are positioned in
the table using:
$table->put($row,$col,$widget)
If $widget is not a reference it is treated as a string, and a Lable widget is created with the string as its text.
All the widgets in each column are set to the same width - the requested width of the widest widget in the column. Likewise, all the
widgets in each row are set to the same height - the requested height of the tallest widget in the column.
A number of rows and/or columns can be marked as 'fixed' - and so can serve as 'headings' for the remainder the rows which are scrollable.
The requested size of the table as a whole is such that the number of rows specified by -rows (default 10), and number of columns specified
by -columns (default 10) can be displayed.
If the Table is told it can take the keyboard focus then cursor and scroll keys scroll the displayed widgets.
The Table will create and manage its own scrollbars if requested via -scrollbars.
The table can be emptied using
$table->clear
the widgets which were in the table are destroyed.
The Tk::Table widget is derived from a Tk::Frame, so inherits all its configure options.
BUGS / Snags / Possible enhancements
o Very large Tables consume a lot of X windows.
o No equivalent of pack's -anchor/-pad etc. options
SEE ALSO
Tk::grid, Tk::HList, Tk::TableMatrix, Tk::MListbox, Tk::Columns
perl v5.16.3 2014-06-10 Table(3)