sub port_definition
{
   my $port = @_[0];

   open(FILE,"ipac_port_defs") || die_nice("Can not open file \"ipac_port_defs\" for reading");
      @port_file = <FILE>;
   close(FILE);

   foreach $line(@port_file){
      if ($line =~ /^Port\s$port/){
         $template{port_def} = $line;
      }
   }
 
   print "Content-type: text/html\n\n"; # Print headers
   parse("tpl/port_def");
}