Discussion :

[Bruni007]

Sous un environnement UNIX, j'utilise un script perl qui vérifie la disponibilité d'URL http et https à l'aide de :

require LWP::UserAgent;

Lorsque je veux vérifier la disponibilité d'URL https, avec de lancer mon script je défini la variable d'environnement LIBPATH ainsi :

LIBPATH='/opt/freeware/lib'

De cette façon, mon script perl sait où aller chercher les librairies ssl nécessaire pour évaluer un URL https. Tout va bien jusque là.


J'aimerais éviter d'avoir à définir la variable LIBPATH avant chaque exécution du script PERL, alors je me suis dit que je pourrais définir la variable d'environnement au début de mon script comme ceci :

$ENV{'LIBPATH'}='/opt/freeware/lib';

Mais mon script ne cesse de m'indiquer qu'il ne peut évaluer les URLs https. Comme si la variable d'environnement n'était pas pris en considération.... Y a-t-il quelque chose que je puisse faire pour que la variable soit prise en considération?? ou bien dois-je absolument la définir avant de lancer le script PERL ?

Merci pour votre aide!

[Jedai]

Le chargement de la librairie (ou non) se fait probablement à la compilation de LWP::UserAgent, donc il faut que tu affectes ta variable avant cette compilation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
BEGIN { $ENV{'LIBPATH'}='/opt/freeware/lib'; }
use LWP::UserAgent;

--
Jedaï

[Bruni007]

Ma variable d'environnement était déjà défini avant la compilation de LWP::UserAgent, j'ai tout de même essayé avec la syntaxe que tu as proposé et j'obtiens toujours le même problème...!

[Jedai]

Montre le code.

--
Jedaï

[Invité]

Salut,

quel est ton environnement Unix?

[Bruni007]

Je travaille sur AIX 5.3....
Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl
 
BEGIN { $ENV{'LIBPATH'}='/opt/freeware/lib'; }
use LWP::UserAgent;
 
$url=$ARGV[0];
 
my $Firefox = "Mozilla/5.0";
my $response;
my $ua = LWP::UserAgent->new;
$ua->agent($Firefox);
 
$response = $ua->get($url);
 
if ( $response->is_success) {
  print "SUCCESS\n";
  print $response->status_line, "\n";
}
else
{ print "NOT A SUCCESS\n";
  print $response->status_line, "\n";
}
fi

Malgré le fait que la variable soit défini au début du script, je dois absolument la définir avant de lancer mon script autrement j'obtiens le message "501 Protocol scheme 'https' is not supported"...

La variable LIBPATH permet à mon script de connaître l'emplacement des libraires SSL à utiliser pour évaluer les URLs https.


Vous aurez remarqué que l'URL est passé en paramètre...