[interchange-cvs] interchange - heins modified 2 files

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Sat Oct 6 02:21:01 2001


User:      heins
Date:      2001-10-06 06:20:09 GMT
Modified:  lib/Vend Tag: STABLE_4_8-branch Error.pm Parse.pm
Log:
	* Allow [dump] of portion of session, for example [dump scratch].

Revision  Changes    Path
No                   revision



No                   revision



2.1.2.1   +13 -3     interchange/lib/Vend/Error.pm


rev 2.1.2.1, prev_rev 2.1
Index: Error.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Error.pm,v
retrieving revision 2.1
retrieving revision 2.1.2.1
diff -u -r2.1 -r2.1.2.1
--- Error.pm	2001/08/13 14:39:22	2.1
+++ Error.pm	2001/10/06 06:20:08	2.1.2.1
@@ -1,6 +1,6 @@
 # Vend::Error - Handle Interchange error pages and messages
 # 
-# $Id: Error.pm,v 2.1 2001/08/13 14:39:22 heins Exp $
+# $Id: Error.pm,v 2.1.2.1 2001/10/06 06:20:08 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -37,7 +37,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = substr(q$Revision: 2.1 $, 10);
+$VERSION = substr(q$Revision: 2.1.2.1 $, 10);
 
 sub get_locale_message {
 	my ($code, $message, @arg) = @_;
@@ -108,7 +108,17 @@
 }
 
 sub full_dump {
-	my $out = minidump();
+	my $portion = shift;
+	my $out = '';
+	if($portion) {
+		$out .= "###### SESSION ($portion) #####\n";
+		$out .= ::uneval($Vend::Session->{$portion});
+		$out .= "\n###### END SESSION    #####\n";
+		$out =~ s/\0/\\0/g;
+		return $out;
+	}
+
+	$out = minidump();
 	local($Data::Dumper::Indent) = 2;
 	unless(caller() eq 'Vend::SOAP') {
 		$out .= "###### ENVIRONMENT     #####\n";



2.0.2.2   +4 -4      interchange/lib/Vend/Parse.pm


rev 2.0.2.2, prev_rev 2.0.2.1
Index: Parse.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Parse.pm,v
retrieving revision 2.0.2.1
retrieving revision 2.0.2.2
diff -u -r2.0.2.1 -r2.0.2.2
--- Parse.pm	2001/08/14 18:38:33	2.0.2.1
+++ Parse.pm	2001/10/06 06:20:08	2.0.2.2
@@ -1,6 +1,6 @@
 # Vend::Parse - Parse Interchange tags
 # 
-# $Id: Parse.pm,v 2.0.2.1 2001/08/14 18:38:33 jon Exp $
+# $Id: Parse.pm,v 2.0.2.2 2001/10/06 06:20:08 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -35,7 +35,7 @@
 
 @ISA = qw(Exporter Vend::Parser);
 
-$VERSION = substr(q$Revision: 2.0.2.1 $, 10);
+$VERSION = substr(q$Revision: 2.0.2.2 $, 10);
 
 @EXPORT = ();
 @EXPORT_OK = qw(find_matching_end);
@@ -68,7 +68,7 @@
 				default          2
 				description      2
 				discount         1
-				dump             0
+				dump             1
 				ecml             2
 				either           0
 				error            1
@@ -153,7 +153,7 @@
 				counter			=> [qw( file )],
 				data			=> [qw( table field key )],
 				default			=> [qw( name default )],
-				dump			=> [qw( )],
+				dump			=> [qw( key )],
 				description		=> [qw( code base )],
 				discount		=> [qw( code  )],
 				ecml			=> [qw( name function )],