Log Message:
-----------
use the perl debugger for a shell instead of PSH. this gets us a
readline (or readline-like?) editing environment, which is much nicer to
work with.
Modified Files:
--------------
webwork2/bin:
wwsh
Revision Data
-------------
Index: wwsh
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /webwork/cvs/system/webwork2/bin/wwsh,v
retrieving revision 1.6
retrieving revision 1.7
diff -Lbin/wwsh -Lbin/wwsh -u -r1.6 -r1.7
--- bin/wwsh
+++ bin/wwsh
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/env perl -d
########################################################################=
########
# WeBWorK Online Homework Delivery System
# Copyright =A9 2000-2003 The WeBWorK Project, http://openwebwork.sf.net=
/
@@ -21,41 +21,38 @@
=20
=3Dcut
=20
-use strict;
-use warnings;
+use Data::Dumper;
=20
BEGIN {
- die "WEBWORK_ROOT not found in environment.\n"
- unless exists $ENV{WEBWORK_ROOT};
+ DB::parse_options("NonStop=3D1");
+ unless ($ENV{WEBWORK_ROOT}) {
+ die "WEBWORK_ROOT not found in environment.\n";
+ }
}
=20
use lib "$ENV{WEBWORK_ROOT}/lib";
-use PSH;
use WeBWorK::CourseEnvironment;
use WeBWorK::DB;
=20
-my ($course, $cmd) =3D @ARGV;
+our $ce;
+our $db;
=20
-unless ($course) {
- die "usage: $0 course\n";
+my $courseID =3D shift @ARGV;
+unless ($courseID) {
+ die "usage: $0 courseID\n";
}
=20
-our $ce =3D WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", "", =
$course);
-our $db =3D WeBWorK::DB->new($ce->{dbLayout});
-(undef) =3D $db; # placate warnings
-
-if ($cmd) {
- no warnings;
- no strict;
- eval $cmd;
- die $@ if $@;
- use strict;
- use warnings;
-} else {
- print <<'EOF';
+$ce =3D WeBWorK::CourseEnvironment->new({
+ webwork_dir =3D> $ENV{WEBWORK_ROOT},
+ courseName =3D> $courseID,
+});
+$db =3D WeBWorK::DB->new($ce->{dbLayout});
+
+print <<'EOF';
wwsh - The WeBWorK Shell
Available objects: $ce (WeBWorK::CourseEnvironment)
$db (WeBWorK::DB)
+Available modules: Data::Dumper
EOF
- PSH::prompt();
-}
+
+DB::parse_options("NonStop=3D0");
|
