Rename Net::Z3950::IRSpy to ZOOM::IRSpy

diff --git a/Changes b/Changes
index cfd79e2..ad001cd 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 <mike@indexdata.com>') : ()),
 );

diff --git a/irspy.pl b/irspy.pl
index 5628a3a..5ef7739 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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.