I have tried that too but still getting the same issue. I have attched the entire Script. If possible please have a look at it.Somehow the scrit is getting hanged on the first wait statment in main script and when i check which process is going on its showing the Tee process only.
When running top, I notice a bit more I/O wait time than usual. Is there a tool or piece of software out there that can me help evaluate the performance of these operations on my machine? Thanks! (5 Replies)
Hello, I have been trying to figure out why the wait isnt waiting for the sleep process to complete till now and have found out that since sleep runs as different process and not a child process the wait isnt waiting.
script:
cat test|while read i
do
echo $i
sleep 30 &
done
wait
ps... (4 Replies)
Hi,
Here is my code as below:
test.ksh:
=======
#!/bin/ksh
option="${1}"
while
do
case $1 in
-f) FILE="${2}"
echo "File name is $FILE"
;;
-d) DIR="${2}"
echo "Dir name is $DIR"
;;
-*)
echo "`basename ${0}`:usage: | " (5 Replies)
I am getting the following error when I am running a script in ksh when trying to execute an if statement comparing two numerical values
tstmb.sh: 1.5321e+08: 0403-057 Syntax error
Below is my code snippet.
#!/bin/ksh
set -x
TODAY=$(date +%y%m%d)
for file in $(ls -rt *.log | tail... (11 Replies)
The code at the bottom is a simplified example of what we have.
If I use the following:
&& echo "echo failed"
$? returns 1
When I use
if ; then echo "echo failed" ; fi
$? returns 0
Does anyone know what's wrong with this?
Using AIX 6.1 and KSH
for NUM in 1 2 3
do
... (5 Replies)
I'm looking for some help in figuring why my little bit of code will not process any entries other then the first one in my list.
while read line ;do
hostname=${line//\"}
a=`ssh user@$hostname uptime;echo $?`
if ];then
dt=`date`
touch... (6 Replies)
I have the following code in bash, however "set red frmt" is not displayed.
echo "iarg_rd = $iarg_rd"
iarg_rd="2"
if ; then
echo "Hello World"
fi
if ; then
frmt="${gap}${!frmt_titl_yl}"
elif ; then
frmt="${gap}${!frmt_titl_bk}"
elif ; then
echo... (2 Replies)
Hi All,
I have the requirement that ,i have to write a shell script that job has to wait for a 7 touch files created by another application for 4 hours, if i get all 7 touch files ,i have to send a mail that i jobs are completed, if if it is waiting for more than 4 hours i have to send a mail... (2 Replies)
Hi,
I have run into a problem to which i can't seem to find any solution, posting here is my last resort.
Problem:
I am using plink to access my router and run a few configuration commands. When in enter configurations mode, instead of sending next command plink keeps on waiting for manual... (7 Replies)
Discussion started by: zaainabbas
7 Replies
LEARN ABOUT DEBIAN
net::sieve::script
Net::Sieve::Script(3pm) User Contributed Perl Documentation Net::Sieve::Script(3pm)NAME
Net::Sieve::Script - Parse and write sieve scripts
SYNOPSIS
use Net::Sieve::Script;
my $test_script = 'require "fileinto";
# Place all these in the "Test" folder
if header :contains "Subject" "[Test]" {
fileinto "Test";
}';
my $script = Net::Sieve::Script->new ($test_script);
print "OK" if ( $script->parsing_ok ) ;
print $script->write_script;
or
my $script = Net::Sieve::Script->new();
my $cond = Net::Sieve::Script::Condition->new('header');
$cond->match_type(':contains');
$cond->header_list('"Subject"');
$cond->key_list('"Re: Test2"');
my $actions = 'fileinto "INBOX.test"; stop;';
my $rule = Net::Sieve::Script::Rule->new();
$rule->add_condition($cond);
$rule->add_action($actions);
$script->add_rule($rule);
print $script->write_script;
DESCRIPTION
Manage sieve script
Read and parse file script, make Net::Sieve::Script::Rule, Net::Sieve::Script::Action, Net::Sieve::Script::Condition objects
Write sieve script
Support RFC 5228 - sieve base
RFC 5231 - relationnal
RFC 5230 - vacation
Draft regex
missing
5229 variables
5232 imapflags
5233 subaddress
5235 spamtest
notify draft
CONSTRUCTOR
new
Argument : optional text script
Purpose : if param, put script in raw, parse script
Return : main Script object
Accessors :
->raw() : read or set original text script
->require() : require part of script
->rules() : array of rules
->max_priority() : last rule id
METHODS
parsing_ok
return 1 on raw parsing success
write_script
Purpose : write full script, require and rules parts
Return : set current require,
return rules ordered by priority in text format
equals
$object->equals($test_object): return 1 if $object and $test_object are equals
read_rules
$script->read_rules() : read rules from raw
$script->read_rules($some_text) : parse text rules
use of read_rules set $script->rules()
Return 1 on success
find_rule
Return Net::Sieve::Script::Rule pointer find by priority
Return 0 on error, 1 on not find
swap_rules
Swap priorities,
now don't take care of if/else/elsif
Return 1 on success, 0 on error
reorder_rules
Reorder rules with a list of number, start with 1, and with blanck separator. Usefull for ajax sort functions.
Thank you jeanne for your help in brain storming.
Return 1 on success, 0 on error
delete_rule
Delete rule and change priority, delete rule take care for 'if' test
if deleted is 'if'
delete next if next is 'else'
change next in 'if' next is 'elsif'
Return : 1 on success, 0 on error
add_rule
Purpose : add a rule in end of script
Return : priority on success, 0 on error
Argument : Net::Sieve::Script::Rule object
BUGS
Rewrite a hand made script will lose comments. Verify parsing success with parsing_ok method before write a new script.
SUPPORT
Please report any bugs or feature requests to "bug-net-sieve-script at rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Sieve-Script>. I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
AUTHOR
Yves Agostini - Univ Metz - <agostini@univ-metz.fr>
<http://www.crium.univ-metz.fr>
COPYRIGHT
Copyright 2008 Yves Agostini - <agostini@univ-metz.fr>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
SEE ALSO
Net::Sieve
perl v5.10.0 2008-09-15 Net::Sieve::Script(3pm)