bindings/perl/Makefile.PL: Search for the header file and give up if it cannot be...

diff --git a/bindings/perl/Changes b/bindings/perl/Changes
index 974a189..ea4a612 100644 (file)
--- a/bindings/perl/Changes
+++ b/bindings/perl/Changes
@@ -1,8 +1,15 @@
 Revision history for Perl extension Net::Oping.
 
+1.01  ...
+       - Have `Makefile.PL' exit if the header file <oping.h> cannot be found
+         _before_ a Makefile is generated. This is done because
+         `ExtUtils::MakeMaker' doesn't check whether libraries exist and this
+         seems to be the standard way of dealing with this. A (hopefully)
+         informative message is written to STDERR in this case.
+
 1.00  Sat Jan 26 13:52:11 2008
        - The module has been renamed from `Oping' to `Net::Oping'.
-       - The XS code has been simplyfied and a high-level interface has been
+       - The XS code has been simplified and a high-level interface has been
          created in Perl.
 
 0.01  Wed Oct 24 01:32:19 2007

diff --git a/bindings/perl/Makefile.PL b/bindings/perl/Makefile.PL
index 4e375a5..f2ddf0a 100644 (file)
--- a/bindings/perl/Makefile.PL
+++ b/bindings/perl/Makefile.PL
@@ -1,6 +1,57 @@
 use 5.008007;
 use ExtUtils::MakeMaker;
 
+my @OPING_PREFIX = (qw(/opt/oping /usr /usr/local));
+my $OPING_PREFIX;
+
+for (my $i = 0; $i < @ARGV; $i++)
+{
+       if ($ARGV[$i] =~ m#^OPING_PREFIX=(.*[^/])#)
+       {
+               unshift (@OPING_PREFIX, $1);
+               splice (@ARGV, $i, 1);
+               $i--;
+       }
+}
+
+for (my $i = 0; $i < @OPING_PREFIX; $i++)
+{
+       if (!-e $OPING_PREFIX[$i] . '/include/oping.h')
+       {
+               next;
+       }
+
+       $OPING_PREFIX = $OPING_PREFIX[$i];
+       print "Found <oping.h> in $OPING_PREFIX/include\n";
+       last;
+}
+
+if (!$OPING_PREFIX)
+{
+       my $search_path = join (', ', @OPING_PREFIX);
+       print STDERR <<EOF;
+******************************************************************************
+* ERROR: COULD NOT FIND THE NEEDED HEADER FILE <oping.h>!                    *
+******************************************************************************
+The <oping.h> header file could not be found in the usual places. The prefix
+paths searched right now are:
+  $search_path
+
+Please rerun Makefile.PL giving the prefix to the oping library using the
+`OPING_PREFIX' argument. If you, for example, had installed the oping library
+to /tmp/oping, the header file would be at /tmp/oping/include/oping.h; you'd
+then need to run the Makefile.PL as follows:
+  perl Makefile.PL OPING_PREFIX=/tmp/oping
+
+As you can see, the argument passed via `OPING_PREFIX' must be the same
+directory you passed to the liboping configure script using the `--prefix'
+argument.
+
+No Makefile has been created.
+EOF
+       exit (0);
+}
+
 WriteMakefile(
     NAME              => 'Net::Oping',
     VERSION_FROM      => 'lib/Net/Oping.pm',
@@ -9,7 +60,7 @@ WriteMakefile(
      ? (ABSTRACT_FROM => 'lib/Net/Oping.pm',
         AUTHOR        => 'Florian Forster <octo@verplant.org>')
      : ()),
-    LIBS              => ['-loping', '-L/opt/oping/lib/ -loping'],
+    LIBS              => ["-L$OPING_PREFIX/lib -loping"],
     DEFINE            => '',
-    INC               => '-I/opt/oping/include/'
+    INC               => "-I$OPING_PREFIX/include"
 );