#!/usr/bin/perl
############################################################################
# 
# Generate the output from the  svn list command
#
# Monty Scroggins
#
############################################################################
## +++++++++++++++++++++++++++ Maintenance Log +++++++++++++++++++++++++++++
# Monty Scroggins 

$|=1;    # set output buffering to off
$[=0;    # set array base to 0
$,=" ";  # set output field separator
$\="\n"; # set output record separator

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
$q = new CGI;
    
my $cmd = qq{svn list --xml http://dqsd.svn.sourceforge.net/svnroot/dqsd/trunk/dqsd/searches};
$outlist = `$cmd`;
$escaped = $q->escapeHTML( $outlist );

print "Content-type: text/html", "\n\n";
print qq{$escaped};