Commande Rsh pour perl
clement.
Messages postés
304
Statut
Membre
-
clement. Messages postés 304 Statut Membre -
clement. Messages postés 304 Statut Membre -
Bonjour,
Je travaille avec un script CGI en langage Perl
Le but du jeu est de retranscrire des licences dans un tableau sous une page intranet.
J'ai 2 Pcs, l'un sous Linux (le mien) qui gere l'intranet. et le second qui est un serveur de licence sous Unix.
Nous avons changés de serveur intranet et donc le programme qui été en place a du migrer.
Note : Sur l'ancien intranet le programme CGI marche tres bien.
Et donc sur le nouveau cela ne marche pas malheureusement.
J'ai ceci :
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
#
# *** Déclaration des variables local
#
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Sortie du test</title>\n";
print "</head><body>\n";
open (FILE, "rsh adresse_serveur /opt/lum/ls/os/hpux/bin/i4blt -s | awk -f licence_multi.awk |");
my @sortie = <FILE>;
close FILE;
my @f;
foreach my $f(@sortie)
{
my @g = split(' ',$f);
print <<EOF;
<div> </div>
<table align="center" width="80%" border="1" cellpadding="1" cellspacing="1">
<tr>
<th bgcolor="#CCCCCC" class="Style2 Style6" scope="col">Nom</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Version</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Type</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Nombre total de licences</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Nombre de Licences utilisées</th>
</tr>
<tr>
<td><div align="center" class="Style3">$g[0]</div></td>
<td><div align="center" class="Style3">$g[1]</div></td>
<td><div align="center" class="Style3">$g[2]</div></td>
<td><div align="center" class="Style3">$g[3]</div></td>
<td><div align="center" class="Style3">$g[4]</div></td>
</tr>
</table>
EOF
ce qui s'affiche en sortie est juste le haut du tableau avec "nom, version ..etc" mais pas ceux que je lui demande.
J'ai d'abord penser que la fonction rsh de marchait pas.. mais en faisant :
rsh nom_srv -l root date
j'arrive a avoir la date sur le serveur... donc le fonction marche... alors pourquoi elle n'afficherait pas ce qui lui ai demandé ?
est ce qu'il y a une erreur dans le programme ?
En parlant d'erreur : J'ai une erreur dans le erreur.log : remsh : login incorrect.
Pourtant sur les 2 pcs se sont les même ( root + mdp)
les fichiers Hosts des deux machines sont bien renseignés...
j'avoue que je sèche bcp maintenant et que ca commence a me prendre la tête lol...
si quelqu'un a une idée je suis tout ouïe
Merci bcp !
Je travaille avec un script CGI en langage Perl
Le but du jeu est de retranscrire des licences dans un tableau sous une page intranet.
J'ai 2 Pcs, l'un sous Linux (le mien) qui gere l'intranet. et le second qui est un serveur de licence sous Unix.
Nous avons changés de serveur intranet et donc le programme qui été en place a du migrer.
Note : Sur l'ancien intranet le programme CGI marche tres bien.
Et donc sur le nouveau cela ne marche pas malheureusement.
J'ai ceci :
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
#
# *** Déclaration des variables local
#
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Sortie du test</title>\n";
print "</head><body>\n";
open (FILE, "rsh adresse_serveur /opt/lum/ls/os/hpux/bin/i4blt -s | awk -f licence_multi.awk |");
my @sortie = <FILE>;
close FILE;
my @f;
foreach my $f(@sortie)
{
my @g = split(' ',$f);
print <<EOF;
<div> </div>
<table align="center" width="80%" border="1" cellpadding="1" cellspacing="1">
<tr>
<th bgcolor="#CCCCCC" class="Style2 Style6" scope="col">Nom</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Version</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Type</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Nombre total de licences</th>
<th bgcolor="#CCCCCC" class="Style2" scope="col">Nombre de Licences utilisées</th>
</tr>
<tr>
<td><div align="center" class="Style3">$g[0]</div></td>
<td><div align="center" class="Style3">$g[1]</div></td>
<td><div align="center" class="Style3">$g[2]</div></td>
<td><div align="center" class="Style3">$g[3]</div></td>
<td><div align="center" class="Style3">$g[4]</div></td>
</tr>
</table>
EOF
ce qui s'affiche en sortie est juste le haut du tableau avec "nom, version ..etc" mais pas ceux que je lui demande.
J'ai d'abord penser que la fonction rsh de marchait pas.. mais en faisant :
rsh nom_srv -l root date
j'arrive a avoir la date sur le serveur... donc le fonction marche... alors pourquoi elle n'afficherait pas ce qui lui ai demandé ?
est ce qu'il y a une erreur dans le programme ?
En parlant d'erreur : J'ai une erreur dans le erreur.log : remsh : login incorrect.
Pourtant sur les 2 pcs se sont les même ( root + mdp)
les fichiers Hosts des deux machines sont bien renseignés...
j'avoue que je sèche bcp maintenant et que ca commence a me prendre la tête lol...
si quelqu'un a une idée je suis tout ouïe
Merci bcp !
A voir également:
- Commande Rsh pour perl
- Invite de commande - Guide
- Commande terminal mac - Guide
- Diskpart commande - Guide
- Commande dism - Guide
- Commande scannow - Guide