Soap calls using perl

This seems to be the quick way for testing soap api's.

#!/usr/bin/perl

#use SOAP::Lite +trace => debug;
use TeamForge;
use Data::Dumper;

my($tf,$sk);

$tf = new TeamForge;
$tf->proxy('http://cu021.cubit.maa.collab.net');
$sk = $tf->loginAnonymous("guestuser");

die "Login failed" unless ($sk);

print Dumper($tf->getProjectData($sk,'proj1007'));

Boolean values

0 - FALSE
1 - TRUE

Verfity certificate validity

openssl x509 -in server.crt -text|less

egrep command

egrep "28[u,w]|29[u,w]" /tmp/31752_lsof

egrep "(PROPFIND|OPTIONS)" | awk '{if ($6 > 60) print }'

Sending mail as different user

# telnet localhost 25
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
220 hostname SMTP Server (JAMES SMTP Server 2.2.0) ready Mon, 20 Feb 2006 14:31:33 -0500 (EST)
ehlo yourEmailAddressDomain.com
250 hostname Hello yourEmailAddressDomain.com (hostname [127.0.0.1])
mail from:
250 Sender OK
rcpt to:
250 Recipient OK
data
354 Ok Send data ending with .
subject: test to testuser at JAMESServersConfigSetting.com

test

.
250 Message received
quit
221 hostname Service closing transmission channel
Connection closed by foreign host.
#