Discussion :

[Arioch]

Bonjour la compagnie,

ça faisait un certain temps que je n'étais plus venu ici

On me demande au taf de concevoir un script Perl/Tk permettant de dialoguer avec une base de données stockée sur un serveur distant tournant sur AIX.

Le script devra tourner sous Windows et sur une version 5.6.nnn de Perl.

-------------------------------------------------------------------------

Sur un programme similaire, un collègue a utilisé autrefois le package Telnet.pm mais le soucis, c'est qu'on a souvent des problèmes pour utiliser correctement le package en question. La dernière bidouille, c'est carrément le package Telnet.pm qui a été modifié par le collègue pour qu'il marche correctement après un changement de serveur UNIX. Bonjour le portage !

Je me demandais si, en dehors du package Telnet.pm, il n'en existait pas un autre qui me permettrait de dialoguer depuis Windows avec le serveur AIX du boulot.

Le but final est, via le script :

- de faire des appels system vers la base de données sur AIX pour l'interroger et en extraire des données
- récupérer via FTP les données retournées dans un fichier

Quelqu'un a une idée ?

[Jedai]

Y a pas moyen plutôt d'accéder directement au serveur de base de donnée ?
Sinon, SSH éventuellement.

--
Jedaï

[Arioch]

Y a pas moyen plutôt d'accéder directement au serveur de base de donnée ?
Sinon, SSH éventuellement.

--
Jedaï

Pas moyen d'accéder au serveur de la bdd malheureusement. Je n'ai pas de module existant en Perl pour dialoguer avec elle aussi facilement qu'avec Oracle ou MySql.



Du coup, même les scripts Perl sous Unix procèdent par des appels system à la BDD en lui donnant en entrée un fichier contenant la ou les questions à poser.

ET là, je suis coincé avec le fait que mon script va tourner sous Windows.

Je vais regarder de plus près le module SSH.

[djibril]

j'avais fait une procédure permettant de lancer des commandes system depuis windows vers linux (via ssh) en utilisant un module.
Mais vu ta version de perl, je sais pas si ça passera .

[Arioch]

j'avais fait une procédure permettant de lancer des commandes system depuis windows vers linux (via ssh) en utilisant un module.
Mais vu ta version de perl, je sais pas si ça passera .

Oui, nous avons rencontré bon nombre de problèmes sur nos PC sous XP avec la version 5.8.3 de Perl et nous avons tous préféré migrer vers une version antérieure dont nous étions sûrs qu'elle fonctionnerait avec tous nos scripts, la version 5.6.1.

Quel est le nom de ton module STP, ta procédure m'intéresse car je sens le casse-tête venir, gros comme une maison

[djibril]

Le module est le suivant Net::SSH2

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
my %DataSSH = (
  host     => "IP serveur ou Host serveur",
  login    => "login",
  password => "xxxxxx",
  cmd      => ["perl /home/toto/test.pl", "ls /usr"],
  verbose  => 1, # ou 0
);
 
CommandSSH( \%DataSSH);
 
#==================================================================
# But  : Connection SSH + commandes
# Args : 
# Retourne : rien
# Besoin   : modules Net::SSH2      sous win
#                    Net::SSH::Perl sous linux
#=================================================================
sub CommandSSH {
  unless( scalar(@_) == 1) {
     my $usage = <<'FIN_USAGE';
     Usage: 
     my %DataSSH = (
       host     => "IP serveur ou Host serveur",
       login    => "login",
       password => "xxxxxx",
       cmd      => ["perl /home/toto/test.pl", "ls /usr"],
       verbose  => 1, # ou 0
     );
     CommandSSH( \%DataSSH);
 
FIN_USAGE
     die($usage);
  }  
  my ( $RefDataConnection ) = @_;
 
  # parameters
  my ($host, $login, $password, $Refcmd, $Verbose) = ( 
    $RefDataConnection->{host},
    $RefDataConnection->{login},
    $RefDataConnection->{password},
    $RefDataConnection->{cmd},
    $RefDataConnection->{verbose},
  );
 
  my $OS = $^O;
  if ( defined $Verbose and $Verbose == 1 ) {
    $Verbose = 1;
  }
  else {
    $Verbose = 0;
  }
 
  # Linux
  if ( $OS eq "linux" ) {
    # A faire
  }
  # Windows
  elsif ( $OS =~ /^mswin32$/i ) {
    require Net::SSH2;
 
    my $ssh2 = Net::SSH2->new();
 
    $ssh2->connect($host);
 
    my ( $code, $error_name, $error_string ) = $ssh2->error();
    if ( $code ) {
      print "[WARNING] Unable to connect to host : $host\n\n";
       return;
    }
 
    unless ( $ssh2->auth_password($login, $password) ) {
      $ssh2->disconnect();
      print "[WARNING] Unable to login.\nCheck your login ($login) or your password\n\n";
      return;
    }
 
    foreach my $cmd ( @{$Refcmd} ) { 
      if ( $Verbose == 1 ) {
        print " - $cmd\n";
      }
      my $channel = $ssh2->channel();
      $channel->blocking(1);
      $channel->exec($cmd);
      while( $channel->read(my $buffer, 1024) ) {
        if ( $Verbose == 1 ) {
          print $buffer;
        }
      }
      $channel->close;
    }
  }
 
  return;
}