Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to make a CGI page look better
- Thread starter jahjah
- Start date
CGI programs output normal HTML to the browser. All you need to do is open the cgi script in a text editor and search for <body>.
Now if the HTML color is hard coded you can change it there. If it is not hard coded you will have to find the variable that sets the color some place else in the script. The program may also parse another file to gather the HTML code and then produce the output. As you can see, this can get more complicated the more advanced the program becomes. Send us some code after you search and we will see what we can do.
Now if the HTML color is hard coded you can change it there. If it is not hard coded you will have to find the variable that sets the color some place else in the script. The program may also parse another file to gather the HTML code and then produce the output. As you can see, this can get more complicated the more advanced the program becomes. Send us some code after you search and we will see what we can do.
- Thread starter
- #3
Haunter
thanks for getting back to me, I couldnt find <body> within the script, here is what i have;
#!/appl/bin/perl
use CGI qw
standard);
use IO;
$query = new CGI;
print $query->header,
start_html("Web Pager Gateway",
h2("Web Pager Gateway",
h2("SMS Messaging Centre".
hr();
unless ($query->param) {
&getnums;
print $query->start_form( -name=>"Input"
print "Enter your message here:";
print $query->hr;
print $query->textarea( -name=>'message',
-rows=>2,
-columns=>80);
print $query->hr("Select the recipients (use the Control key to pick several)"
print $query->p;
print $query->scrolling_list(
-name=>'recipients',
-values =>\@vals,
-size=>8,
-multiple=>'true'
)
;
print $query->hr("Press this button to send"
print $query->p;
print $query->submit(-value=>'Send Message');
print $query->end_html;
}
else {
@names = $query->param;
$message = $query->param('message');
@recipients = $query->param('recipients');
$recipientlist = join(",",@recipients);
$recipientlist =~ s/ //go;
$output = '/usr/local/bin/sms_client ' .
$recipientlist .
" \"" .
$message .
"\"";
system $output;
print "Message \"$message\" sent to: " ;
print $recipientlist;
print p;
print $output;
print $query->end_html;
}
sub getnums {
open SMSRC, '/usr/local/etc/sms/sms_addressbook';
while (<SMSRC>) {
next if /^#/;
next if /^SMS_default_service/;
($name,$num) = split("="
chop $num;
$code{$name} = $num if $num;
}
@vals = keys %code;
}
thanks for getting back to me, I couldnt find <body> within the script, here is what i have;
#!/appl/bin/perl
use CGI qw
standard);use IO;
$query = new CGI;
print $query->header,
start_html("Web Pager Gateway"
,h2("Web Pager Gateway"
,h2("SMS Messaging Centre"
.hr();
unless ($query->param) {
&getnums;
print $query->start_form( -name=>"Input"
;print "Enter your message here:";
print $query->hr;
print $query->textarea( -name=>'message',
-rows=>2,
-columns=>80);
print $query->hr("Select the recipients (use the Control key to pick several)"
;print $query->p;
print $query->scrolling_list(
-name=>'recipients',
-values =>\@vals,
-size=>8,
-multiple=>'true'
)
;
print $query->hr("Press this button to send"
;print $query->p;
print $query->submit(-value=>'Send Message');
print $query->end_html;
}
else {
@names = $query->param;
$message = $query->param('message');
@recipients = $query->param('recipients');
$recipientlist = join(",",@recipients);
$recipientlist =~ s/ //go;
$output = '/usr/local/bin/sms_client ' .
$recipientlist .
" \"" .
$message .
"\"";
system $output;
print "Message \"$message\" sent to: " ;
print $recipientlist;
print p;
print $output;
print $query->end_html;
}
sub getnums {
open SMSRC, '/usr/local/etc/sms/sms_addressbook';
while (<SMSRC>) {
next if /^#/;
next if /^SMS_default_service/;
($name,$num) = split("="
;chop $num;
$code{$name} = $num if $num;
}
@vals = keys %code;
}
The 'body' tag is being printed by the 'start_html' method. That method is imported with the CGI.pm module and accepts some arguments. See the docs for the CGI.pm module.
Additionally, your can drop in your own HTML particulars as the output is created. 'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
Additionally, your can drop in your own HTML particulars as the output is created. 'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
- Status