q/thirdculture-werc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make perm redirect code a bit simpler and a bit less hideous.

Browse source
This commit is contained in:
Uriel 2009-01-05 05:41:10 +01:00
parent d4cea460b5
commit 1c388b2a48
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bin/werc.rc
View file

@ -219,13 +219,13 @@ for(i in ('' $args)) {
cd $werc_root
# Redirections and other preprocessing
if(~ $#redirectPermanent 1)
if(~ $#redirectPermanent 1) {
perm_redirect $"redirectPermanent
if not if(~ $#redirectPermanent 2 && {echo $SERVER_NAME^$req_path|grep -s $redirectPermanent(1) }) {
# Experimental regexp sub-based redirect, probably should find a nicer interface
to=`{echo $SERVER_NAME^$req_path|sed 's@'^$redirectPermanent(1)^'@'^$redirectPermanent(2)^'@'}
if(! ~ $to $req_path)
}
if not if(~ $#redirectPermanent 2) {
from='http://'^$SERVER_NAME^$req_path
to=`{echo $from|sed 's@'^$redirectPermanent(1)^'@'^$redirectPermanent(2)^'@'}
if(! ~ $to $from)
perm_redirect $to
}