Re: Error 404 when accessing logong screen

[Thierry Chatelet <..hidden..>]

On Saturday 03 May 2014 09:52:05 RJ Clay wrote:
> On 05/03/2014 08:50 AM, Thierry Chatelet wrote:
> > On Saturday 03 May 2014 12:15:06 Thierry Chatelet wrote:
> >> Hi,
> >> I made a fresh install on a debian testing machine, using package from
> >> sid. I did : chown -R www-data:www-data /usr/share/ledgersmb and I
> >> restarted apache. Apache is working fine.
> >> When trying to connect to the login screen, I get error 404.
> >> Any tips?
> > 
> > I read the Debian documentation a bit more.
> 
>    Which "Debian documentation" ?
> 
> 
> 
> 
> 
> RJ Clay
> ..hidden..
> 

Yes, my explanation was not good. Here is a more detailed explanation:
Trying to install ledgersmb from sid I got error 404: no such file..., when 
doing localhost/ledgersmb/setup.pl 

I read the Debian doc a bit more and I found in file: 
/usr/share/doc/ledgersmb/faq.html the following:

About installation
The easiest is to use the setup.pl script as root. You don't need to 
know very much about....

So I did and got the following error:

perl setup.pl
Error: No workflow script specified
Compilation failed in require at setup.pl line 8.

Setup.pl :

#!/usr/bin/perl

use FindBin;
BEGIN {
  lib->import($FindBin::Bin) unless $ENV{mod_perl}
}

require 'lsmb-request.pl';

So it's calling lsmb-request.pl at  line 8

Here it is:

=head1 NAME

lsmb-request.pl - The LedgerSMB Request Handler

=head1 SYNOPSYS
This file receives the web request, instantiates the proper objects, and 
passes
execution off to the appropriate workflow scripts.  This is for use with 
new 
code only and should not be used with old SQL-Ledger(TM) code as it is 
architecturally dissimilar.

=head1 COPYRIGHT

Copyright (C) 2007 The LedgerSMB Core Team

This file is licensed under the GNU General Public License (GPL)  version 
2 or 
at your option any later version.  A copy of the GNU GPL has been 
included with
this software.

=cut

package LedgerSMB::Handler;

use LedgerSMB::Sysconfig;
use Digest::MD5;
use Error qw(:try);

$| = 1;

binmode (STDIN, ':bytes');
binmode (STDOUT, ':utf8');
use LedgerSMB::User;
use LedgerSMB;
use LedgerSMB::Locale;
use Data::Dumper;
use LedgerSMB::Log;
use LedgerSMB::CancelFurtherProcessing;
use LedgerSMB::App_State;
use strict;

LedgerSMB::App_State->zero();
my $logger = Log::Log4perl->get_logger('LedgerSMB::Handler');
Log::Log4perl::init(\$LedgerSMB::Sysconfig::log4perl_config);
$logger->debug("Begin");

# for custom preprocessing logic
eval { require "custom.pl"; };

$logger->debug("getting new LedgerSMB");

my $request = new LedgerSMB;

$logger->debug("Got \$request=$request");
$logger->trace("\$request=".Data::Dumper::Dumper($request));

$request->{action} = '__default' if (!$request->{action});

$ENV{SCRIPT_NAME} =~ m/([^\/\\]*.pl)\?*.*$/;
my $script = $1;
$logger->debug("\$ENV{SCRIPT_NAME}=$ENV{SCRIPT_NAME} 
\$request->{action}=$request->{action} \$script=$script");

my $locale;

if ($request->{_user}){
    $LedgerSMB::App_State::User = $request->{_user};
    $locale =  LedgerSMB::Locale->get_handle($request->{_user}-
>{language});
    $LedgerSMB::App_State::Locale = $locale;
} else {
    $locale = LedgerSMB::Locale->get_handle( 
${LedgerSMB::Sysconfig::language} )
       or $request->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: 
$!\n" );
    $LedgerSMB::App_State::Locale = $locale;
}
_________________________________________________________________________
if (!$script){
        $request->error($locale->text('No workflow script specified'));
}
__________________________________________________________________________
$request->{_locale} = $locale;

$logger->debug("calling $script");

&call_script( $script, $request );
$logger->debug("after calling script=$script action=$request-
>{action} \$request->{dbh}=$request->{dbh}");

# Prevent flooding the error logs with undestroyed connection 
warnings
$request->{dbh}->disconnect()
    if defined $request->{dbh};
$logger->debug("End");


sub call_script {
  my $script = shift @_;
  my $request = shift @_;

  try {        
    $request->{script} = $script;
    eval { require "scripts/$script" } 
      || $request->error($locale->text('Unable to open script') . ": 
scripts/$script : $!");
    $script =~ s/\.pl$//;
    $script = "LedgerSMB::Scripts::$script";
    $request->{_script_handle} = $script;
    $script->can($request->{action}) 
      || $request->error($locale->text("Action Not Defined: ") . $request-
>{action});
    $script->can( $request->{action} )->($request);
    LedgerSMB::App_State->cleanup();
  }
  catch CancelFurtherProcessing with {
    my $ex = shift;
    $logger->debug("CancelFurtherProcessing \$ex=$ex");
     $LedgerSMB::App_State::DBH->rollback if 
$LedgerSMB::App_State::DBH;
    LedgerSMB::App_State->cleanup();
  };
}
1;

I put the code returning the error in between 2 lines so you can spot it 
easily. And I am sure it come from these lines as I change the message 
and ran setup.pl again and got my new message as and error. Now my 
understanding of perl script is nowhere good enough for me to known 
what's wrong. 

------------------------------------------------------------------------------
"Accelerate Dev Cycles with Automated Cross-Browser Testing - For FREE
Instantly run your Selenium tests across 300+ browser/OS combos.  Get 
unparalleled scalability from the best Selenium testing platform available.
Simple to use. Nothing to install. Get started now for free."
http://p.sf.net/sfu/SauceLabs
_______________________________________________
Ledger-smb-users mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-users