[WWcvs] webwork2: use the perl debugger for a shell instead of PSH.

[Sam H. v. a. <we...@ma...>]

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");