[ic] Ic configuration

Mon Mar 25 15:01:00 2002

> Hello everyone, I have a problem of configuration of my
> server interchanges
> that I do not know any more how to solve the problem. After several
> attempts at launching of the script of configuration, I
> obtain each time an
> error message. Ironically, version 4.5 of interchange
> functioned very well
> with my ISP Since I decided to migrate towards version 4.7,
> there is
> nothing which functions. That made of the months and the
> months that I try
> to make functional my IC but without success. If somebody
> to help me well,
> I would be really grateful to him because I start to be
> discouraged. PS:
> the error message that I obtain is the following:
>
> secannet@walden interchange-4.8.3]$ ./configure
> Found Perl 5.00503 as /usr/bin/perl
> If you get a CPAN error, rerun the configuration and it
> should go away.
> opendir (./../..): Permission denied at
> /usr/lib/perl5/5.00503/FindBin.pm
> line 143
> Can't write uid file: Permission denied
> make: No targets specified and no makefile found. Stop.
> make: No rule to make target `test'. Stop.
> Thank you in advance.

Interesting.   I thought I was the only person who had this problem.
Luckily I saved my FindBin.pm file.   If I recall, this has something
to do with the csd and abs_path calls.   It's been a while so I'm not
sure.  Anyway... Here is a copy of my modifed FindBin.pm file.  If you
are on a shared hosting service you will need to adjust your perl path
so that it finds this  FindBin.pm file before any otheres.  If you
don't know how to install perl modules without root access and adjust
your perl path you can find that information in the interchange docs
somewhere or on the web.  (search for PERL5LIB)

Hope this helps

Marty

Btw...what type of OS are you using?  I'll bet Debian 2.2.19 or
similar.

# FindBin.pm
#
# Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights
reserved.
# This program is free software; you can redistribute it and/or modify
it
# under the same terms as Perl itself.

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

 use FindBin;
 use lib "$FindBin::Bin/../lib";

 or

 use FindBin qw($Bin);
 use lib "$Bin/../lib";

=head1 DESCRIPTION

Locates the full path to the script bin directory to allow the use
of paths relative to the bin directory.

This allows a user to setup a directory tree for some software with
directories E<lt>rootE<gt>/bin and E<lt>rootE<gt>/lib and then the
above example will allow
the use of modules in the lib directory without knowing where the
software
tree is installed.

If perl is invoked using the B<-e> option or the perl script is read
from
C<STDIN> then FindBin sets both C<$Bin> and C<$RealBin> to the current
directory.

=head1 EXPORTABLE VARIABLES

 $Bin         - path to bin directory from where script was invoked
 $Script      - basename of script from which perl was invoked
 $RealBin     - $Bin with all links resolved
 $RealScript  - $Script with all links resolved

=head1 KNOWN BUGS

if perl is invoked as

   perl filename

and I<filename> does not have executable rights and a program called
I<filename>
exists in the users C<$ENV{PATH}> which satisfies both B<-x> and B<-T>
then FindBin
assumes that it was invoked via the C<$ENV{PATH}>.

Workaround is to invoke perl as

 perl ./filename

=head1 AUTHORS

FindBin is supported as part of the core perl distribution. Please
send bug
reports to E<lt>F<perlbug@perl.org>E<gt> using the perlbug program
included with perl.

Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
Nick Ing-Simmons E<lt>F<nik@tiuk.ti.com>E<gt>

=head1 COPYRIGHT

=cut

package FindBin;
use Carp;
require 5.000;
require Exporter;
use Cwd qw(getcwd abs_path);
use Config;
use File::Basename;
use File::Spec;

@EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir);
%EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir
$RealDir)]);
@ISA = qw(Exporter);

$VERSION = $VERSION = "1.42";

BEGIN
{
 *Dir = \$Bin;
 *RealDir = \$RealBin;

 if($0 eq '-e' || $0 eq '-')
  {
   # perl invoked with -e or script is on C<STDIN>

   $Script = $RealScript = $0;
   $Bin    = $RealBin    = getcwd();
  }
 else
  {
   my $script = $0;

   if ($^O eq 'VMS')
    {
     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*\])(.*)/;
     ($RealBin,$RealScript) = ($Bin,$Script);
    }
   else
    {
     my $IsWin32 = $^O eq 'MSWin32';
     unless(($script =~ m#/# || ($IsWin32 && $script =~ m#\\#))
            && -f $script)
      {
       my $dir;
       foreach $dir (File::Spec->path)
        {
        my $scr = File::Spec->catfile($dir, $script);
        if(-r $scr && (!$IsWin32 || -x _))
         {
          $script = $scr;

          if (-f $0)
           {
            # $script has been found via PATH but perl could have
            # been invoked as 'perl file'. Do a dumb check to see
            # if $script is a perl program, if not then $script = $0
            #
            # well we actually only check that it is an ASCII file
            # we know its executable so it is probably a script
            # of some sort.

            $script = $0 unless(-T $script);
           }
          last;
         }
       }
     }

     croak("Cannot find current script '$0'") unless(-f $script);

     # Ensure $script contains the complete path incase we C<chdir>

     # These lines added by Marty on 12/1/00 cuz FindBin.pm seems to
bomb
     # when it uses a csd() funtion
     $ppwd=`pwd`;
     chomp($ppwd);

     $script = File::Spec->catfile($ppwd, $script)
       unless File::Spec->file_name_is_absolute($script);

     ($Script,$Bin) = fileparse($script);

     # Resolve $script if it is a link
     while(1)
      {
       my $linktext = readlink($script);

       ($RealScript,$RealBin) = fileparse($script);
       last unless defined $linktext;

       $script = (File::Spec->file_name_is_absolute($linktext))
                  ? $linktext
                  : File::Spec->catfile($RealBin, $linktext);
      }

     # The following lines commented out by Marty on 12/1/00.
     # Get absolute paths to directories
#     $Bin     = abs_path($Bin)     if($Bin);
#     $RealBin = abs_path($RealBin) if($RealBin);
    }
  }
}

1; # Keep require happy