[interchange-cvs] interchange - jon modified
code/UI_Tag/version.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Sep 9 00:04:09 EDT 2005
User: jon
Date: 2005-09-09 04:04:09 GMT
Modified: code/UI_Tag version.coretag
Log:
* Add Set::Crontab to list of modules checked (thanks, Davor).
* Removed a few duplicate module entries.
* Switch module list from hash to array type, since only use is of keys,
as a list.
* Clean up module definition formatting.
* Make HTML output XHTML-compliant.
Revision Changes Path
1.10 +49 -69 interchange/code/UI_Tag/version.coretag
rev 1.10, prev_rev 1.9
Index: version.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/version.coretag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -u -r1.9 -r1.10
--- version.coretag 14 Feb 2005 00:42:53 -0000 1.9
+++ version.coretag 9 Sep 2005 04:04:09 -0000 1.10
@@ -1,18 +1,18 @@
# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: version.coretag,v 1.9 2005/02/14 00:42:53 docelic Exp $
+# $Id: version.coretag,v 1.10 2005/09/09 04:04:09 jon Exp $
UserTag version Order extended
UserTag version attrAlias module_test modtest
UserTag version attrAlias moduletest modtest
UserTag version attrAlias require modtest
UserTag version addAttr
-UserTag version Version $Revision: 1.9 $
+UserTag version Version $Revision: 1.10 $
UserTag version Routine <<EOR
sub {
return $::VERSION unless shift;
my $opt = shift;
- my $joiner = $opt->{joiner} || '<BR>';
+ my $joiner = $opt->{joiner} || '<br$Vend::Xtrailer>';
my @out;
my $done_something;
@@ -23,7 +23,7 @@
if($opt->{local_error}) {
my $fn = $Vend::Cfg->{ErrorFile};
- push @out, $Tag->page( "$::Variable->{UI_BASE}/do_view", $fn) . "$fn</A>";
+ push @out, $Tag->page("$::Variable->{UI_BASE}/do_view", $fn) . "$fn</a>";
$done_something = 1;
}
@@ -92,7 +92,7 @@
if($opt->{perl_config}) {
require Config;
- push @out, "<PRE>\n" . Config::myconfig() . "</PRE>";
+ push @out, "<pre>\n" . Config::myconfig() . "</pre>";
$done_something = 1;
}
@@ -128,76 +128,56 @@
if($Global::DBI and $DBI::VERSION) {
push @out, errmsg ('DBI enabled (v%s), available drivers:', $DBI::VERSION);
my $avail = join $joiner, DBI->available_drivers;
- push @out, "<BLOCKQUOTE>$avail</BLOCKQUOTE>";
+ push @out, "<blockquote>$avail</blockquote>";
}
}
if($opt->{modules}) {
- my %wanted = ( qw/
- Safe::Hole Safe::Hole
- Digest::MD5 Digest::MD5
- LWP::Simple LWP
- Tie::Watch Tie::Watch
- MIME::Base64 MIME::Base64
- URI::URL URI::URL
- Storable Storable
- Archive::Tar Archive::Tar
- Archive::Zip Archive::Zip
- Bundle::LWP Bundle::LWP
- Business::UPS Business::UPS
- Compress::Zlib Compress::Zlib
- Crypt::SSLeay Crypt::SSLeay
- DBI DBI
- Image::Size Image::Size
- MIME::Base64 MIME::Base64
- Spreadsheet::ParseExcel Spreadsheet::ParseExcel
- Spreadsheet::WriteExcel Spreadsheet::WriteExcel
- Tie::ShadowHash Tie::ShadowHash
- URI::URL URI::URL
-
- /);
- my %l_than = ();
- my %g_than = ();
+ my @wanted = (qw/
+ Archive::Tar
+ Archive::Zip
+ Bundle::LWP
+ Business::UPS
+ Compress::Zlib
+ Crypt::SSLeay
+ DBI
+ Digest::MD5
+ Image::Size
+ LWP::Simple
+ MIME::Base64
+ Safe::Hole
+ Set::Crontab
+ Spreadsheet::ParseExcel
+ Spreadsheet::WriteExcel
+ Storable
+ Tie::ShadowHash
+ Tie::Watch
+ URI::URL
+ /);
+ my %l_than;
+ my %g_than;
my %info = (
- 'Safe::Hole' => 'IMPORTANT: SQL and some tags will not work in embedded Perl.',
- 'Digest::MD5' => 'IMPORTANT: cache keys and other search-related functions will not work.',
- 'LWP::Simple' => 'External UPS lookup and other internet-related functions will not work.',
- 'Tie::Watch' => 'Minor: cannot set watch points in catalog.cfg.',
- 'MIME::Base64' => 'Minor: Internal HTTP server will not work.',
- 'URI::URL' => 'Minor: Internal HTTP server will not work.',
- 'Storable' => 'Session and search storage will be slower.',
- 'DBI' => q{Most people want to use SQL with Interchange, and this is a requirement. You will also need the appropriate DBD module, i.e. DBD::mysql to support MySQL.},
-
-'MIME::Base64' => q{Provides HTTP services for internal HTTP server and basic authentication.},
-
-'URI::URL' => q{Provides HTTP primitives for internal HTTP server.},
-
-'Bundle::LWP' => q{Certain parts of these modules (URI::URL and MIME::Base64) are required for Interchange's internal HTTP server. Also, Business::UPS, for calculating shipping, requires this.},
-
-'Business::UPS' => q{Enables lookup of shipping costs directly from www.ups.com. Requires Bundle::LWP.},
-
-'Image::Size' => q{Optional but recommended for [image ...] tag.},
-
-'Tie::ShadowHash' => q{Needed for pre-fork mode of Interchange, prevents permanent write of configuration.},
-
-'Spreadsheet::ParseExcel' => q{Allows upload of XLS spreadsheets for database import in the UI.},
-
-'Spreadsheet::WriteExcel' => q{Allows output of XLS spreadsheets for database export in the UI.},
-
-'Archive::Tar' => q{Only needed for supplementary UserTag definitions.},
-
-'Archive::Zip' => q{Only needed for supplementary UserTag definitions.},
-
-'Compress::Zlib' => q{Only needed for supplementary UserTag definitions.},
-
-'Crypt::SSLeay' => q{Payment interface links via HTTPS/SSL.},
-
-# 'SOAP::Lite' => q{Only needed when employing SOAP.},
-
-# 'Time::HiRes' => q{Needed for some Intranet functions.},
-
+ 'Archive::Tar' => q{Only needed for supplementary UserTag definitions.},
+ 'Archive::Zip' => q{Only needed for supplementary UserTag definitions.},
+ 'Bundle::LWP' => q{Certain parts of these modules (URI::URL and MIME::Base64) are required for Interchange's internal HTTP server. Also, Business::UPS, for calculating shipping, requires this.},
+ 'Business::UPS' => q{Enables lookup of shipping costs directly from www.ups.com. Requires Bundle::LWP.},
+ 'Compress::Zlib' => q{Only needed for supplementary UserTag definitions.},
+ 'Crypt::SSLeay' => q{Payment interface links via HTTPS/SSL.},
+ 'DBI' => q{Most people want to use SQL with Interchange, and this is a requirement. You will also need the appropriate DBD module, i.e. DBD::mysql to support MySQL.},
+ 'Digest::MD5' => q{IMPORTANT: cache keys and other search-related functions will not work.},
+ 'Image::Size' => q{Optional but recommended for [image ...] tag.},
+ 'LWP::Simple' => q{External UPS lookup and other internet-related functions will not work.},
+ 'MIME::Base64' => q{Provides HTTP services for internal HTTP server and basic authentication.},
+ 'Safe::Hole' => q{IMPORTANT: SQL and some tags will not work in embedded Perl.},
+ 'Set::Crontab' => q{Used by HouseKeepingCron task scheduler.},
+ 'Spreadsheet::ParseExcel' => q{Allows upload of XLS spreadsheets for database import in the UI.},
+ 'Spreadsheet::WriteExcel' => q{Allows output of XLS spreadsheets for database export in the UI.},
+ 'Storable' => q{Session and search storage will be slower.},
+ 'Tie::ShadowHash' => q{Needed for PreFork mode of Interchange, prevents permanent write of configuration.},
+ 'Tie::Watch' => q{Minor: cannot set watch points in catalog.cfg.},
+ 'URI::URL' => q{Provides HTTP primitives for internal HTTP server.},
);
- foreach my $name ( sort keys %wanted) {
+ foreach my $name (@wanted) {
no strict 'refs';
eval "require $name";
if($@) {
More information about the interchange-cvs
mailing list