View of /trunk/webwork/system/scripts/export_password-database.pl

    1 #!/usr/local/bin/perl
    2 
    3 
    4 use lib '/ww/webwork/gage_system/webwork/system/lib/'; # mainWeBWorKDirectory
    5 
    6 use Global;
    7 use Auth;
    8 use strict;
    9 
   10 if (@ARGV != 2)
   11   {
   12    print "\nSyntax is export_password-database.pl courseID outputTextFile\n";
   13    print "      (e.g. export_password-database.pl  demoCourse textDatabase)\n\n";
   14    exit(0);
   15   }
   16 
   17 my $course = $ARGV[0];
   18 my $outFileName = $ARGV[1];
   19 
   20 # establish environment for this script
   21 
   22 &Global::getCourseEnvironment($course);
   23 
   24 # File names
   25 
   26 my $pw_file = &Global::getCoursePasswordFile($course);
   27 
   28 my %pw_hash;
   29 my $pw_obj;
   30 
   31 &Global::tie_hash('PW_FILE',\$pw_obj,\%pw_hash, $pw_file,'R',$Global::standard_tie_pwission);
   32 
   33 my ($key,$item);
   34 my @keys = sort keys %pw_hash;
   35 
   36 open(OUTFILE,">$outFileName") or wwerror("$0","can't open $outFileName for writing");
   37 
   38 foreach $key (@keys) {
   39     print OUTFILE "[$key]\n";
   40     print OUTFILE "\t$pw_hash{$key}\n";
   41 }
   42 
   43 close(OUTFILE);
   44 &Global::untie_hash('PW_FILE',\$pw_obj,\%pw_hash, $pw_file);