#!/usr/bin/perl -w

$numArgs = $#ARGV + 1;

if ($numArgs == 1) {
  $INPUT = "$ARGV[0]";
  }
else {
  exit;
  }

use LWP::Simple;
$page = get("http://from/this/SfcStatus?sfcnumber=${INPUT}&tested=DONTCARE");
#print $page

($plain_text = $page) =~ s/<[^>]*>//gs;

@item=split(' ',$plain_text);

#$count = 0;
#foreach $i (@item) {
# 	print "$count : $i\n";
#        $count += 1;
#	}
#exit;

# First, find Shop Order, MFG Center, and Status

foreach $i ( 30...60) {
#  print " $i	$item[$i]\n";
    if ( $item[$i] eq 'ORDER' ) {
    $SHOP = $item[ $i + 1 ];
    if ( length $SHOP < 8 ) {
      $SHOP .= "\t";
    }
  } elsif ( $item[$i] eq 'CENTER' ) {
    $MFG_CENTER = $item[ $i + 1 ];
    if ( length $MFG_CENTER < 8 ) {
      $MFG_CENTER .= "\t";
    }
  } elsif ( $item[$i] eq 'GROUP' ) {
    $ITEMGROUP = $item[ $i + 1 ];
  } elsif ( $item[$i] eq 'STATUS' ) {
    $STATUS = $item[ $i + 1 ];
    if ( length $STATUS < 8 ) {
      $STATUS .= "\t";
    }
    last;
  }
}

# KEY: Part Number	Serial Number	Shop Order	MFG CENTER	STATUS
if ( $item[60] eq 'DEKIT' ) {
  print "$item[34]\n";
} elsif ( $item[27] eq 'SHIP' && $item[60] ne 'DEKIT' ) {
  print "$item[34]\n";
} else {
  print "$item[26]\n";
}