#!/usr/bin/awk -f

# kcs (c) 1995 by Joerg Hessdoerfer (joe@amber.dinoco.de)
# Permission to use and re-distribute this software is 
# granted according to the GPL

BEGIN {

  while(getline < sprintf("%s.lookup", ENVIRON["CONFTMP"]))
    {
      taglist[$1]=$2;
    }

  getline online < sprintf("%s.nums",ENVIRON["CONFTMP"]);

  resultfile = sprintf("%s.result",ENVIRON["CONFTMP"]);
  tmpfile = sprintf("%s.reqtmp",ENVIRON["CONFTMP"]);
}
  
{
  if( index(online, $2) != 0 )
    {
      getline cmdline;
      
      if (system(sprintf("sh -c '%s' 2>%s",cmdline,resultfile)) == 0)
	{
	  getline result < resultfile;
	  
	  result = sprintf("%d", result); # force conversion to int!!

	  sub(/\(Old value was .*\)/, sprintf("(Old value was %s)", result), cmdline);
	  $4 = result;
	}
    }
  else getline cmdline;

  print > tmpfile;
  print cmdline > tmpfile;
}
