Missing rootdirs

scc · May 12, 2003 · 9dd1716 · 9dd1716
1 parent 997bf09
commit 9dd1716
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 6 deletions.
diff --git a/plugins/Admin/admin.pl b/plugins/Admin/admin.pl
@@ -152,8 +152,7 @@ sub main {
 
 	# admin.pl is not for regular users
 	if ($user->{seclev} < 100) {
-		my $rootdir = getCurrentStatic('rootdir');
-		redirect("$rootdir/users.pl");
+		redirect("$constants->{rootdir}/users.pl");
 		return;
 	}
 	# non suadmin users can't perform suadmin ops

diff --git a/plugins/Blob/blob.pl b/plugins/Blob/blob.pl
@@ -17,13 +17,13 @@ sub main {
 	my $blob = getObject("Slash::Blob", { db_type => 'reader' });
 
 	unless ($form->{id}) {
-		redirect("/404.pl");
+		redirect("$constants->{rootdir}/404.pl");
 		return;
 	}
 
 	my $data = $blob->get($form->{id});
 	if (!$data || $user->{seclev} < $data->{seclev}) {
-		redirect("/404.pl");
+		redirect("$constants->{rootdir}/404.pl");
 		return;
 	}
 

diff --git a/plugins/Relocate/relocate.pl b/plugins/Relocate/relocate.pl
@@ -16,7 +16,7 @@ sub main {
 
 	my $link = $relocateDB->get($form->{id});
 	if (!$link) {
-		redirect("/404.pl");
+		redirect("$constants->{rootdir}/404.pl");
 	} elsif ($link->{is_alive} eq 'no') {
 		header("D'Oh"); # Needs to be templated -Brian
 		printDeadPage($link);

diff --git a/plugins/Subscribe/subscribe.pl b/plugins/Subscribe/subscribe.pl
@@ -219,7 +219,7 @@ sub makepayment {
 sub pause {
 	my($form, $slashdb, $user, $constants) = @_;
 	sleep 5;
-	redirect("/subscribe.pl");
+	redirect("$constants->{rootdir}/subscribe.pl");
 }
 
 createEnvironment();