#!/usr/bin/perl
# this program is used to send an ip address 
# to a /proc/spin/control variable that indicates
# which connection to trace,
# setting this to 0.0.0.0 will disable tracing

@parts = split( '\.', $ARGV[0] );
die "invalid ip address" if( $#parts != 3 );
$number = 0;

foreach $part (@parts)
{
	die "invalid ip address" if( $part < 0 || $part > 255 );
}

$number = @parts[0];
$number = $number | @parts[1] << 8;
$number = $number | @parts[2] << 16;
$number = $number | @parts[3] << 24;

$command = sprintf( "echo \"traceConnIpAddr=0x%x\" > /proc/spin/control", $number );

system( $command );

