archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

permissions definition incorrect, defaults are fine anyway.

Browse Source
This commit is contained in:
Charles Mauch
2006-09-18 17:52:59 +00:00
parent 582cdb6514
commit ee4e2f2a0f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/backlinkage.pl
View File

@@ -21,7 +21,7 @@
use MLDBM qw( DB_File Storable );
$ModulesDescription .= '<p>$Id: backlinkage.pl,v 1.1 2006/09/12 17:25:30 xterminus Exp $</p>';
$ModulesDescription .= '<p>$Id: backlinkage.pl,v 1.2 2006/09/18 17:52:59 xterminus Exp $</p>';
push(@MyAdminCode, \&BacklinksMenu);
@@ -39,8 +39,8 @@ sub BuildBacklinkDatabase {
print GetHttpHeader('text/plain');
my $backfile = $DataDir . '/backlinks.db';
unlink $backfile; # Remove old database
tie %backhash, 'MLDBM', $backfile, O_CREAT|O_RDWR, 0644 or die "Cannot open file $backfile $!\n";
tie %backhash, 'MLDBM', $backfile or die "Cannot open file $backfile $!\n";
foreach my $name (AllPagesList()) {
OpenPage($name);
my $page = $OpenPageName;