[ic] Redirecting Based on Domain

[Dan Browning]

> >>That's true sine I gave the example of am.mydomain.com points to 
> >>www.mydomain.com/fea/.... where it wouldn't hit Interchange 
> >>at the main 
> >>request.  I will probably be looking into mod_rewrite again.  
> >>
> >>One question though, while using Perl (or ITL) code in ITL 
> >>can I get the 
> >>server name (HTTP_HOST) or any of the other environment variables?
> >>
> >>Thanks,
> >>Michael
> >>
> >
> >Look for the [env] usertag, courteously written by Ed 
> LaFrance.  (That
> >goes double for you, Chris ;-) ).
> >
> Thanks.  Is there any documentation for this tag?  I couldn't find 
> anything at : http://interchange.redhat.com/cgi-bin/ic/dev-4.8/ictags
> 
> Thanks,
> Michael

I don't think there is any besides the usertag itself (below).

+---------------------------------------------------
| Dan Browning, Sr. Tech Consultant
| Kavod Technologies, 1498 SE Tech Center Pl Ste 170
| Vancouver, WA 98683  <dan.browning@kavod.com>
+---------------------------------------------------
Research is what I'm doing when I don't know what I'm doing.
		-- Wernher von Braun



Hello all -


Here is another Usertag which I trust some will find useful.


- Ed L.



# Interchange UserTag env - see documentation for more information
#
# Copyright 2001 by Ed LaFrance <edl@newmediaems.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public
# License along with this program; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA  02111-1307  USA.
#
#
# SUMMARY:      Provides read only access to the http environment
#               variables; individually by name, or the full
#               list.
#
# USEAGE:       to see a the full list as a table:
#               [env]
#
#               to return one the value of one variable:
#               [env VARNAME]
#               [env arg="VARNAME"]
#
# NOTES:        Works when configured in either catalog.cfg
#               or interchange.cfg. Thanks to Mike Heins and
#               the programming team at RH/Akopia for the
#               numerous examples in the demos and UI - I
#               don't think I could come up with stuff like
#               this without it.


Usertag env Order arg
Usertag env PosNumber 1
Usertag env Routine <<EOR
sub {
        my $arg = shift;
        my $env = ::http()->{env};
        my $out;
        if (! $arg) {
                $out = "<table cellpadding=2 cellspacing=1 border=1>\n";
                foreach ((keys %$env)) {
                        $out .= "<tr><td><b>$_\&nbsp;<\/b><\/td><td>";
                        $out .= "$env->{$_}\&nbsp;<\/td>\n<\/tr><tr>\n";
                }
                $out .= "<\/table>\n";
        }
        else {
                $out = $env->{$arg};
        }
        return $out;
}
EOR






===============================================================
**** Virtual Hosting w/private IC Installation, $65/month! ****
---------------------------------------------------------------
New Media E.M.S.               Software Solutions for Business
463 Main St., Suite D          eCommerce | Consulting | Hosting
Placerville, CA  95667         edl@newmediaems.com
(530) 622-9421                 http://www.newmediaems.com
(866) 519-4680 Toll-Free       (530) 622-9426 Fax
===============================================================