[interchange-cvs] interchange - heins modified code/UI_Tag/version.coretag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Fri Sep 27 01:20:01 2002
User: heins
Date: 2002-09-27 05:19:09 GMT
Modified: code/UI_Tag version.coretag
Log:
* Add some more modules to the checks.
* Remove variable suicide bug that can cause a module name and version
to be reported incorrectly.
Revision Changes Path
1.4 +64 -14 interchange/code/UI_Tag/version.coretag
rev 1.4, prev_rev 1.3
Index: version.coretag
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/code/UI_Tag/version.coretag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- version.coretag 27 Jun 2002 04:59:50 -0000 1.3
+++ version.coretag 27 Sep 2002 05:19:09 -0000 1.4
@@ -129,14 +129,30 @@
=20
if($opt->{modules}) {
my %wanted =3D ( qw/
- Safe::Hole Safe::Hole
- SQL::Statement SQL::Statement
- Digest::MD5 Digest::MD5
- LWP::Simple LWP
- Tie::Watch Tie::Watch=20=20=20=20=20=20=20
- MIME::Base64 MIME::Base64
- URI::URL URI::URL=20
- Storable Storable
+ Safe::Hole Safe::Hole
+ SQL::Statement SQL::Statement
+ Digest::MD5 Digest::MD5
+ LWP::Simple LWP
+ Tie::Watch Tie::Watch=20=20=20=20=20=20=20
+ MIME::Base64 MIME::Base64
+ URI::URL URI::URL=20
+ 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
+ Term::ReadKey Term::ReadKey
+ Term::ReadLine::Perl Term::ReadLine::Perl
+ Tie::ShadowHash Tie::ShadowHash
+ URI::URL URI::URL
+
/);
my %info =3D (
'Safe::Hole' =3D> 'IMPORTANT: SQL and some tags will not work in em=
bedded Perl.',
@@ -147,18 +163,52 @@
'MIME::Base64' =3D> 'Minor: Internal HTTP server will not work.',
'URI::URL' =3D> 'Minor: Internal HTTP server will not work.',=20
'Storable' =3D> 'Session and search storage will be slower.',
+ 'DBI' =3D> 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::mys=
ql to support MySQL.},
+
+'Term::ReadKey' =3D> q{Helps Term::ReadLine::Perl generate completions and=
editing for makecat and other interactive scripts from command line.},
+
+'Term::ReadLine::Perl' =3D> q{Gives you filename completion and command hi=
story in the makecat program. Not used otherwise.},
+
+'MIME::Base64' =3D> q{Provides HTTP services for internal HTTP server and =
basic authentication.},
+
+'URI::URL' =3D> q{Provides HTTP primitives for internal HTTP server.},
+
+'Bundle::LWP' =3D> q{Certain parts of these modules (URI::URL and MIME::Ba=
se64) are required for Interchange's internal HTTP server. Also, Business::=
UPS, for calculating shipping, requires this.},
+
+'Business::UPS' =3D> q{Enables lookup of shipping costs directly from www.=
ups.com. Requires Bundle::LWP.},
+
+'Image::Size' =3D> q{Optional but recommended for [image ...] tag.},
+
+'Tie::ShadowHash' =3D> q{Needed for pre-fork mode of Interchange, prevents=
permanent write of configuration.},
+
+'Spreadsheet::ParseExcel' =3D> q{Allows upload of XLS spreadsheets for dat=
abase import in the UI.},
+
+'Spreadsheet::WriteExcel' =3D> q{Allows output of XLS spreadsheets for dat=
abase export in the UI.},
+
+'Archive::Tar' =3D> q{Only needed for supplementary UserTag definitions.},
+
+'Archive::Zip' =3D> q{Only needed for supplementary UserTag definitions.},
+
+'Compress::Zlib' =3D> q{Only needed for supplementary UserTag definitions.=
},
+
+'Crypt::SSLeay' =3D> q{Payment interface links via HTTPS/SSL.},
+
+# 'SOAP::Lite' =3D> q{Only needed when employing SOAP.},
+
+# 'Time::HiRes' =3D> q{Needed for some Intranet functions.},
+
);
- for( sort keys %wanted) {
- eval "require $_";
+ foreach my $name ( sort keys %wanted) {
+ eval "require $name";
if($@) {
- my $info =3D errmsg($info{$_} || "May affect program operation.");
- push @out, "$_ " . errmsg('not found') . ". $info"
+ my $info =3D errmsg($info{$name} || "May affect program operation.");
+ push @out, "$name " . errmsg('not found') . ". $info"
}
else {
no strict 'refs';
- my $ver =3D ${"$_" . "::VERSION"};
+ my $ver =3D ${"$name" . "::VERSION"};
$ver =3D $ver ? "v$ver" : 'no version info';
- push @out, "$_ " . errmsg('found') . " ($ver).";
+ push @out, "$name " . errmsg('found') . " ($ver).";
}
}
}