#!/usr/bin/perl -w

use strict;
use lib "$ENV{CTI_BASE}/arches/lib";
use TestClass;
use Getopt::Std;
use IO::Socket::INET;
use MfwTemplate;

#Inside of MfwTemplate.pm are the default $cmdopts and @usage parameters.
#If other than the defaults are desired then enter those values here.

#testSetUpAndExecute(\&execute_test,$cmdopts,\@usage);
testSetUpAndExecute(\&execute_test);

# you shouldn't have to change anything above this line, unless you're adding more command line options
# put your new test here
sub execute_test {
my ($test,%opts) = @_;
my $status = "Pass";
my $sdpHeader = pack("CCCCN",0x30,1,1,1,23);
my $sdpCmd = pack("CCCCnN",1,0,0x11,0x40,0,13);
my $sdpData = pack("CNC8",0,64,1,2,3,4,5,6,7,8);
my @header = unpack("CCCCN",$sdpHeader);
printf("SDPHEADER: boardCab:%02x fragId:%02x fragTotal:%02x seqNum:%02x totalCount:%08x\n",
$header[0],$header[1],$header[2],$header[3],$header[4]);
my @cmd = unpack("CCCCnN",$sdpCmd);
printf("SDPCMD: index:%02x modResp:%02x opEndSt:%02x status:%04x dataCount:%08x\n",
$cmd[0],$cmd[2],$cmd[3],$cmd[4],$cmd[5]);
my @d = unpack("CNC8",$sdpData);
printf("SDPDATA: chain:%02x bitCount:%08x\n",
$d[0],$d[1]);
printf("%02x %02x %02x %02x %02x %02x %02x %02x\n",
$d[2],$d[3],$d[4],$d[5],$d[6],$d[7],$d[8],$d[9]);

#Here i am not able to createing soket .

my $sock_out = new IO::Socket::INET (PeerAddr => 'st04a',
PeerPort => 5050,
Proto => 'tcp',Type => SOCK_STREAM
); die "Could not create socket: $!\n" unless $sock_out;






print $sock_out "$sdpHeader";
$sock_out->flush();
}