code/UserTag/env.tag

   1 # Copyright 2004-2007 Interchange Development Group and others
   2 # Copyright 2001 Ed LaFrance <edl@newmediaems.com>
   3 #
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2 of the License, or
   7 # (at your option) any later version.  See the LICENSE file for details.
   8 #
   9 # $Id: env.tag,v 1.11 2007-03-30 23:40:57 pajamian Exp $
  10
  11 Usertag env Order      arg
  12 Usertag env PosNumber  1
  13 UserTag env attrAlias  name arg
  14 UserTag env Version    $Revision: 1.11 $
  15 Usertag env Routine    <<EOR
  16 sub {
  17         my $arg = shift;
  18         my $env = ::http()->{env};
  19         my $out;
  20         if (! $arg) {
  21                 $out = "<table cellpadding='2' cellspacing='1' border='1'>\n";
  22                 foreach ((keys %$env)) {
  23                         $out .= "<tr><td><b>$_</b></td><td>";
  24                         $out .= "$env->{$_}</td>\n</tr><tr>\n";
  25                 }
  26                 $out .= "</table>\n";
  27         }
  28         else {
  29                 $out = $env->{$arg};
  30         }
  31         return $out;
  32 }
  33 EOR