use warnings;
use strict;
+use utf8;
+use open qw(:std :utf8);
use 5.008; # too much magic in here to include perl 5.6
BEGIN {
- unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
- push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+ use FindBin;
+
+ unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+ push (@INC, $FindBin::Bin . '/..');
+ push (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
}
use Data::Dumper;
my $repl = Devel::REPL->new;
$repl->load_plugin($_) for @plugins;
$repl->load_history($history_file);
+
+binmode($repl->out_fh, 'utf8');
+
+$repl->eval('use utf8;');
$repl->eval('help');
$repl->print("trying to auto login into client '$client' with login '$login'...\n");
execute_code($repl, "lxinit '$client', '$login'");
die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login);
- $::form->{login} = $login; # normaly implicit at login
-
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
+ $::myconfig{login} = $login; # so SL::DB::Manager::Employee->current works in test database
$::instance_conf->init;
Log in as C<username>. The default is to use the value from the
configuration file and C<demo> if none is set there.
+=item B<-c>, B<--client>=C<client>
+
+Use the database for client C<client>. C<client> can be a client's
+database ID or its name. The default is to use the value from the
+configuration file.
+
=item B<-o>, B<--log-file>=C<filename>
Use C<filename> as the log file. The default is to use the value from