[system] / trunk / webwork-modperl / bin / wwdb Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/bin/wwdb

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1095 Revision 1096
1#!/usr/bin/env perl 1#!/usr/bin/env perl
2 2
3################################################################################ 3################################################################################
4# WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester 4# WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester
5# $Id: wwdb,v 1.3 2003-05-30 00:27:02 sh002i Exp $ 5# $Id: wwdb,v 1.4 2003-06-09 23:25:06 sh002i Exp $
6################################################################################ 6################################################################################
7 7
8=head1 NAME 8=head1 NAME
9 9
10wwdb - command-line interface to the WeBWorK databases (WWDBv2). 10wwdb - command-line interface to the WeBWorK databases (WWDBv2).
… …
39 39
40 unless ($course and $command) { 40 unless ($course and $command) {
41 die "usage: $0 course command [arguments ...]\n"; 41 die "usage: $0 course command [arguments ...]\n";
42 } 42 }
43 43
44 my $ce = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", $course); 44 my $ce = WeBWorK::CourseEnvironment->new($ENV{WEBWORK_ROOT}, "", "", $course);
45 my $db = WeBWorK::DB->new($ce); 45 my $db = WeBWorK::DB->new($ce);
46 46
47 if ($command eq "dumpDB") { 47 if ($command eq "dumpDB") {
48 print $db->$command("set_user"); 48 print $db->$command("set_user");
49 exit; 49 exit;
Legend:
Removed from v.1095  
changed lines
  Added in v.1096
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9