#!/usr/bin/perl -w
use strict;
use diagnostics;
#use Data::Dumper;

my $config="/var/www/cgi-bin/prt.cfg";
open (CFGFILE,$config) || die "unable to open $config: $!\n";
my ($machine, $default, $type, $connect);
my $object=0;
my @server;
while (my @CFG = <CFGFILE>)
{
 foreach $_(@CFG)
 {
   chomp;
   next if /^#/;
   next if /^\s/;
   if (/<server.*?>/i ... /<\/server.*?/i)
   {
     next if /<.?server>/i;
     $object++;
     push (@server, $_);
   }
   ($machine, $default, $type, $connect) = @server;
 }
 print "$machine,$default,$type,$connect\n";
}