qbit/werc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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 efb5bdf499
commit a9b49f9f61
1 changed files with 6 additions and 6 deletions
Show Stats 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
}