#!/usr/bin/perl

@blah=("aix",
"hpux",
"linux",
"sco_unix",
"sco_unixware",
"solaris",
"win2000",
"winnt");

for $t (@blah){
  open(FD,"<selector-$t.html");
  $message="";
  while(<FD>){
    $message.=$_;
  }
  close(FD);
  $message=~s#
<option value="/support/indexes/$t-ps2.html">\nPortServer II</option>
#
<option value="/support/indexes/$t-ps2.html">\nPortServer II</option>\n<option value="/support/indexes/$t-ts8.html">\nPortServer TS 8</option>\n\n<option value="/support/indexes/$t-ts16.html">\nPortServer TS 16</option>
#g;
  open(OUT,">selector-$t.html");
  print OUT $message;
  close(OUT);
}