[interchange-cvs] interchange - heins modified 2 files
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Sat Oct 6 02:19:00 2001
User: heins
Date: 2001-10-06 06:18:09 GMT
Modified: lib/Vend Error.pm Parse.pm
Log:
* Allow [dump] of portion of session space, i.e. [dump scratch].
* Can go into stable branch.
Revision Changes Path
2.2 +13 -3 interchange/lib/Vend/Error.pm
rev 2.2, 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.2
diff -u -r2.1 -r2.2
--- Error.pm 2001/08/13 14:39:22 2.1
+++ Error.pm 2001/10/06 06:18:09 2.2
@@ -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.2 2001/10/06 06:18:09 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.2 $, 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.2 +4 -4 interchange/lib/Vend/Parse.pm
rev 2.2, prev_rev 2.1
Index: Parse.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Parse.pm,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -r2.1 -r2.2
--- Parse.pm 2001/08/14 18:38:54 2.1
+++ Parse.pm 2001/10/06 06:18:09 2.2
@@ -1,6 +1,6 @@
# Vend::Parse - Parse Interchange tags
#
-# $Id: Parse.pm,v 2.1 2001/08/14 18:38:54 jon Exp $
+# $Id: Parse.pm,v 2.2 2001/10/06 06:18:09 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.1 $, 10);
+$VERSION = substr(q$Revision: 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 )],