[urisagit/Stem.git] / lib / Stem / Vars.pm

#  File: Stem/Vars.pm

#  This file is part of Stem.
#  Copyright (C) 1999, 2000, 2001 Stem Systems, Inc.

#  Stem 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.

#  Stem 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 Stem; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

#  For a license to use the Stem under conditions other than those
#  described here, to purchase support for this software, or to purchase a
#  commercial warranty contract, please contact Stem Systems at:

#       Stem Systems, Inc.		781-643-7504
#  	79 Everett St.			info@stemsystems.com
#  	Arlington, MA 02474
#  	USA

package Stem::Vars ;

use strict ;
use Stem::Route ;
use base 'Exporter' ;
use vars qw( %Env @EXPORT ) ;

@EXPORT = qw( %Env ) ;


Stem::Route::register_class( __PACKAGE__, 'var', 'env' ) ;

sub new {

	my( $class, %env ) = @_ ;

	delete $env{ 'reg_name' } ;

	@Env{ keys %env } = values %env ;

	return ;
}

sub set_env_cmd {

	my( $self, $msg ) = @_ ;

	my( $data ) = $msg->data() ;

	$data = ${$data} if ref $data ;

	if ( my( $key, $val ) = $data =~ /^\s*(\w+)\s*=\s*(.+)$/ ) {

		$val =~ s/\s+$// ;
		$Env{ $key } = $val ;
	}

	return ;
}

sub get_env_cmd {

	my( $self, $msg ) = @_ ;

	my( $data ) = $msg->data() ;

	$data = ${$data} if ref $data ;

	return $Env{$data} ;
}

sub status_cmd {

	my $text ;

	$text = <<TEXT ;

Status of Stem Environment

TEXT

	foreach my $key ( sort keys %Env ) {
	
		my $val = $Env{$key} ;

		$text .= sprintf( "\t%-24s = '$val'\n", $key ) ;
	}

	$text .= "\n\n" ;

	return $text ;
}

1 ;
Commit	Line	Data
4536f655	1	# File: Stem/Vars.pm
	2
	3	# This file is part of Stem.
	4	# Copyright (C) 1999, 2000, 2001 Stem Systems, Inc.
	5
	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.
	10
	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.
	15
	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
	19
	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:
	23
	24	# Stem Systems, Inc. 781-643-7504
	25	# 79 Everett St. info@stemsystems.com
	26	# Arlington, MA 02474
	27	# USA
	28
	29	package Stem::Vars ;
	30
	31	use strict ;
	32	use Stem::Route ;
	33	use base 'Exporter' ;
	34	use vars qw( %Env @EXPORT ) ;
	35
	36	@EXPORT = qw( %Env ) ;
	37
	38
	39
	40	Stem::Route::register_class( __PACKAGE__, 'var', 'env' ) ;
	41
	42	sub new {
	43
	44	my( $class, %env ) = @_ ;
	45
	46	delete $env{ 'reg_name' } ;
	47
	48	@Env{ keys %env } = values %env ;
	49
	50	return ;
	51	}
	52
	53	sub set_env_cmd {
	54
	55	my( $self, $msg ) = @_ ;
	56
	57	my( $data ) = $msg->data() ;
	58
	59	$data = ${$data} if ref $data ;
	60
	61	if ( my( $key, $val ) = $data =~ /^\s(\w+)\s=\s*(.+)$/ ) {
	62
	63	$val =~ s/\s+$// ;
	64	$Env{ $key } = $val ;
65	}
66
67	return ;
68	}
69
70	sub get_env_cmd {
71
72	my( $self, $msg ) = @_ ;
73
74	my( $data ) = $msg->data() ;
75
76	$data = ${$data} if ref $data ;
77
78	return $Env{$data} ;
79	}
80
81	sub status_cmd {
82
83	my $text ;
84
85	$text = <<TEXT ;
86
87	Status of Stem Environment
88
89	TEXT
90
91	foreach my $key ( sort keys %Env ) {
92
93	my $val = $Env{$key} ;
94
95	$text .= sprintf( "\t%-24s = '$val'\n", $key ) ;
96	}
97
98	$text .= "\n\n" ;
99
100	return $text ;
101	}
102
103	1 ;