Hi Raful,
This is a mod_perl issue as you are not sending the HTTP headers properly.
You send the headers by calling the
$r->content_type( 'text/html');
In you code you have a call
$r->content_type('text/plain');
This will cause the browser to interpret it for you as plain text. Mod_perl
sends its own headers when you set the content type so there is no need for
this:
print "Content-Type: text/html\n\n";
Regards
Dawid Joubert
Lead Web Developer on STARS software for Ksystems www.klogin.co.uk
----- Original Message -----
From: Raful Mr Mitchell H
To: Html-Template-Users (E-mail)
Sent: Friday, January 11, 2008 9:36 PM
Subject: [htmltmpl] using H::T from within mod_perl handler
My HTML::Template output appears in the browser like so when in a mod_perl
sub handler subroutine. The other three modules work fine. This also works
fine as a CGI.
Content-Type: text/html
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd";>
<html xmlns="http://www.w3.org/1999/xhtml"; xml:lang="en" lang="en">
<head>
<title>Management App</title>
<LINK rel="stylesheet" href="../css/yanmastyles.css" type="text/css">
<script type="text/javascript" >
function addLoadEvent(func) {
var oldonload = window.onload;
if (typeof window.onload != 'function' ) {
window.onload = func;
}
else {
window.onload = function() {
oldonload();
func();
}
}
}
function highlightRows() {
if( !document.getElementsByTagName ) return false;
var rows = document.getElementsByTagName( "tr" );
for( var i=0; i<rows.length; i++ ) {
rows[i].onmouseover = function() {
this.style.backgroundColor = "#d3d3d3";
}
rows[i].onmouseout = function() {
this.style.backgroundColor = "#fff";
}
}
}
addLoadEvent(highlightRows);
</script>
</head>
<body>
<div id="top">
<div id="banner">
<a href="index.html"><img src="../images/yanma-banner.jpg"
alt="Yanma"
width="900" height="172" border="0" /></a>
</div>
<div id="menubar">
<ul id="navigation">
<li><a href="/perl/choosemodel.pl"><span>Query</span></a></li>
<li><a
href="http://yanmadev.usmc-mccs.org/administration/update.html";><span>Update</span></a></li>
<li><a href="#"><span>Add</span></a></li>
<li><a href="choose_router.html"><span>NBAR Stats</span></a></li>
<li><a href="choosebase.pl"><span>Portmapper</span></a></li>
<li><a
href="http://yanmadev.usmc-mccs.org";><span>Home</span></a></li>
</ul>
</div>
<div id="border"></div>
</div>
<div id="content">
<h2>albasw02</h2>
<h3>Cisco Catalyst 3550 24 10/100 baseT ports + 2 Gig uplinks fixed
configuration Layer 2/3 Ethernet Switch</h3>
<h3>Fri Jan 11 16:16:52 2008</h3>
<table >
<thead>
<th>Interface</th>
<th>Mac Address</th>
<th>IP Address</th>
<th>Device</th>
<th>Controller/Printer</th>
</thead>
<tbody>
<tr>
<td>Fa0/13</td>
<td>001d0909cd0d</td>
<td>10.129.20.38</td>
<td>albxp02006.windows.usmc-mccs.org</td>
<td></td>
</tr>
<tr>
<td>Fa0/13</td>
<td>001d0909cd0d</td>
<td>10.129.20.38</td>
<td>albxp02006.windows.usmc-mccs.org</td>
<td></td>
</tr>
<tr>
<td>Fa0/13</td>
<td>001d0909cd0d</td>
<td>10.129.20.38</td>
<td>albxp02006.windows.usmc-mccs.org</td>
<td></td>
</tr>
</tbody>
</table> All the info is there and is correct, just not rendered. All other
modules within the app work great, just not this one. Below is my Perl
module.#!/usr/bin/perl -wpackage Handlers::PortMapper;use warnings;use
strict;use HTML::Template;use DBI;use Socket qw(:DEFAULT :crlf);use dec_hex;use
snmpSession;use SNMP;use Net::NBName;use Net::Ping;use Apache2::Request ();use
Apache2::Const -compile=>'OK'; # %seen_vlans --tracks those vlans which are
seen as each ports vlan membership is looked at # %device --all results for
each device found on a switch are placed here for dispatching to a web page#
@answer;my @switch_row; #--hold results of db query for switchmy @router_row;
#--hold results of db query for router whose arp cache you wantmy
%devices_ref;my %hash;my $time; # --gets time query beganmy $chosen_switch;
#--switch passed via http form datamy $chosen_router; #--switch passed via http
form datamy $switch_ip; #--result one for initial querymy $switch_model;
#--result two for initial querymy $devices_ref;my $router_ip; # --result for
query of router addressmy $dbh; #--database handlemy $sql; #--database querymy
@loop_data; #--hold hashes for my template# $i = 0 --counters# $j = 0
--counterssub handler {my $r = shift;my $req = Apache2::Request->new( $r
);$r->content_type('text/plain'); my %mac_data;my @mac_array; #hold individual
hex digits returned by ipNetToMediaPhysAddressmy @loop_data = (); #array of
anonymous hashes which is dispatched to web page for displaymy $template =
HTML::Template->new( filename =>
'/home/mitch/www-dev/mod_perl/templates/portmapper.tmpl',debug =>
1,die_on_bad_params => 0 );my $time = localtime();$chosen_switch =
$req->param('chosen_switch');$chosen_switch =~ s/(\s.*)//g;$chosen_router =
$req->param( 'chosen_router' );$dbh = DBI->connect( 'dbi:ODBC:MRIServer2k',
'mriinventory', '[EMAIL PROTECTED]',{ PrintError => 1, RaiseError => 0,
AutoCommit => 1 } );$sql = "SELECT address, chassis_description FROM
tblLiveCisco WHERE name='$chosen_switch'";@switch_row = $dbh->selectrow_array(
$sql );$switch_ip = $switch_row[0];$switch_model = $switch_row[1];@router_row =
$dbh->selectrow_array("SELECT address FROM tblLiveCisco WHERE
name='$chosen_router'" );$router_ip = $router_row[0];$devices_ref = getDevices(
$router_ip, $switch_ip, 'public');foreach $_ (@{$devices_ref}) {%hash =
%$_;push @loop_data, \%hash ;}$template->param(CHOSEN_SWITCH => $chosen_switch
);$template->param(MODEL => $switch_model );$template->param(TIME => $time
);$template->param(LOOP_DATA => [EMAIL PROTECTED] );print "Content-Type:
text/html\n\n";print $template->output;return Apache2::Const::OK;}sub
getDevices {my $router = shift;my $switch = shift;my $community = shift;my
@mac_array = ();my %seen_vlans = ();my %ifnames; #holds the ifIndex number and
names of portsmy %trunk; #holds all ports on a switch that are trunkingmy
%arpCache;my @data;my @vlans; #all vlans found using vmVlan objectmy $arp_mib =
'ipNetToMediaPhysAddress';my ( $mac_address,$ip, $dns_name, $device_type );my
$arp_session = snmpSession::openSession( $router , $community, 1 );my $vb_arp =
new SNMP::Varbind( [$arp_mib] );for(my $var = $arp_session->getnext( $vb_arp
);( $vb_arp->tag eq $arp_mib ) and not ( $arp_session->{ErrorNum} );$var =
$arp_session->getnext( $vb_arp )) {my $ip_addr = ( $vb_arp->tag . $vb_arp->iid
);$ip_addr =~ s/$arp_mib\d+\.//g;my @vars = split(/:/, $var );for( my $x = 0;
$x < scalar( @vars ); $x++ ) {if( length( $vars[$x] ) < 2 ){$vars[$x] =
"0"."$vars[$x]";}push( @mac_array, $vars[$x] );}my $arp_mac_address = join( "",
@mac_array );push( @{$arpCache{$arp_mac_address}}, $ip_addr );@mac_array =
();}if( $arp_session->{ErrorNum} ){ print "Got $arp_session->{ErrorStr} for
$router\n"; }my $vlan_session = snmpSession::openSession ( $switch, $community,
1 );my $vb_vlan = new SNMP::VarList( ['vmVlan'], ['ifName'],
['vlanTrunkPortDynamicStatus'] );my @answers1 = $vlan_session->bulkwalk(0, 100,
$vb_vlan );if( $vlan_session->{ErrorNum} ) {print "Got ",
$vlan_session->{ErrorStr}, "on", $vlan_session->{DestHost}, " during
Bulkwalk\n";}my $vlan_answer = $answers1[0];my $ifName_answer = $answers1[1];my
$trunk_ports = $answers1[2];for( my $i = 0; $i < scalar(@$vlan_answer); $i++
){my $vlan = $vlan_answer->[$i]->[ 2];if ( !exists ($seen_vlans{$vlan} ) )
{push( @vlans, $vlan );$seen_vlans{$vlan} = 1;}}for( my $j = 0; $j <
scalar(@$ifName_answer); $j++ ){my $index = $ifName_answer->[$j]->[1];my
$interface_name = $ifName_answer->[$j]->[2];push @{$ifnames{$index}},
$interface_name;}for ( my $p = 0; $p < scalar( @$trunk_ports ); $p++ ) {my
$port_index = $trunk_ports->[$p]->[1];if( $trunk_ports->[$p]->[2] eq 'trunking'
){$trunk{$port_index} = 1;}}my $vb_cam = new SNMP::VarList( ['dot1dTpFdbPort'],
['dot1dBasePortIfIndex'] );foreach $_ ( @vlans ) {$community =
"public@"."$_";my $cam_session = snmpSession::openSession ( $switch,
$community, 1 );my @answers2 = $cam_session->bulkwalk(0, 1000, $vb_cam );my
$fdbPorts = $answers2[0];my $portIndexes = $answers2[1];for ( my $q = 0; $q <
scalar( @$fdbPorts ); $q++ ) {for( my $r = 0; $r < scalar( @$portIndexes );
$r++ ) {if( $fdbPorts->[$q]->[2] == $portIndexes->[$r]->[1] && !exists( $trunk{
$portIndexes->[$r]->[2] } ) ){$mac_address = lc(dec_hex::dec_to_hex(
$fdbPorts->[$q]->[1] ) );if( exists($arpCache{$mac_address} ) ) {$ip =
$arpCache{$mac_address}->[0];$dns_name = getName( $ip );$device_type =
getDeviceType( $ip );}else { $ip = undef; }if( !defined( $ip ) ){if(
$mac_address =~ /000255/o ){$device_type = 'Register';}elsif( $mac_address =~
/000ff8/o ){$device_type = 'PSC handheld';}elsif( $mac_address =~ /00a0f8/g
){$device_type = 'Symbol RF device';}elsif( $mac_address =~ /001795/g
){$device_type = 'Cisco Systems AP';}}my %device = (); $device{PORT} =
"@{$ifnames{ $portIndexes->[$r]->[2]} }";$device{MAC} =
$mac_address;$device{IP} = $ip;$device{DEVICE} = $dns_name;$device{TYPE} =
$device_type;push( @data, \%device );}}}}return [EMAIL PROTECTED];}sub getName
{my $ip_address = shift(@_);my( $nbQuery, $nbStatus, $DNS,
$packed_binary_address );$packed_binary_address = inet_aton( $ip_address);$DNS
= gethostbyaddr( $packed_binary_address, AF_INET );if( !$DNS ) {$nbQuery =
Net::NBName->new;$nbStatus = $nbQuery->node_status( $ip_address );if( defined
$nbStatus ){$DNS = $nbStatus->{names}->[0]->{name};}if( !$DNS ) { $DNS =
'unknown' }}return $DNS;}sub getDeviceType {my $address = shift( @_ );my (
$type, $rtt, $tcp_print, $addr, $host);$tcp_print =
Net::Ping->new("syn");$tcp_print->{port_num} =
"9100";$tcp_print->service_check( 1 );$tcp_print->ping( $address );if( ( $host,
$rtt, $addr ) = $tcp_print->ack ){$type = "Printer";}else{$tcp_print =
Net::Ping->new("syn");$tcp_print->{port_num} =
"4500";$tcp_print->service_check( 1 );$tcp_print->ping( $address );if( ( $host,
$rtt, $addr ) = $tcp_print->ack ){$type = "Controller"}}return $type;}1;Thanks,
MitchMitchell Raful MCSE CCNP
MCB Quantico
Personal and Family Readiness (MRI)
3044 Catlin Avenue
Quantico, VA 22134
Com: 703-784-5991
DSN: 278-5991
Cell: 804-363-0731
------------------------------------------------------------------------------
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
------------------------------------------------------------------------------
_______________________________________________
Html-template-users mailing list
Html-template-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/html-template-users
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Html-template-users mailing list
Html-template-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/html-template-users
