Is there a better way of doing the following?
use CGI;
my $query = CGI->new();
#######################################################################################
#######################################################################################
my $referrer = $ENV{HTTP_REFERER};
my $goto = $referrer;
if ($referrer =~ m|/en/|g) {
$goto =~ s|/en/|/ws/|g;
}
elsif ($referrer =~ m|/ws/|g) {
$goto =~ s|/ws/|/en/|g;
}
else {
die("Can't understand what to translate to.");
}
print $query->redirect($goto);
- wil
Code:
use strict; use CGI;
my $query = CGI->new();
#######################################################################################
#######################################################################################
my $referrer = $ENV{HTTP_REFERER};
my $goto = $referrer;
if ($referrer =~ m|/en/|g) {
$goto =~ s|/en/|/ws/|g;
}
elsif ($referrer =~ m|/ws/|g) {
$goto =~ s|/ws/|/en/|g;
}
else {
die("Can't understand what to translate to.");
}
print $query->redirect($goto);
- wil