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

Diff of /trunk/webwork/system/cgi/cgi-scripts/profCompress_GDBM_webwork-database.pl

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

Revision 571 Revision 572
… …
38 38
39&Global::getCourseEnvironment($inputs{'course'}); 39&Global::getCourseEnvironment($inputs{'course'});
40 40
41my $cgiURL = getWebworkCgiURL; 41my $cgiURL = getWebworkCgiURL;
42my $scriptDirectory = getWebworkScriptDirectory; 42my $scriptDirectory = getWebworkScriptDirectory;
43require "${scriptDirectory}$Global::FILE_pl";
43require "${scriptDirectory}$Global::HTMLglue_pl"; 44require "${scriptDirectory}$Global::HTMLglue_pl";
44 45
45# log access 46# log access
46&Global::log_info('', query_string); 47&Global::log_info('', query_string);
47 48
… …
84untie($db); 85untie($db);
85chmod($permission,"${databaseDirectory}${databaseFile}") or 86chmod($permission,"${databaseDirectory}${databaseFile}") or
86 warn("$0 error", " Can't do chmod($permission, ${databaseDirectory}${databaseFile})"); 87 warn("$0 error", " Can't do chmod($permission, ${databaseDirectory}${databaseFile})");
87chown(-1,$Global::numericalGroupID,"${databaseDirectory}${databaseFile}") or 88chown(-1,$Global::numericalGroupID,"${databaseDirectory}${databaseFile}") or
88 warn("$0 error", " Can't do chown(-1,$Global::numericalGroupID,${databaseDirectory}${databaseFile})"); 89 warn("$0 error", " Can't do chown(-1,$Global::numericalGroupID,${databaseDirectory}${databaseFile})");
90
91
89&compressSuccess(); 92&compressSuccess();
90 93exit;
91 94
92sub tie_hash { 95sub tie_hash {
93 for ($tries = 0; $tries < $TieMaxTries; $tries++) { 96 for ($tries = 0; $tries < $TieMaxTries; $tries++) {
94 return 1 if ($db = tie(%hash, "GDBM_File", "${databaseDirectory}${databaseFile}", $mode, $permission)); 97 return 1 if ($db = tie(%hash, "GDBM_File", "${databaseDirectory}${databaseFile}", $mode, $permission));
95 sleep($TieSleepInterval); 98 sleep($TieSleepInterval);
Legend:
Removed from v.571  
changed lines
  Added in v.572
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9