5 use 5.008; # too much magic in here to include perl 5.6
8 unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
9 push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
14 use Devel::REPL 1.002001;
15 use Term::ReadLine::Perl::Bind; # use sane key binding for rxvt users
17 read_config 'config/lx_office.conf' => my %config;
19 my $login = shift || $config{Console}{login} || 'demo';
20 my $history_file = $config{Console}{history_file} || '/tmp/lxoffice_console_history.log'; # fallback if users is not writable
21 my $autorun = $config{Console}{autorun};
23 # will be configed eventually
24 my @plugins = qw(History LexEnv Colors MultiLine::PPI FancyPrompt PermanentHistory AutoloadModules);
26 my $repl = Devel::REPL->new;
27 $repl->load_plugin($_) for @plugins;
28 $repl->load_history($history_file);
30 $repl->print("trying to auto login as '$login'...");
31 $repl->print($repl->eval("lxinit '$login'"));
33 my $result = $repl->eval($autorun);
34 $repl->print($result->message) if ref($result) eq 'Devel::REPL::Error';
41 use CGI qw( -no_xhtml);
46 use SL::Helper::DateTime;
51 # this is a cleaned up version of am.pl
52 # it lacks redirection, some html setup and most of the authentication process.
53 # it is assumed that anyone with physical access and execution rights on this script
54 # won't be hindered by authentication anyway.
58 die 'need login' unless $login;
63 $::userspath = "users";
64 $::templates = "templates";
65 $::sendmail = "| /usr/sbin/sendmail -t";
68 eval { require "config/lx-erp.conf"; };
69 eval { require "config/lx-erp-local.conf"; } if -f "config/lx-erp-local.conf";
71 $::lxdebug = LXDebug->new;
72 $::locale = Locale->new($::language);
73 $::cgi = CGI->new qw();
75 $::auth = SL::Auth->new;
77 read_config 'config/lx_office.conf' => %::lx_office_conf;
78 SL::Dispatcher::_decode_recursively(\%::lx_office_conf);
80 die 'cannot reach auth db' unless $::auth->session_tables_present;
82 $::auth->restore_session;
84 require "bin/mozilla/common.pl";
86 die "cannot find user $login" unless %::myconfig = $::auth->read_user($login);
88 $::form->{login} = $login; # normaly implicit at login
90 die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
93 return "logged in as $login";
96 # these function provides a load command to slurp in a lx-office module
97 # since it's seldomly useful, it's not documented in help
100 $module =~ s/[^\w]//g;
101 require "bin/mozilla/$module.pl";
105 require Module::Reload;
106 Module::Reload->check();
108 return "modules reloaded";
120 ./scripts/console [login]
124 help - zeigt diese Hilfe an.
125 lxinit 'login' - lädt das Lx-Office Environment für den User 'login'.
126 reload - lädt modifizierte Module neu.
127 pp DATA - zeigt die Datenstruktur mit Data::Dumper an.
128 quit - beendet die Konsole
131 # load 'module' - läd das angegebene Modul, d.h. bin/mozilla/module.pl und SL/Module.pm.
135 local $Data::Dumper::Indent = 2;
136 local $Data::Dumper::Maxdepth = 2;
137 local $Data::Dumper::Sortkeys = 1;
138 Data::Dumper::Dumper(@_);
147 scripts/console - Lx Office Console
152 > help # displays a brief documentation
156 Users of Ruby on Rails will recognize this as a perl reimplementation of the
157 rails scripts/console. It's intend is to provide a shell environment to the
158 lx-office internals. This will mostly not interest you if you just want to do
159 your ERP stuff with lx-office, but will be invaluable for those who wish to
160 make changes to lx-office itself.
164 You can do most things in the console that you could do in an actual perl
165 script. Certain helper functions will aid you in debugging the state of the
170 Named after the rails pretty print gem, this will call Data::Dumper on the
171 given C<DATA>. Use it to see what is going on.
173 Currently C<pp> will set the Data::Dumper depth to 2, so if you need a
174 different depth, you'll have to change that. A nice feature would be to
175 configure that, or at least to be able to change it at runtime.
177 =head2 lxinit C<login>
179 Login into lx-office using a specified login. No password will be required, and
180 security mechanisms will mostly be inactive. form, locale, myconfig will be
185 Attempts to reload modules that changed since last reload (or inital startup).
186 This will mostly work just fine, except for Moose classes that have been made
187 immutable. Keep in mind that existing objects will continue to have the methods
188 of the classes they were created with.
192 - Reload on immutable Moose classes is buggy.
193 - Logging in more than once is not supported by the program, and thus not by
194 the console. It seems to work, but strange things may happen.
198 Configuration of this script is located in:
200 config/lx_office.conf
201 config/lx_office.conf.default
203 See there for interesting options.
207 Sven Schöling <s.schoeling@linet-services.de>