RE: Help Required on the Script

[Raymond Raj]

> -Original Message-
> From: Mazhar [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 06, 2006 3:19 PM
> To: [EMAIL PROTECTED]
> Cc: beginners@perl.org
> Subject: Re: Help Required on the Script
>
>
> thanks Raymond for the help it works,
> and what do u mean by variable interpolation


may be i don't know how to explain "variable interpolation", why not try in
google? or some one else from this group will explain you

Thanks


>
> Regards
> Mazhar
>





> On 4/6/06, Raymond Raj <[EMAIL PROTECTED]> wrote:
> >
> > > -Original Message-
> > > From: Mazhar [mailto:[EMAIL PROTECTED]
> > > Sent: Thursday, April 06, 2006 2:41 PM
> > > To: Jaime Murillo
> > > Cc: beginners@perl.org
> > > Subject: Re: Help Required on the Script
> > >
> > >
> > > Thank you giyz for the help i require one more help from
> > > yourside. i have
> > > one more code where in i am getting error on print of a value
> > > of a variable,
> > >
> > >
> > > below is the code
> > >
> > > #!/usr/bin/perl -w
> > > use strict;
> > > use warnings;
> > >
> > > my $string="[EMAIL PROTECTED]";
> > >
> > > print $string;
> > >
> >
> >
> > put string into single quotes, double quotes allow variable
> interpolation
> > so
> > perl think @04 as some variable.
> > my $string='[EMAIL PROTECTED]'; #will work
> > or you can use  just like below
> > my $string="[EMAIL PROTECTED]"; #not recommended
> >
> >
> >
> >
> >
> > Confidentiality Notice: This transmittal is a confidential
> > communication.  If you are not the intended recipient, you
> are hereby
> > notified that you have received this transmittal in error
> and that any
> > review, dissemination, distribution or copying of this
> transmittal is
> > strictly prohibited. If you have received this
> communication in error,
> > please notify this office immediately by reply and
> immediately delete this
> > message and all of its attachments, if any.
>





Confidentiality Notice: This transmittal is a confidential communication.  If 
you are not the intended recipient, you are hereby notified that you have 
received this transmittal in error and that any review, dissemination, 
distribution or copying of this transmittal is strictly prohibited. If you have 
received this communication in error, please notify this office immediately by 
reply and immediately delete this message and all of its attachments, if any.

RE: Help Required on the Script

[Raymond Raj]

> -Original Message-
> From: Mazhar [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 06, 2006 2:41 PM
> To: Jaime Murillo
> Cc: beginners@perl.org
> Subject: Re: Help Required on the Script
>
>
> Thank you giyz for the help i require one more help from
> yourside. i have
> one more code where in i am getting error on print of a value
> of a variable,
>
>
> below is the code
>
> #!/usr/bin/perl -w
> use strict;
> use warnings;
>
> my $string="[EMAIL PROTECTED]";
>
> print $string;
>


put string into single quotes, double quotes allow variable interpolation so
perl think @04 as some variable.
 my $string='[EMAIL PROTECTED]'; #will work
or you can use  just like below
my $string="[EMAIL PROTECTED]"; #not recommended





Confidentiality Notice: This transmittal is a confidential communication.  If 
you are not the intended recipient, you are hereby notified that you have 
received this transmittal in error and that any review, dissemination, 
distribution or copying of this transmittal is strictly prohibited. If you have 
received this communication in error, please notify this office immediately by 
reply and immediately delete this message and all of its attachments, if any.

RE: perl help : escape character

[Raymond Raj]

> -Original Message-
> From: Irfan J Sayed [mailto:[EMAIL PROTECTED]
> Sent: Thursday, April 06, 2006 11:29 AM
> To: beginners@perl.org
> Subject: perl help : escape character
> 
> 
> Hi All,
> 
> I am running following clearcase command 
> 
> my @activity = `$CT lsactivity -short -invob \Irfan_Test`;
> 
> where \Irfan_Test  is the vob tag
>

try eith using double escape

my @activity = `$CT lsactivity -short -invob \\Irfan_Test`;

Raymond




Confidentiality Notice: This transmittal is a confidential communication.  If 
you are not the intended recipient, you are hereby notified that you have 
received this transmittal in error and that any review, dissemination, 
distribution or copying of this transmittal is strictly prohibited. If you have 
received this communication in error, please notify this office immediately by 
reply and immediately delete this message and all of its attachments, if any.

RE: Help Required on the Script

[Raymond Raj]

> -Original Message-
> From: Mazhar [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 05, 2006 12:16 PM
> To: beginners@perl.org
> Subject: Help Required on the Script
> 
> 
> Hi Guyz,
> i am writin a script to automate the command 
> snmpwalk by reading
> the contents of a file. Below is the snippet
> 
> $file_name="somefile.txt";
> 
> open(FILE,"< $file_name");
> 
> while()
> {
> my $ip;
> my $comm_string;
> ($ip,$comm_string)=split(",",$_);
> $tempRNA=qw("snmpwalk -t 1 -r 1 $ip $comm_string 
> .1.3.6.1.2.1.1.5 >
> RNA$ip.txt");
> 

may be you want qq not qw. qw returns list.

for more details about qw or qq see perlop.
perldoc perlop




Confidentiality Notice: This transmittal is a confidential communication.  If 
you are not the intended recipient, you are hereby notified that you have 
received this transmittal in error and that any review, dissemination, 
distribution or copying of this transmittal is strictly prohibited. If you have 
received this communication in error, please notify this office immediately by 
reply and immediately delete this message and all of its attachments, if any.

RE: can not filter out commentary lines with reg-exps

[Raymond Raj]

> -Original Message-
> From: Harald [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 29, 2006 5:53 PM
> To: beginners@perl.org
> Subject: can not filter out commentary lines with reg-exps
> 
> 
> Hi,
> 
> I need to parse an ASCII file which first rows are comments. 
> Those rows 
> are marked by a '#' at their beginning.
> I try to filter them out by
> 
> while( <$FH> =~ m{\#*} )
> {}

Try this 
 while( <$FH> =~ m{\#+} )


   *  Match 0 or more times
   +  Match 1 or more times 

perldoc perlre


> 
> But this does not work. The loop does never stop.
> What goes wrong? I am really confused!
> 
> Regards and thanks a lot for your help in advance,
> Harald
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>  
> 
> 
> 




Confidentiality Notice: This transmittal is a confidential communication.  If 
you are not the intended recipient, you are hereby notified that you have 
received this transmittal in error and that any review, dissemination, 
distribution or copying of this transmittal is strictly prohibited. If you have 
received this communication in error, please notify this office immediately by 
reply and immediately delete this message and all of its attachments, if any.

RE: why can't getstore function overwrite the existing file?

[Raymond Raj]

you have using "$based_url" variable in my
$status=getstore($based_url,$filename); but you have declare "$base_url"

it's always better using  'use strict' and warnings pragma...



-Original Message-
From: Franklin [mailto:[EMAIL PROTECTED]
Sent: Monday, October 11, 2004 3:18 PM
To: [EMAIL PROTECTED]
Subject: why can't getstore function overwrite the existing file?


Hello:
I have encounter a very strange problem. I have the following script:

use LWP::Simple;
use URI;

$base_url="http://finance.yahoo.com";;
$filename="finance.htm";
while(1)
{
my $status=getstore($based_url,$filename);
if(is_success($status)){
print "good\n";
}
else
{
print "bad\n";
}
sleep 300;
}

So this scipt is supposed to fetch the newest finance.yahoo.com
webpage every five minutes and store it. But everytime I started
it,waited for several hours and stopped it later, the stored
finance.htm is always the the first time captured file. What is wrong
with my scipt?(I run it at freebas platform)

Thank you very much in advance!
Franklin

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: Creating a word document

[Raymond Raj]

hi
use Win::OLE module
some examples availbe at
http://perlmonks.thepen.com/198045.html


-Original Message-
From: paul beckett (JIC) [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 6:58 PM
To: [EMAIL PROTECTED]
Subject: Creating a word document


I've been trying to find a perl module that can create microsoft word
documents and failed. Does anyone know of one?

Cheers,

Paul

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: regex help

[Raymond Raj]

Hi!

what's problem in these regular expressions.. every thing correct!

do you need to convert one or more than one match into single replacement
then regexp should be

$safeString =~ s/\s+/_/g;




-Original Message-
From: Johnstone, Colin [mailto:[EMAIL PROTECTED]
Sent: Friday, September 24, 2004 11:02 AM
To: [EMAIL PROTECTED]
Subject: regex help


Gidday all,

Im trying to write a regex to convert spaces to underscores and ampersands
to 'and'  can someone help.

$safeString = "News & Events";
$safeString =~ s/&/and/g;
$safeString =~ s/\s/_/g;

Regards

Colin


This E-Mail is intended only for the addressee. Its use is limited to that
intended by the author at the time and it is not to be distributed without
the
author's consent. Unless otherwise stated, the State of Queensland accepts
no
liability for the contents of this E-Mail except where subsequently
confirmed in
writing. The opinions expressed in this E-Mail are those of the author and
do
not necessarily represent the views of the State of Queensland. This E-Mail
is
confidential and may be subject to a claim of legal privilege.

If you have received this E-Mail in error, please notify the author and
delete this message immediately.


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: import from text file to mysql

[Raymond Raj]

>my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");

here you had forgot  escape the double quotes,should be escaped quotes:
\"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt\"

my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
\"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt\" INTO TABLE flow FIELDS
TERMINATED BY ',' ");



-Original Message-
From: Roime bin Puniran [mailto:[EMAIL PROTECTED]
Sent: Friday, September 24, 2004 8:57 AM
To: Perl Beginners List
Subject: RE: import from text file to mysql


I am sorry that not showing u a detail at least, about my text file...Here
is te sample of my text file...

===

"1.200.200.202.157 2.200.200.250.7 3.0 4.255 5.8 6.1109 7.0 8.0
9.1095648052.771 10.1095648052.979 11.1417 12.445 13.27 14.6 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.11900024.0 25.0 26.0 27.32"
"1.200.200.202.157 2.200.200.250.7 3.0 4.255 5.2 6.92 7.0 8.0
9.1095648052.770 10.1095648052.771 11.1413 12.445 13.17 14.6 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.024.0 25.0 26.0 27.0"
"1.200.200.245.239 2.200.200.255.255 3.0 4.255 5.6 6.468 7.0 8.0
9.1095648052.402 10.1095648052.847 11.137 12.137 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.024.0 25.0 26.0 27.32"
"1.200.200.101.1 2.200.200.255.255 3.0 4.255 5.1 6.243 7.0 8.0
9.1095648061.059 10.1095648061.059 11.138 12.138 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.024.0 25.0 26.0 27.32"
"1.200.200.100.97 2.200.200.255.255 3.0 4.255 5.3 6.234 7.0 8.0
9.1095648053.622 10.1095648055.122 11.137 12.137 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.024.0 25.0 26.0 27.32"

==

But there is no problem about the data i think..And sorry because i am not
customize it first...:)The big matter is how can i import a text file
into mysql...I just wrote some code ...Here is my code...



#!/usr/bin/perl

use DBI;
use IO::Socket;
###
#import.pl
#Roime Bin Puniran
#Telekom RnD
###

$local = IO::Socket::INET->new(
Proto => 'tcp',
LocalAddr => '***',
Reuse => 1
) or die "$!";
$local->listen();
$local->autoflush(1);

print "..Testing...\n";
#my $addr;

while($addr=$local->accept())
{
print"Connect From : ", $addr->peerhost();
#Display Message
print "Port : ", $addr->peerport(), "\n";

my $dbh=DBI->connect('dbi:mysql:test', 'root','')||
die "Error opening database: $DBI::errstr\n";

print "I think it's connect !.";

my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");

$sth->execute();
$set->finish();

$dbh->disconnect ||
die "Failed to connect..";
$dbh->disconnect ||
die "Error opening database: $DBI::errstr\n";

my $result;
while(<$addr>)
{
last if m/^end/gi;
print "Received : $_";
print $addr $_;
$result += $_;
}

chomp;
if(m/^end/gi)
{
my $send = "result";
print $addr "$send\n";
print "Result: $send\n";
}
print "Closed connection\n";

close $addr;
print "At your serviceWaiting Please !!..\n";
}


==
i just used this below method to import it into mysql, instead of
mysqlimport...

my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");

But i receive this message when i compiled it..

"String found where operator expected at import.pl line 34, near "TERMINATED
BY ','""
  (Might be a runaway multi-line "" string starting on line 33)
(Missing semicolon on previous line?)
syntax error at import.pl line 34, near "TERMINATED BY ','""
Execution of import.pl aborted due to compilation errors. "

Do you have any suggestion ?...




This e-mail and any attachments may contain confidential and
privileged information. If you are not the intended recipient,
please notify the sender immediately by return e-mail, delete this
e-mail and destroy any copies. Any dissemination or use of this
information by a person ot

RE: how to change values of @INC

[Raymond Raj]

you can add new search path  using 
use lib 'path List';

for delete 

no lib 'path list';


Raymond

-Original Message-
From: Bernd Mueller [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 22, 2004 8:04 PM
To: [EMAIL PROTECTED]
Subject: how to change values of @INC 



Hello,

I am trying to run a perl script under apache2 and the error_log tells me  
something about:
"Can't locate SiteDefs.pm in @INC (@INC contains:  
/usr/local/lib/perl5/5.8.5/x86_64-linux etc ...) at  
/usr/local/ensembl/perl/multi/unisearch line24., referer: http://localhost/
...
BEGIN failed--compilation aborted at ..."

Would someone be so nice to explain me how i change the values in @INC,  
because i know where to find this SiteDefs.pm.

Best Regards,
Bernd

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: Two easy questions.

[Raymond Raj]

Hi!

"assoc " and "ftype" commands are used to associate extension for
particular file types..


>Is there a way to run my script without specifying "Perl" before the
script? In other words, I want to type c:\myscript.plx >instead of c:\perl
myscript.plx.

yes you can, try "assoc /?" and  "ftype /?" it'll tell  how to associates
file types.

HTH
Raymond

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 21, 2004 8:37 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Re: Two easy questions.


You appear to be on a Windows system. The file  extensions on Windows are
for
association. Hence, to answer your second question  first, if you're on
ActiveState Perl, all .pl extensions are automatically  associated with
perl, if
you did it right, and just typing 'foo.pl' in the shell  should run it.
.cgi,
.pl, etc. It doesn't matter to the interpreter. It may  however matter to
how it
is treated by the OS and other programs, such as a  server.

--
-will
http://www.wgunther.tk
(the above message is  double rot13 encoded for security reasons)

Most Useful Perl  Modules
-strict
-warnings
-Devel::DProf
-Benchmark
-B::Deparse
-Data::Dumper
-Clone
-Perl::Tidy
-Beautifier
-DBD::SQLite


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: entering text in perl/tk

[Raymond Raj]

Hi,
go for any perl/tk manual, unfortunate I don't know more about perl/tk.
once i had time to check that "widget"  demos so only i mentioned that
examples...anyway maybe some one else from this group can help!

Raymond






-Original Message-
From: N, Guruguhan (GEAE, Foreign National, EACOE)
[mailto:[EMAIL PROTECTED]
Sent: Monday, September 20, 2004 6:19 PM
To: Raymond Raj; [EMAIL PROTECTED]
Subject: RE: entering text in perl/tk


Hi Raj,
   I don't have the Active State perl widget.bat. If I don't have
this what else can be the option?

Guruguhan

-Original Message-
From: Raymond Raj [mailto:[EMAIL PROTECTED]
Sent: Monday, September 20, 2004 5:59 PM
To: N, Guruguhan (GEAE, Foreign National, EACOE); [EMAIL PROTECTED]
Subject: RE: entering text in perl/tk



Hi,


did try widget.bat it's contain lot of example for perl/tk ..if you have
Active State perl widget.bat comes with that version





-Original Message-
From: N, Guruguhan (GEAE, Foreign National, EACOE)
[mailto:[EMAIL PROTECTED]
Sent: Monday, September 20, 2004 5:50 PM
To: [EMAIL PROTECTED]
Subject: entering text in perl/tk


Hi All,
   I would like to know what widget I should use in order to allow
the user to enter the text ( may be several lines ) in it and store that
entered text in a file in Perl/Tk? I tried with Text Widgets, but failed.
Any help would be appreciated.

TIA
Guruguhan


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

RE: entering text in perl/tk

[Raymond Raj]

Hi,


did try widget.bat it's contain lot of example for perl/tk ..if you have
Active State perl widget.bat comes with that version





-Original Message-
From: N, Guruguhan (GEAE, Foreign National, EACOE)
[mailto:[EMAIL PROTECTED]
Sent: Monday, September 20, 2004 5:50 PM
To: [EMAIL PROTECTED]
Subject: entering text in perl/tk


Hi All,
   I would like to know what widget I should use in order to allow
the user to enter the text ( may be several lines ) in it and store that
entered text in a file in Perl/Tk? I tried with Text Widgets, but failed.
Any help would be appreciated.

TIA
Guruguhan


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: Regex help

[Raymond Raj]

Hi,

you should escape "/" char also, here is the problem  must be <\/sub>
still this regular expression will not give what you expecting result, it
remove all alphanumeric char also..

for help try "perldoc perlre"  or wait some time some one give good guide..

regards
Raymond

-Original Message-
From: Johnstone, Colin [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 14, 2004 10:43 AM
To: Jim
Cc: [EMAIL PROTECTED]
Subject: RE: Regex help


Hi Jim,

rather than re-invent the wheel I would prefer if you could fix this regex
I believe it covers all invalid characters one would encounter

s/[\w\&%'[EMAIL PROTECTED](\)&_\\+,\.=\[\]]//g;

I would then use it as a general purpose regex for validating filenames.

Regards
Colin


> Hi all,

Hi

>
> create a filename.
>
> I firstly need to remove any invalid characters (including spaces)

What do you consider invalid chars? Do you want just alpha cars?

>
> $filename = 'News & events';
> $filename =~
> s/[\w\&%'[EMAIL PROTECTED](\)&_\\+,\.=\[\]]//g;
>
> then convert it to lowercase.

$filename =~ s/[^A-Za-z]//g; #use only alpha chars
print lc($filename); # convert to lower case

# or if you want to strip out non printing (control) chars:
$filename = " News \r \n \x01 even ts";
$filename =~ s/[[:cntrl:]]//g;
$filename =~ s/\s//g;
print lc($filename);

That help at all?
Jim







---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.745 / Virus Database: 497 - Release Date: 8/27/2004



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 




This E-Mail is intended only for the addressee. Its use is limited to that
intended by the author at the time and it is not to be distributed without
the
author's consent. Unless otherwise stated, the State of Queensland accepts
no
liability for the contents of this E-Mail except where subsequently
confirmed in
writing. The opinions expressed in this E-Mail are those of the author and
do
not necessarily represent the views of the State of Queensland. This E-Mail
is
confidential and may be subject to a claim of legal privilege.

If you have received this E-Mail in error, please notify the author and
delete this message immediately.


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: checking all pieces of split data for NULL

[Raymond Raj]

 use "perldoc -f length" 


try "perldoc perldoc" how to use perldoc



-Original Message-
From: Radhika Sambamurti [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 11, 2004 11:16 PM
To: [EMAIL PROTECTED]
Subject: Re: checking all pieces of split data for NULL


Hi,
Just for extra information, I am interested in understanding how the
if (grep length == 0, @arrayname) works.
Or perhaps I could be pointed to some documentation ie perldoc where i
could find out more about is it the length function? works.

thanks,
radhika


>   while () {
> chomp;
> my %record;
> @[EMAIL PROTECTED] = split /,/;
> if (my @empty = grep length $record{$_} == 0, @field_names) {
>   empty_fields(@empty);
> }
> else {
>   # process record
> }
>   }


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]