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