CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Add setredir()

Modified Files:
--------------
    gleipnir/perllib:
        Gleipnir.pm

Revision Data
-------------
Index: Gleipnir.pm
===================================================================
RCS file: /cvs/gleipnir/perllib/Gleipnir.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -Lperllib/Gleipnir.pm -Lperllib/Gleipnir.pm -u -r1.10 -r1.11
--- perllib/Gleipnir.pm
+++ perllib/Gleipnir.pm
@@ -488,6 +488,14 @@
 	$this->logmessage("Gleipnir Destroyed.");
 	}
 
+sub setredir
+	{
+	my $this = shift;
+	my $redirect_url = $this->{cgi}->self_url;
+	$redirect_url =~ s|https?://[^/]*||;
+	$this->store('_redirect_url' => $redirect_url);
+	};
+
 1;
 
 =head1 Methods