3 # This file is part of Stem.
4 # Copyright (C) 1999, 2000, 2001 Stem Systems, Inc.
6 # Stem is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2 of the License, or
9 # (at your option) any later version.
11 # Stem is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Stem; if not, write to the Free Software
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 # For a license to use the Stem under conditions other than those
21 # described here, to purchase support for this software, or to purchase a
22 # commercial warranty contract, please contact Stem Systems at:
24 # Stem Systems, Inc. 781-643-7504
25 # 79 Everett St. info@stemsystems.com
34 use vars qw( %Env @EXPORT ) ;
36 @EXPORT = qw( %Env ) ;
40 Stem::Route::register_class( __PACKAGE__, 'var', 'env' ) ;
44 my( $class, %env ) = @_ ;
46 delete $env{ 'reg_name' } ;
48 @Env{ keys %env } = values %env ;
55 my( $self, $msg ) = @_ ;
57 my( $data ) = $msg->data() ;
59 $data = ${$data} if ref $data ;
61 if ( my( $key, $val ) = $data =~ /^\s*(\w+)\s*=\s*(.+)$/ ) {
72 my( $self, $msg ) = @_ ;
74 my( $data ) = $msg->data() ;
76 $data = ${$data} if ref $data ;
87 Status of Stem Environment
91 foreach my $key ( sort keys %Env ) {
93 my $val = $Env{$key} ;
95 $text .= sprintf( "\t%-24s = '$val'\n", $key ) ;