RE: segfault

[Raful Mr Mitchell H]

Here is the complete script....

#!/usr/bin/perl
package Handlers::Devices;
use DBI;
use HTML::Template;

use Apache2::RequestRec ();
use APR::Request::Param ();
use Apache2::Const -compile => 'OK';

sub handler {
   my $r = shift;
   my $req = $r->param("chosen_base");
   
   my $template = HTML::Template->new( filename => 
'/home/mitch/www-dev/mod_perl/templates/devices.tmpl' );
   my $switch;
   my $base_abbreviation;
   my @routers;

#   Old way of doing things
#
#   read( STDIN, my $buffer, $ENV{'CONTENT_LENGTH'} );
#   @pairs = split /=/, $buffer;
#   $value = $pairs[1];
#     if( $value =~ m/\+/ ){;
#        $value =~ s/\+/ /g;
#     }
#   my $chosen_base = $value;
   my @loop_data = ();    
   $template->param(BASE => $chosen_base);
   $template->param(DATA => $req );
   SWITCH: {
      if( $chosen_base =~ /Kan/ ) { $base_abbreviation = 'kba'; last SWITCH;}
      if( $chosen_base =~ /29/ ) { $base_abbreviation = 't'; last SWITCH;}
      if( $chosen_base =~ /New/ ) { $base_abbreviation = 'nri'; last SWITCH;}
       if( $chosen_base =~ /San/ ) { $base_abbreviation = 'sdi'; last SWITCH;}
       if( $chosen_base =~ /Che/ ) { $base_abbreviation = 'cpo'; last SWITCH;}
       if( $chosen_base =~ /Par/ ) { $base_abbreviation = 'pai'; last SWITCH;}
       $base_abbreviation = substr( $chosen_base, 0,3 );
   }

   my $dbh = DBI->connect( 'dbi:ODBC:MRIServer2k', 'mriinventory', '[EMAIL 
PROTECTED]',
                           { PrintError  =>  1, RaiseError => 0, AutoCommit => 
1 } );

   my $sql = "select name, location from tblLiveCisco where( name LIKE 
'$base_abbreviation%' )";

   my $sth = $dbh->prepare( $sql );
   $sth->execute();
   my $rows;
   push @{$rows}, $_ while $_ = $sth->fetchrow_hashref();

   $template->param( ROWS => $rows);
   foreach $row( @$rows ) {
       my %router;
       if ( ($row->{name} =~ /rtr/) || ($row->{name} =~ /dsw/) || ($row->{name} 
=~ /csw/) || ($row->{name} =~ /coresw/) ) {
           $router{ROUTER} = $row->{name}; 
           push ( @routers, \%router );
       }
   }

   $template->param( ROUTERS_LOOP => [EMAIL PROTECTED]); 
   print "Content-Type: text/html\n\n";
   
   print $template->output;
   
   return Apache2::Const::OK;
}

1;

Mitchell 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


-----Original Message-----
From: Colin Wetherbee [mailto:[EMAIL PROTECTED]
Sent: Wednesday, January 02, 2008 3:30 PM
To: Raful Mr Mitchell H
Cc: modperl@perl.apache.org
Subject: Re: segfault


Raful Mr Mitchell H wrote:
> My script looks like this
>  
> use Apache2::Request ();
>  
> my $req = Apache2::Request-> new($r)
> my $data = req->{/param-name}/
> // 
> It causes a segfault error.  Any ideas?

Hello.

Please send us a bit more of your script.  This snippet doesn't say much.

Colin