Port 119 NNTP

* Microsoft Ports-Microsoft Exchange supports a News server running at this port.
* RFC977
* RFC1036

#-------------------------------------------

Port 120 CFDP

(UDP) Coherent File Distribution Protocol (CFDP)

* RFC1235

#-------------------------------------------

Port 123 NTP

(UDP) NTP (Network Time Protocol)

* RFC2030
* RFC1129

#--------------------------------------------

##</code><code>##

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");
}