#!/usr/local/bin/perl
# treechooser.cgi
# Outputs HTML for a java file-chooser tree
require './bacula-backup-lib.pl';
&PrintHeader();
&ReadParse();
$shortest = "/";
if ($main::session_id) {
$session = "";
}
$in{'job'} =~ s/^(.*)_(\d+)$/$2/g;
print <$text{'tree_title'}
EOF