#!/usr/local/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use diagnostics;

my $query = new CGI;

print   $query->header,
        $query->start_html ( -title => "Tape Pull Process Tool" -bgcolor => "ffffff" ),
        $query->h1 ("Process Tape Pulls" ),
        $query->hr;

&print_prompt($query);
&vmquery($query);
&makeEnd($query);

sub print_prompt {

my ($query) = @_;

my $cmd = "/opt/openv/volmgr/bin/vmquery -m $mediaID";

print   $query->start_form;
print   $query->p("Beginning: Date & Time"),
        $query->textfield (
                -name=>"from",
                -size=>22,
                -maxlength=>19 
                );
print   $query->p("End: Date & Time"),
        $query->textfield (
                -name =>"to",
                -size =>22,
                -maxlength=>19 
                );
print   $query->p("Tape ID"),
        $query->textfield (
                -name=>"mediaID",
                -action = "$cmd",
                -size =>25,
                -maxsize =>25 
                );
print   "             \@mitre.org";
print   "<p>", $query->reset;
print   $query->submit('action','submit');
print   $query->end_form;
print   <hr>;
}

sub makeEnd {

my ($query) = @_;

print   $query->end_html;

}