SSH限制多人登录

easyboy

怎么让第一个登录后 第2个SSH用户登录的时候第一个退出？可RMB求代码

这个代码是第一个登录后第2个无法登录 有时候用户卡死在里面就麻烦了

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. sub main
   
4. {
   
5.     my @lines = `ps -eo user,pid,etime,cmd | grep sshd`;
   
6.     my $users;
   
7.     for my $line (@lines) {
   
8.         if(my ($user, $pid, $etime, $cmd) = $line =~ /^([^\s]+)\s+(\d+)\s+([^\s]+)\s+(sshd:.+)$/) {
   
9.             next if($user eq 'root');
   
10.             my $proc = {'pid', $pid, 'etime', $etime, 'cmd', $cmd};
    
11.             push @{$users->{$user}}, $proc;
    
12.         }
    
13.     }
    
14.     for my $key(keys(%$users)) {
    
15.          my @sshs = sort {
    
16.             my ($lb, $la) = (length($b->{'etime'}), length($a->{'etime'}));
    
17.             if($lb == $la) {
    
18.                 $b->{'etime'} cmp $a->{'etime'};
    
19.             } else {
    
20.                 $lb <=> $la;
    
21.             }
    
22.         } @{$users->{$key}};
    
23.         for (1 .. 2) {
    
24.                 shift @sshs;
    
25.         };
    
26.         for my $ssh (@sshs) {
    
27.             kill 9, $ssh->{'pid'};
    
28.         }
    
29.     }
    
30. }
    
31. while(1) {
    
32.     main;
    
33.     sleep 3;
    
34. }

复制代码

cookie

这样的SSH有什么用？

easyboy

翻XX用的

cookie

原帖由 easyboy 于 2010-12-13 01:04 发表
翻XX用的

那要是每秒有1个人登陆怎么办？

easyboy

针对帐号的啊

信仰

这样的SSH有什么用？

Poison

free ssh

greensnow

只需把
for (1 .. 2) {
        shift @sshs;
};
改成pop @sshs;

yaoe

perl不懂

lxfy

原帖由 greensnow 于 2010-12-13 10:15 发表
只需把
for (1 .. 2) {
        shift @sshs;
};
改成pop @sshs;

楼主这段代码是用放在哪儿的?