#!/usr/bin/perl -w use strict; use CGI ':standard'; my $agentname = param('agentname') || 'default'; print header(), start_html( -title => 'Joe Bob' ); if( $agentname eq 'Joe Bob' ) { print h1( 'Header for Joe Bob' ), p( 'Text for Joe Bob' ); } else #default { print h1( 'Default' ); } print end_html();
In reply to (ichimunki) Re: Outputing HTML files
by ichimunki
in thread Outputing HTML files
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |