[freeside] Freeside install problem: Undefined subroutine &Apache::ASP::Compiles::__ASP__us ...

[ivan at 420.am]

>From httemplate/docs/install.html:

  Copy htetc/global.asa to the Global directory: 
    cp htetc/global.asa /usr/local/etc/freeside/asp-global/global.asa

READ THE FINE MANUAL BEFORE SENDING YOUR MESSAGE TO HUNDREDS OF
PEOPLE ON THE MAILING LIST.

-- 
_ivan


On Mon, Mar 31, 2003 at 01:57:49PM -0800, Kenneth Kron wrote:
>  I'm brand new to Apache::ASP but I've never used mason before either 
> so it was a coin flip.
> My install is fairly broken.  The html pages get there fine but none of 
> the cgi calls work.  I'm also attaching an install script mostly to 
> document exactly what steps I'm doing.  If anyone wants to turn it into 
> a more completely automated script go for it, thought it should probably 
> be done in perl.
> 
> The config-view.cgi bombs out on the first line.  So does cust_main.cgi 
> for that matter but cust_main.cgi dies because there's no use FS 
> statement (I think).  Why is there no use FS statement?
> 
> cust_main.cgi error:
> 
>   1. Can't locate object method "new" via package "FS::Conf" (perhaps
>      you forgot to load "FS::Conf"?) at
>      /usr/local/apache/htdocs/edit/cust_main.cgi line 14
>      <http://localhost/edit/cust_main.cgi#%2Fusr%2Flocal%2Fapache%2Fhtdocs%2Fedit%2Fcust_main.cgi%2014>.
>      , /usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1491
> 
> 
> ...
> 
> Config-view.cgi error
> *_
> Errors Output_*
> 
>   1. Undefined subroutine
>      &Apache::ASP::Compiles::__ASP__usr_local_etc_freeside_asp_global_x1740c41f4a156eda78caec4c47748752::menubar
>      called at /usr/local/apache/htdocs/config/config-view.cgi line 1
>      <http://localhost/config/config-view.cgi#%2Fusr%2Flocal%2Fapache%2Fhtdocs%2Fconfig%2Fconfig-view.cgi%201>.
>      , /usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1491
> 
> *_Debug Output_*
> 
>   1. Undefined subroutine
>      &Apache::ASP::Compiles::__ASP__usr_local_etc_freeside_asp_global_x1740c41f4a156eda78caec4c47748752::menubar
>      called at /usr/local/apache/htdocs/config/config-view.cgi line 1.
>      , /usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1491
> 
>   1.
> 
> 
>   1.
> 
> *_ASP to Perl Script_* 
> 
>  -: no strict;;use vars qw($Application $Session $Response $Server 
>  $Request);;
>  -: #line 1 /usr/local/apache/htdocs/config/config-view.cgi
> *  1*: ;;&Apache::ASP::WriteRef($main::Response, \('<!-- mason kludge -->
>  2: '.( header('View Configuration', menubar( 'Main Menu' => $p,
>  3:                                      'Edit Configuration' => 
>  'config.cgi' ) ) ).'
>  4: 
>  5: ')); my $conf = new FS::Conf; my @config_items = $conf->config_items; ; 
>  &Apache::ASP::WriteRef($main::Response, \('
>  6: 
>  7: ')); foreach my $section ( qw(required billing username password UI 
>  session
>  8:                             shell mail apache BIND
>  9:                            ),
> 10:                          '', 'deprecated') { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 11:   <A NAME="'.( $section || 'unclassified' ).'"></A>
> 12:   <FONT SIZE="-2">
> 13:   ')); foreach my $nav_section ( qw(required billing username password 
> UI session
> 14:                                   shell mail apache BIND
> 15:                                  ),
> 16:                                '', 'deprecated') { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 17:     ')); if ( $section eq $nav_section ) { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 18:       [<A NAME="not'.( $nav_section || 'unclassified' ).'" 
> style="background-color: #cccccc">'.( ucfirst($nav_section || 
> 'unclassified') ).'</A>]
> 19:     ')); } else { ; &Apache::ASP::WriteRef($main::Response, \('
> 20:       [<A HREF="#'.( $nav_section || 'unclassified' ).'">'.( 
> ucfirst($nav_section || 'unclassified') ).'</A>]
> 21:     ')); } ; &Apache::ASP::WriteRef($main::Response, \('
> 22:   ')); } ; &Apache::ASP::WriteRef($main::Response, \('
> 23:   </FONT><BR>
> 24:   '.( table("#cccccc", 2) ).'
> 25:   <tr>
> 26:     <th colspan="2" bgcolor="#dcdcdc">
> 27:       '.( ucfirst($section || 'unclassified') ).' configuration options
> 28:     </th>
> 29:   </tr>
> 30:   ')); foreach my $i (grep $_->section eq $section, @config_items) { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 31:     <tr>
> 32:       <td><a name="'.( $i->key ).'">
> 33:         <b>'.( $i->key ).'</b>&nbsp;-&nbsp;'.( $i->description ).'
> 34:       </a></td>
> 35:       <td><table border=0>
> 36:         ')); foreach my $type ( ref($i->type) ? @{$i->type} : $i->type 
> ) {
> 37:              my $n = 0; ; &Apache::ASP::WriteRef($main::Response, \('
> 38:           ')); if ( $type eq '' ) { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 39:             <tr><td><font color="#ff0000">no type</font></td></tr>
> 40:           ')); } elsif (   $type eq 'textarea'
> 41:                       || $type eq 'editlist'
> 42:                       || $type eq 'selectmultiple' ) { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 43:             <tr><td bgcolor="#ffffff">
> 44: <pre>
> 45: '.( encode_entities(join("\n", $conf->config($i->key) ) ) ).'
> 46: </pre>
> 47:             </td></tr>
> 48:           ')); } elsif ( $type eq 'checkbox' ) { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 49:             <tr><td bgcolor="#'.( $conf->exists($i->key) ? 
> '00ff00">YES' : 'ff0000">NO' ).'</td></tr>
> 50:           ')); } elsif ( $type eq 'text' || $type eq 'select' )  { ; 
> &Apache::ASP::WriteRef($main::Response, \('
> 51:             <tr><td bgcolor="#ffffff">'.( $conf->exists($i->key) ? 
> $conf->config($i->key) : '' ).'</td></tr>
> 52:           ')); } else { ; &Apache::ASP::WriteRef($main::Response, \('
> 53:             <tr><td>
> 54:               <font color="#ff0000">unknown type '.( $type ).'</font>
> 55:             </td></tr>
> 56:           ')); } ; &Apache::ASP::WriteRef($main::Response, \('
> 57:         ')); $n++; } ; &Apache::ASP::WriteRef($main::Response, \('
> 58:       </table></td>
> 59:     </tr>
> 60:   ')); } ; &Apache::ASP::WriteRef($main::Response, \('
> 61:   </table><br><br>
> 62: ')); } ; &Apache::ASP::WriteRef($main::Response, \('
> 63: 
> 64: </body></html>'));
> 
> 



-- 
_ivan