<%doc>
#
# $Id: create-ticket.html,v 1.4 2002/02/13 17:26:13 fpmip Exp $
#
# create-ticket.html is a gateway page to RT.
# Authors : Alexandre Dulaunoy
# Tycho Fruru
# Copyright (C) 2002 Tycho Fruru
# Copyright (C) 2001 Conostix S.A. Luxembourg --
# Copyright (C) 2001, 2002 Alexandre Dulaunoy
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2 of the License, or (at your
# option) any later version. See .
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
<%args>
$session
$action=>""
$subject=>""
$description=>""
$encoded=>""
<%perl>
use MIME::Base64;
if ($encoded eq "base64")
{
$description = decode_base64($description);
}
#$subject = $session->{'ticketsubject'};
#$description = $session->{'ticketdescription'};
if ($session->{'tickettype'} eq "secadvisory")
{
#my $subject="IPFC : Secadvisory ticket for advisory number $session->{'advid'}";
#my $description=$session->{'advcomment'};
}
elsif ($action eq "update")
{
}
elsif ($action eq "delete")
{
}
elsif ($action eq "none")
{
$session->{'lastaction'}="none";
}
#$session->{query} = "select source_id, source_url, source_creation, source_remark from source order by source_id";
#my @results = $m->comp('../internal/sql-query-adv.ipfc',query=>$session->{query});
my $config = $m->comp('../internal/config.ipfc');
<%perl>
my $return =
$m->comp('../internal/head-page.html',title=>'CCA Ticket',session=>$session);
Ticket requestor
Subject : (small and direct information)
File to attach (optional) :
Initial status of the ticket :
Complete description of the issue :
<%perl>
my $endbody = $m->comp('../internal/end-page.html');