<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
# userform.pl - Just returns an html form for the user to fill out
# Copyright 2000, 2001 OST Coporation - Released under the GPL V2.0
# See the file COPYING included with this file for license info
# If you did not receive a file named COPYING with this program,
# you can find a copy of the GPL V2.0 by e-mailing rsb@ostel.com,
# or visiting http://www.fsf.org/copyleft/gpl.html#SEC1 

use CGI ':standard';

print  start_form( "POST", "../../cgi-bin/useraction.pl" ),
    "Your Name: ",textfield('name'),
    p,
    "Your Daytime Telephone Number: ",textfield('dayphone'),
    p,
    "Your e-mail address: ",textfield('email'),
    p,
    "Which Dialogic SDK's have you used? ",
    p,
    checkbox_group(-name=&gt;'sdksused',
		   -values=&gt;['GNU/Linux ','OtherUNIX ','Other '],
		   -defaults=&gt;['GNU/Linux ']),
    p,
    "What is your Linux question? ", textfield('question'),
    p,
    submit,
    end_form,
    hr;

if (param()) {
    print 
	"Your name is: ",em(param('name')),
	p,
	"The keywords are: ",em(join(", ",param('words'))),
	p,
	"Your favorite color is: ",em(param('color')),
	hr;

}


</pre></body></html>