From: Mike Taylor Date: Tue, 20 Jun 2006 12:36:11 +0000 (+0000) Subject: Rename Net::Z3950::IRSpy to ZOOM::IRSpy X-Git-Tag: CPAN-v1.02~54^2~1162 X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=f4ad227f469be5cf0d848e1e7e99f7620abcf4a9 Rename Net::Z3950::IRSpy to ZOOM::IRSpy --- diff --git a/Changes b/Changes index cfd79e2..ad001cd 100644 --- a/Changes +++ b/Changes @@ -1,8 +1,9 @@ -$Id: Changes,v 1.1 2006-04-13 14:53:17 mike Exp $ +$Id: Changes,v 1.2 2006-06-20 12:36:11 mike Exp $ -Revision history for Perl extension Net::Z3950::IRSpy. +Revision history for Perl extension ZOOM::IRSpy. 0.02 [IN PROGRESS] + - Renamed from Net::Z3950::IRSpy to ZOOM::IRSpy 0.01 Wed Apr 5 15:53:47 2006 - original version; created by h2xs 1.23 with options diff --git a/MANIFEST b/MANIFEST index 09ea41f..9b43dac 100644 --- a/MANIFEST +++ b/MANIFEST @@ -5,8 +5,8 @@ META.yml Module meta-data (added by MakeMaker) Makefile.PL README irspy.pl -lib/Net/Z3950/IRSpy.pm -lib/Net/Z3950/IRSpy/Record.pm +lib/ZOOM/IRSpy.pm +lib/ZOOM/IRSpy/Record.pm lib/ZOOM/Pod.pm t/Net-Z3950-IRSpy.t test-pod.pl diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP index 8e1273c..46afb06 100644 --- a/MANIFEST.SKIP +++ b/MANIFEST.SKIP @@ -2,10 +2,8 @@ CVS archive lib/CVS -lib/Net/CVS -lib/Net/Z3950/CVS -lib/Net/Z3950/IRSpy/CVS lib/ZOOM/CVS +lib/ZOOM/IRSpy/CVS t/CVS zebra/.cvsignore zebra/CVS diff --git a/META.yml b/META.yml index a0938e6..5ae737c 100644 --- a/META.yml +++ b/META.yml @@ -1,10 +1,10 @@ -# $Id: META.yml,v 1.1 2006-04-13 14:53:17 mike Exp $ +# $Id: META.yml,v 1.2 2006-06-20 12:36:11 mike Exp $ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Net-Z3950-IRSpy version: 0.01 -version_from: lib/Net/Z3950/IRSpy.pm +version_from: lib/ZOOM/IRSpy.pm installdirs: site requires: diff --git a/Makefile.PL b/Makefile.PL index dd79c1e..6a8e0bc 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,16 +1,16 @@ -# $Id: Makefile.PL,v 1.1 2006-04-13 14:53:17 mike Exp $ +# $Id: Makefile.PL,v 1.2 2006-06-20 12:36:11 mike Exp $ use 5.008; use ExtUtils::MakeMaker; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( - NAME => 'Net::Z3950::IRSpy', - VERSION_FROM => 'lib/Net/Z3950/IRSpy.pm', # finds $VERSION + NAME => 'ZOOM::IRSpy', + VERSION_FROM => 'lib/ZOOM/IRSpy.pm', # finds $VERSION PREREQ_PM => { Net::Z3950::ZOOM => 1.04, }, ($] >= 5.005 ? ## Add these new keywords supported since 5.005 - (ABSTRACT_FROM => 'lib/Net/Z3950/IRSpy.pm', # retrieve abstract from module + (ABSTRACT_FROM => 'lib/ZOOM/IRSpy.pm', # retrieve abstract from module AUTHOR => 'Mike Taylor ') : ()), ); diff --git a/irspy.pl b/irspy.pl index 5628a3a..5ef7739 100755 --- a/irspy.pl +++ b/irspy.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: irspy.pl,v 1.4 2006-06-07 17:04:52 mike Exp $ +# $Id: irspy.pl,v 1.5 2006-06-20 12:36:11 mike Exp $ # # Run like this: # YAZ_LOG=irspy perl -I lib irspy.pl -t "bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager" localhost:1313/IR-Explain---1 @@ -8,7 +8,7 @@ use strict; use warnings; use Getopt::Std; -use Net::Z3950::IRSpy; +use ZOOM::IRSpy; my %opts; if (!getopts('t:au', \%opts) || @ARGV != 1) { @@ -27,7 +27,7 @@ if (!defined $targetList && !$opts{a}) { exit 2; } -my $spy = new Net::Z3950::IRSpy($dbname); +my $spy = new ZOOM::IRSpy($dbname); $spy->targets($targetList) if defined $targetList; $spy->initialise(); $spy->check(); diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 2e99673..8988a5d 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,11 +1,11 @@ -# $Id: IRSpy.pm,v 1.1 2006-06-20 12:27:12 mike Exp $ +# $Id: IRSpy.pm,v 1.2 2006-06-20 12:36:13 mike Exp $ -package Net::Z3950::IRSpy; +package ZOOM::IRSpy; use 5.008; use strict; use warnings; -use Net::Z3950::IRSpy::Record; +use ZOOM::IRSpy::Record; use ZOOM::Pod; our @ISA = qw(); @@ -13,12 +13,12 @@ our $VERSION = '0.02'; =head1 NAME -Net::Z3950::IRSpy - Perl extension for discovering and analysing IR services +ZOOM::IRSpy - Perl extension for discovering and analysing IR services =head1 SYNOPSIS - use Net::Z3950::IRSpy; - $spy = new Net::Z3950::IRSpy("target/string/for/irspy/database"); + use ZOOM::IRSpy; + $spy = new ZOOM::IRSpy("target/string/for/irspy/database"); print $spy->report_status(); =head1 DESCRIPTION @@ -131,14 +131,14 @@ sub initialise { my $target = _render_record($rs, $i-1, "id"); my $zeerex = _render_record($rs, $i-1, "zeerex"); $target2record{lc($target)} = - new Net::Z3950::IRSpy::Record($target, $zeerex); + new ZOOM::IRSpy::Record($target, $zeerex); } foreach my $target (keys %target2record) { my $record = $target2record{$target}; if (!defined $record) { $this->log("irspy", "new record for '$target'"); - $target2record{$target} = new Net::Z3950::IRSpy::Record($target); + $target2record{$target} = new ZOOM::IRSpy::Record($target); } else { $this->log("irspy", "existing record for '$target' $record"); } @@ -233,7 +233,7 @@ sub _render_record { =head1 SEE ALSO -Net::Z3950::IRSpy::Record +ZOOM::IRSpy::Record The ZOOM-Perl module, http://search.cpan.org/~mirk/Net-Z3950-ZOOM/ diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm index db1b865..bded029 100644 --- a/lib/ZOOM/IRSpy/Record.pm +++ b/lib/ZOOM/IRSpy/Record.pm @@ -1,6 +1,6 @@ -# $Id: Record.pm,v 1.1 2006-06-20 12:28:26 mike Exp $ +# $Id: Record.pm,v 1.2 2006-06-20 12:36:14 mike Exp $ -package Net::Z3950::IRSpy::Record; +package ZOOM::IRSpy::Record; use 5.008; use strict; @@ -8,7 +8,7 @@ use warnings; =head1 NAME -Net::Z3950::IRSpy::Record - record describing a target for IRSpy +ZOOM::IRSpy::Record - record describing a target for IRSpy =head1 SYNOPSIS @@ -34,7 +34,7 @@ sub new { =head1 SEE ALSO -Net::Z3950::IRSpy +ZOOM::IRSpy =head1 AUTHOR diff --git a/t/Net-Z3950-IRSpy.t b/t/Net-Z3950-IRSpy.t index b1e3c01..9f5448a 100644 --- a/t/Net-Z3950-IRSpy.t +++ b/t/Net-Z3950-IRSpy.t @@ -1,8 +1,8 @@ -# $Id: Net-Z3950-IRSpy.t,v 1.2 2006-05-12 10:43:14 mike Exp $ +# $Id: Net-Z3950-IRSpy.t,v 1.3 2006-06-20 12:36:16 mike Exp $ # change 'tests => 1' to 'tests => last_test_to_print'; use Test::More tests => 1; -BEGIN { use_ok('Net::Z3950::IRSpy') }; +BEGIN { use_ok('ZOOM::IRSpy') }; # Insert your test code below, the Test::More module is use()ed here so read # its man page ( perldoc Test::More ) for help writing this test script.