[system] / trunk / webwork / system / scripts / export_permission-database.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/scripts/export_permission-database.pl

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

Revision 11 Revision 70
1#!/usr/local/bin/webwork-perl 1#!/usr/local/bin/webwork-perl
2 2
3 3
4BEGIN {
5 my $useLibDir = '.';
6 if ($0 =~ m|^(/.*)/|) { $useLibDir = $1; }
7 elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
8 elsif ($0 =~ m|^(.+)/|) { $useLibDir = "./$1"; }
9 unshift @INC, $useLibDir;
10}
11
4use lib '.'; use webworkInit; # WeBWorKInitLine 12use webworkInit; # WeBWorKInitLine
5 13
6use Global; 14use Global;
7use Auth; 15use Auth;
8use strict; 16use strict;
9 17

Legend:
Removed from v.11  
changed lines
  Added in v.70

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9