File: ssh.pl

package info (click to toggle)
thp 0.4.6-9
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 260 kB
  • sloc: perl: 1,088; sh: 154; makefile: 56
file content (15 lines) | stat: -rw-r--r-- 351 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
sub ssh {
    my $textfin = '';
    $textfin = "Protocol mismatch.\n";
    
    print STDERR "$sshver\n\n";
    open(LOG, ">>$sesslog");
    while (my $commands = <STDIN>) {
        print LOG $commands;
        chomp $commands;
        $commands =~ s/\r//;
        @commands=split /\s+/,($commands);
   }
    print STDERR "$textfin";
    close LOG;
}