#!/usr/bin/perl

# this progam is called to display the ip address the cifs
# tracefs code is tracing, 

$Result = `cat /proc/spin/control | grep traceConnIpAddr` ;

@Parts = split / +/, $Result;

$ip = hex(@Parts[2]);

$q1 = ($ip & 0x000000ff) >> 0;
$q2 = ($ip & 0x0000ff00) >> 8;
$q3 = ($ip & 0x00ff0000) >> 16;
$q4 = ($ip & 0xff000000) >> 24;

printf "tracing ip address $q1.$q2.$q3.$q4\n";

