[interchange-cvs] interchange - jon modified 17 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Tue Mar 25 12:13:21 EST 2008
User: jon
Date: 2008-03-25 17:13:21 GMT
Modified: code/SystemTag image.tag
Modified: lib/Vend Cart.pm CharSet.pm Data.pm File.pm Form.pm
Modified: Interpolate.pm Order.pm Server.pm UserDB.pm Util.pm
Modified: lib/Vend/Table Common.pm DBI.pm DB_File.pm Editor.pm GDBM.pm
Modified: SDBM.pm
Log:
Various minor UTF-8 changes.
Correct attribution of &Vend::CharSet::display_chars (which is from
perluniintro manpage).
Enable localization of an error string.
Match content type more tightly in 2 spots ("text" is only trustworthy
in the MIME major type, not minor, and even that may be a stretch).
Simplify request method matching in a few places for readability and a
(trivial) performance benefit.
Use conventional $c lexical instead of $g for catalog hashref.
Fix tab/space differences to match context.
Update copyrights of files changed in 2008.
Revision Changes Path
1.23 interchange/code/SystemTag/image.tag
rev 1.23, prev_rev 1.22
Index: image.tag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/image.tag,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -u -r1.22 -r1.23
--- image.tag 4 Mar 2008 16:27:04 -0000 1.22
+++ image.tag 25 Mar 2008 17:13:20 -0000 1.23
@@ -1,17 +1,17 @@
-# Copyright 2002-2007 Interchange Development Group and others
+# Copyright 2002-2008 Interchange Development Group and others
#
# This program 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. See the LICENSE file for details.
#
-# $Id: image.tag,v 1.22 2008-03-04 16:27:04 kwalsh Exp $
+# $Id: image.tag,v 1.23 2008-03-25 17:13:20 jon Exp $
UserTag image Order src
UserTag image AttrAlias geometry makesize
UserTag image AttrAlias resize makesize
UserTag image AddAttr
-UserTag image Version $Revision: 1.22 $
+UserTag image Version $Revision: 1.23 $
UserTag image Routine <<EOR
sub {
my ($src, $opt) = @_;
2.23 interchange/lib/Vend/Cart.pm
rev 2.23, prev_rev 2.22
Index: Cart.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Cart.pm,v
retrieving revision 2.22
retrieving revision 2.23
diff -u -u -r2.22 -r2.23
--- Cart.pm 11 Feb 2008 01:09:04 -0000 2.22
+++ Cart.pm 25 Mar 2008 17:13:21 -0000 2.23
@@ -1,8 +1,8 @@
# Vend::Cart - Interchange shopping cart management routines
#
-# $Id: Cart.pm,v 2.22 2008-02-11 01:09:04 kwalsh Exp $
+# $Id: Cart.pm,v 2.23 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -25,7 +25,7 @@
package Vend::Cart;
-$VERSION = substr(q$Revision: 2.22 $, 10);
+$VERSION = substr(q$Revision: 2.23 $, 10);
use strict;
2.4 interchange/lib/Vend/CharSet.pm
rev 2.4, prev_rev 2.3
Index: CharSet.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/CharSet.pm,v
retrieving revision 2.3
retrieving revision 2.4
diff -u -u -r2.3 -r2.4
--- CharSet.pm 25 Mar 2008 10:53:38 -0000 2.3
+++ CharSet.pm 25 Mar 2008 17:13:21 -0000 2.4
@@ -1,12 +1,9 @@
# Vend::CharSet - utility methods for handling character encoding
#
-# $Id: CharSet.pm,v 2.3 2008-03-25 10:53:38 kwalsh Exp $
+# $Id: CharSet.pm,v 2.4 2008-03-25 17:13:21 jon Exp $
#
# Copyright (C) 2008 Interchange Development Group
#
-# This program was originally based on Vend 0.2 and 0.3
-# Copyright 1995 by Andrew M. Wilcox <amw at wilcoxsolutions.com>
-#
# This program 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
@@ -21,7 +18,7 @@
# License along with this program; if not, write to the Free
# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1301 USA.
-#
+
package Vend::CharSet;
use strict;
@@ -55,7 +52,7 @@
sub decode_urlencode {
my ($class, $octets, $encoding) = (@_);
$encoding ||= DEFAULT_ENCODING;
-# ::logDebug("decode_urlencode--octets: $octets, encoding: $encoding");
+#::logDebug("decode_urlencode--octets: $octets, encoding: $encoding");
return undef unless $class->validate_encoding($encoding);
@@ -63,49 +60,47 @@
$octets =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex $1)/ge;
my $string = $class->to_internal($encoding, $octets);
-# ::logDebug("decoded string: " . display_chars($string)) if $string;
+#::logDebug("decoded string: " . display_chars($string)) if $string;
return $string;
}
sub to_internal {
my ($class, $encoding, $octets) = @_;
-# ::logDebug("to_internal - converting octets from $encoding to internal");
+#::logDebug("to_internal - converting octets from $encoding to internal");
if (is_utf8($octets)) {
-# ::logDebug("to_internal - octets are already utf-8 flagged");
+#::logDebug("to_internal - octets are already utf-8 flagged");
return $octets;
}
my $string = eval { decode($encoding, $octets, Encode::FB_CROAK) };
if ($@) {
- ::logError("Unable to properly decode <"
- . display_chars($octets)
- . "> with $encoding");
+ ::logError("Unable to properly decode <%s> with encoding %s", display_chars($octets), $encoding);
return;
}
return $string;
}
sub validate_encoding {
- my ($class, $encoding) = (@_);
+ my ($class, $encoding) = @_;
return resolve_alias($encoding);
}
sub default_charset {
- my $g = $Global::Selector{$CGI::script_name};
- return $g->{Variable}->{MV_HTTP_CHARSET}
- || $Global::Variable->{MV_HTTP_CHARSET};
+ my $c = $Global::Selector{$CGI::script_name};
+ return $c->{Variable}{MV_HTTP_CHARSET} || $Global::Variable->{MV_HTTP_CHARSET};
}
-## stolen from the Encode man page, for diagnostic purposes
+# this sub taken from the perluniintro man page, for diagnostic purposes
sub display_chars {
return unless $_[0];
- join("",
- map { $_ > 255 ? # if wide character...
- sprintf("\\x{%04X}", $_) : # \x{...}
- chr($_) =~ /[[:cntrl:]]/ ? # else if control character ...
- sprintf("\\x%02X", $_) : # \x..
- quotemeta(chr($_)) # else quoted or as themselves
- } unpack("U*", $_[0])); # unpack Unicode characters
+ return join("",
+ map {
+ $_ > 255 ? # if wide character...
+ sprintf("\\x{%04X}", $_) : # \x{...}
+ chr($_) =~ /[[:cntrl:]]/ ? # else if control character ...
+ sprintf("\\x%02X", $_) : # \x..
+ quotemeta(chr($_)) # else quoted or as themselves
+ } unpack("U*", $_[0])); # unpack Unicode characters
}
2.66 interchange/lib/Vend/Data.pm
rev 2.66, prev_rev 2.65
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.65
retrieving revision 2.66
diff -u -u -r2.65 -r2.66
--- Data.pm 12 Mar 2008 20:13:31 -0000 2.65
+++ Data.pm 25 Mar 2008 17:13:21 -0000 2.66
@@ -1,8 +1,8 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.65 2008-03-12 20:13:31 jon Exp $
+# $Id: Data.pm,v 2.66 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
2.28 interchange/lib/Vend/File.pm
rev 2.28, prev_rev 2.27
Index: File.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/File.pm,v
retrieving revision 2.27
retrieving revision 2.28
diff -u -u -r2.27 -r2.28
--- File.pm 25 Mar 2008 10:17:18 -0000 2.27
+++ File.pm 25 Mar 2008 17:13:21 -0000 2.28
@@ -1,8 +1,8 @@
# Vend::File - Interchange file functions
#
-# $Id: File.pm,v 2.27 2008-03-25 10:17:18 kwalsh Exp $
+# $Id: File.pm,v 2.28 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -56,7 +56,7 @@
use File::Copy;
use subs qw(logError logGlobal);
use vars qw($VERSION @EXPORT @EXPORT_OK $errstr);
-$VERSION = substr(q$Revision: 2.27 $, 10);
+$VERSION = substr(q$Revision: 2.28 $, 10);
sub writefile {
my($file, $data, $opt) = @_;
2.75 interchange/lib/Vend/Form.pm
rev 2.75, prev_rev 2.74
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.74
retrieving revision 2.75
diff -u -u -r2.74 -r2.75
--- Form.pm 18 Feb 2008 19:21:21 -0000 2.74
+++ Form.pm 25 Mar 2008 17:13:21 -0000 2.75
@@ -1,8 +1,8 @@
# Vend::Form - Generate Form widgets
#
-# $Id: Form.pm,v 2.74 2008-02-18 19:21:21 docelic Exp $
+# $Id: Form.pm,v 2.75 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -39,7 +39,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = substr(q$Revision: 2.74 $, 10);
+$VERSION = substr(q$Revision: 2.75 $, 10);
@EXPORT = qw (
display
2.298 interchange/lib/Vend/Interpolate.pm
rev 2.298, prev_rev 2.297
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.297
retrieving revision 2.298
diff -u -u -r2.297 -r2.298
--- Interpolate.pm 21 Mar 2008 18:56:12 -0000 2.297
+++ Interpolate.pm 25 Mar 2008 17:13:21 -0000 2.298
@@ -1,8 +1,8 @@
# Vend::Interpolate - Interpret Interchange tags
#
-# $Id: Interpolate.pm,v 2.297 2008-03-21 18:56:12 jon Exp $
+# $Id: Interpolate.pm,v 2.298 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -28,7 +28,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = substr(q$Revision: 2.297 $, 10);
+$VERSION = substr(q$Revision: 2.298 $, 10);
@EXPORT = qw (
2.100 interchange/lib/Vend/Order.pm
rev 2.100, prev_rev 2.99
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.99
retrieving revision 2.100
diff -u -u -r2.99 -r2.100
--- Order.pm 20 Feb 2008 19:44:18 -0000 2.99
+++ Order.pm 25 Mar 2008 17:13:21 -0000 2.100
@@ -1,8 +1,8 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.99 2008-02-20 19:44:18 kwalsh Exp $
+# $Id: Order.pm,v 2.100 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -29,7 +29,7 @@
package Vend::Order;
require Exporter;
-$VERSION = substr(q$Revision: 2.99 $, 10);
+$VERSION = substr(q$Revision: 2.100 $, 10);
@ISA = qw(Exporter);
2.89 interchange/lib/Vend/Server.pm
rev 2.89, prev_rev 2.88
Index: Server.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Server.pm,v
retrieving revision 2.88
retrieving revision 2.89
diff -u -u -r2.88 -r2.89
--- Server.pm 25 Mar 2008 10:17:18 -0000 2.88
+++ Server.pm 25 Mar 2008 17:13:21 -0000 2.89
@@ -1,6 +1,6 @@
# Vend::Server - Listen for Interchange CGI requests as a background server
#
-# $Id: Server.pm,v 2.88 2008-03-25 10:17:18 kwalsh Exp $
+# $Id: Server.pm,v 2.89 2008-03-25 17:13:21 jon Exp $
#
# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -26,7 +26,7 @@
package Vend::Server;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.88 $, 10);
+$VERSION = substr(q$Revision: 2.89 $, 10);
use Cwd;
use POSIX qw(setsid strftime);
@@ -247,11 +247,11 @@
#::logDebug("CGI::query_string=" . $CGI::query_string);
#::logDebug("entity=" . ${$h->{entity}});
- if ("\U$CGI::request_method" eq 'POST') {
+ my $request_method = "\U$CGI::request_method";
+ if ($request_method eq 'POST') {
#::logDebug("content type header: " . $CGI::content_type);
## check for valid content type
- if ( $CGI::content_type =~ m|^multipart/form-data|
- || $CGI::content_type =~ m|^application/x-www-form-urlencoded|) {
+ if ($CGI::content_type =~ m{^(?:multipart/form-data|application/x-www-form-urlencoded)$}) {
parse_post(\$CGI::query_string)
if $Global::TolerateGet;
parse_post($h->{entity});
@@ -259,7 +259,7 @@
else {
## invalid content type for POST
## XXX we may want to be a little more forgiving here
- my $msg = ::get_locale_message(415, "Unsupported Content-Type for POST Method");
+ my $msg = ::get_locale_message(415, "Unsupported Content-Type for POST method");
my $content_type = $msg =~ /<html/i ? 'text/html' : 'text/plain';
my $len = length($msg);
$Vend::StatusLine = <<EOF;
@@ -271,7 +271,7 @@
die($msg);
}
}
- elsif ("\U$CGI::request_method" eq 'PUT') {
+ elsif ($request_method eq 'PUT') {
#::logDebug("Put operation.");
parse_post(\$CGI::query_string);
$CGI::put_ref = $h->{entity};
@@ -330,11 +330,10 @@
my $sref = shift;
return unless length $$sref;
- my(@pairs, $pair, $key, $value);
- my $charset;
+ my (@pairs, $pair, $key, $value, $charset);
if ($CGI::content_type =~ m/charset=(["']?)([-a-zA-Z0-9]+)\1/) {
- $charset = $2;
+ $charset = $2;
}
else {
$charset = Vend::CharSet->default_charset();
@@ -364,6 +363,7 @@
$CGI::values_array{ISINDEX} = [ split /\+/, $pairs[0] ];
@pairs = ();
}
+ my $request_method = "\U$CGI::request_method";
my $redo;
CGIVAL: {
# This loop semi-duplicated in store_cgi_kv
@@ -374,7 +374,7 @@
$key = $pair;
$value = undef;
}
- elsif($CGI::request_method =~ /^post$/i) {
+ elsif ($request_method eq 'POST') {
die ::errmsg("Syntax error in POST input: %s\n%s", $pair, $$sref);
}
else {
@@ -391,7 +391,7 @@
# Handle multiple keys
if(defined $CGI::values{$key} and ! defined $::SV{$key}) {
$CGI::values{$key} = "$CGI::values{$key}\0$value";
- push ( @{$CGI::values_array{$key}}, $value);
+ push @{$CGI::values_array{$key}}, $value;
}
else {
$CGI::values{$key} = $value;
@@ -399,7 +399,7 @@
}
}
}
- if (! $redo and "\U$CGI::request_method" eq 'POST') {
+ if (! $redo and $request_method eq 'POST') {
@pairs = split $Global::UrlSplittor, $CGI::query_string;
if( defined $pairs[0] and $pairs[0] =~ /^ (\w{8,32}) ; /x) {
my (@old) = split /;/, $pairs[0], 3;
@@ -465,7 +465,7 @@
$content_type ||= 'text/plain';
$charset ||= Vend::CharSet->default_charset();
- if ($content_type =~ /text/) {
+ if ($content_type =~ m{^text/}) {
$data = Vend::CharSet->to_internal($charset, $data);
}
@@ -941,7 +941,7 @@
or return 0;
show_times('end cgi read') if $Global::ShowTimes;
- binmode(MESSAGE, ":utf8") if $::Variable->{MV_UTF8};
+ binmode(MESSAGE, ':utf8') if $::Variable->{MV_UTF8};
my $http = new Vend::Server \*MESSAGE, \%env, \$entity;
2.61 interchange/lib/Vend/UserDB.pm
rev 2.61, prev_rev 2.60
Index: UserDB.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/UserDB.pm,v
retrieving revision 2.60
retrieving revision 2.61
diff -u -u -r2.60 -r2.61
--- UserDB.pm 24 Mar 2008 15:30:10 -0000 2.60
+++ UserDB.pm 25 Mar 2008 17:13:21 -0000 2.61
@@ -1,8 +1,8 @@
# Vend::UserDB - Interchange user database functions
#
-# $Id: UserDB.pm,v 2.60 2008-03-24 15:30:10 mheins Exp $
+# $Id: UserDB.pm,v 2.61 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify
@@ -17,7 +17,7 @@
package Vend::UserDB;
-$VERSION = substr(q$Revision: 2.60 $, 10);
+$VERSION = substr(q$Revision: 2.61 $, 10);
use vars qw!
$VERSION
2.117 interchange/lib/Vend/Util.pm
rev 2.117, prev_rev 2.116
Index: Util.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Util.pm,v
retrieving revision 2.116
retrieving revision 2.117
diff -u -u -r2.116 -r2.117
--- Util.pm 25 Mar 2008 10:17:18 -0000 2.116
+++ Util.pm 25 Mar 2008 17:13:21 -0000 2.117
@@ -1,8 +1,8 @@
# Vend::Util - Interchange utility functions
#
-# $Id: Util.pm,v 2.116 2008-03-25 10:17:18 kwalsh Exp $
+# $Id: Util.pm,v 2.117 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -91,7 +91,7 @@
use Vend::File;
use subs qw(logError logGlobal);
use vars qw($VERSION @EXPORT @EXPORT_OK);
-$VERSION = substr(q$Revision: 2.116 $, 10);
+$VERSION = substr(q$Revision: 2.117 $, 10);
my $Eval_routine;
my $Eval_routine_file;
2.48 interchange/lib/Vend/Table/Common.pm
rev 2.48, prev_rev 2.47
Index: Common.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Common.pm,v
retrieving revision 2.47
retrieving revision 2.48
diff -u -u -r2.47 -r2.48
--- Common.pm 25 Mar 2008 10:17:18 -0000 2.47
+++ Common.pm 25 Mar 2008 17:13:21 -0000 2.48
@@ -1,8 +1,8 @@
# Vend::Table::Common - Common access methods for Interchange databases
#
-# $Id: Common.pm,v 2.47 2008-03-25 10:17:18 kwalsh Exp $
+# $Id: Common.pm,v 2.48 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -23,7 +23,7 @@
# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1301 USA.
-$VERSION = substr(q$Revision: 2.47 $, 10);
+$VERSION = substr(q$Revision: 2.48 $, 10);
use strict;
package Vend::Table::Common;
2.84 interchange/lib/Vend/Table/DBI.pm
rev 2.84, prev_rev 2.83
Index: DBI.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.83
retrieving revision 2.84
diff -u -u -r2.83 -r2.84
--- DBI.pm 25 Mar 2008 10:17:18 -0000 2.83
+++ DBI.pm 25 Mar 2008 17:13:21 -0000 2.84
@@ -1,8 +1,8 @@
# Vend::Table::DBI - Access a table stored in an DBI/DBD database
#
-# $Id: DBI.pm,v 2.83 2008-03-25 10:17:18 kwalsh Exp $
+# $Id: DBI.pm,v 2.84 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify
@@ -21,7 +21,7 @@
# MA 02110-1301 USA.
package Vend::Table::DBI;
-$VERSION = substr(q$Revision: 2.83 $, 10);
+$VERSION = substr(q$Revision: 2.84 $, 10);
use strict;
no warnings qw(uninitialized numeric);
@@ -69,8 +69,8 @@
AUTOCOMMIT AutoCommit
LONGTRUNCOK LongTruncOk
LONGREADLEN LongReadLen
- PG_ENABLE_UTF8 pg_enable_utf8
- MYSQL_ENABLE_UTF8 mysql_enable_utf8
+ PG_ENABLE_UTF8 pg_enable_utf8
+ MYSQL_ENABLE_UTF8 mysql_enable_utf8
) );
my @Dattr = keys %Dattr;
2.16 interchange/lib/Vend/Table/DB_File.pm
rev 2.16, prev_rev 2.15
Index: DB_File.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/DB_File.pm,v
retrieving revision 2.15
retrieving revision 2.16
diff -u -u -r2.15 -r2.16
--- DB_File.pm 12 Mar 2008 20:13:31 -0000 2.15
+++ DB_File.pm 25 Mar 2008 17:13:21 -0000 2.16
@@ -1,8 +1,8 @@
# Vend::Table::DB_File - Access an Interchange table stored in a DB file hash
#
-# $Id: DB_File.pm,v 2.15 2008-03-12 20:13:31 jon Exp $
+# $Id: DB_File.pm,v 2.16 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -31,7 +31,7 @@
use Vend::Table::Common;
@ISA = qw(Vend::Table::Common);
-$VERSION = substr(q$Revision: 2.15 $, 10);
+$VERSION = substr(q$Revision: 2.16 $, 10);
sub create {
my ($class, $config, $columns, $filename) = @_;
1.91 interchange/lib/Vend/Table/Editor.pm
rev 1.91, prev_rev 1.90
Index: Editor.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -u -r1.90 -r1.91
--- Editor.pm 13 Mar 2008 14:17:28 -0000 1.90
+++ Editor.pm 25 Mar 2008 17:13:21 -0000 1.91
@@ -1,8 +1,8 @@
# Vend::Table::Editor - Swiss-army-knife table editor for Interchange
#
-# $Id: Editor.pm,v 1.90 2008-03-13 14:17:28 mheins Exp $
+# $Id: Editor.pm,v 1.91 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 2002 Mike Heins <mike at perusion.net>
#
# This program was originally based on Vend 0.2 and 0.3
@@ -26,7 +26,7 @@
package Vend::Table::Editor;
use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.90 $, 10);
+$VERSION = substr(q$Revision: 1.91 $, 10);
use Vend::Util;
use Vend::Interpolate;
2.18 interchange/lib/Vend/Table/GDBM.pm
rev 2.18, prev_rev 2.17
Index: GDBM.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/GDBM.pm,v
retrieving revision 2.17
retrieving revision 2.18
diff -u -u -r2.17 -r2.18
--- GDBM.pm 12 Mar 2008 20:13:31 -0000 2.17
+++ GDBM.pm 25 Mar 2008 17:13:21 -0000 2.18
@@ -1,8 +1,8 @@
# Vend::Table::GDBM - Access an Interchange table stored in a GDBM file
#
-# $Id: GDBM.pm,v 2.17 2008-03-12 20:13:31 jon Exp $
+# $Id: GDBM.pm,v 2.18 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -30,7 +30,7 @@
use Vend::Table::Common;
@ISA = qw(Vend::Table::Common);
-$VERSION = substr(q$Revision: 2.17 $, 10);
+$VERSION = substr(q$Revision: 2.18 $, 10);
sub new {
my ($class, $obj) = @_;
2.17 interchange/lib/Vend/Table/SDBM.pm
rev 2.17, prev_rev 2.16
Index: SDBM.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/SDBM.pm,v
retrieving revision 2.16
retrieving revision 2.17
diff -u -u -r2.16 -r2.17
--- SDBM.pm 12 Mar 2008 20:13:31 -0000 2.16
+++ SDBM.pm 25 Mar 2008 17:13:21 -0000 2.17
@@ -1,8 +1,8 @@
# Vend::Table::SDBM - Access an Interchange table stored in Perl's internal SDBM
#
-# $Id: SDBM.pm,v 2.16 2008-03-12 20:13:31 jon Exp $
+# $Id: SDBM.pm,v 2.17 2008-03-25 17:13:21 jon Exp $
#
-# Copyright (C) 2002-2007 Interchange Development Group
+# Copyright (C) 2002-2008 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
#
# This program was originally based on Vend 0.2 and 0.3
@@ -31,7 +31,7 @@
use Vend::Table::Common;
@ISA = qw(Vend::Table::Common);
-$VERSION = substr(q$Revision: 2.16 $, 10);
+$VERSION = substr(q$Revision: 2.17 $, 10);
sub create {
my ($class, $config, $columns, $filename) = @_;
More information about the interchange-cvs
mailing list