bugaga0112358

В общем, решил запилить решение самостоятельно.

Наваял скриптик, позволяющий получить логин VPN-пользователя по названию интерфейса, который для него поднят.

#!/bin/bash
# $1 - interface name
# Task: get username by interface name
LOG=$(last | grep $1 | grep still | cut -f 1 -d ' ')
LOGIN=$(grep $LOG /etc/ppp/chap-secrets | cut -f 1 -d ' ')
LOGIN=${LOGIN//[\"]/}
echo $LOGIN

А далее немного модифицировал файл Webmin'а /usr/share/webmin/pptp-server/list_conns.cgi, добавив в цикл вывода таблицы подключений несколько своих строчек.

foreach $c (@conns) {
                # bugaga0112358 - Prepare command
                $cmd = 'listclient '.$c->[3];
                # bugaga0112358 - Execute command
                $c->[7] = `$cmd`;
                local @cols;
                push(@cols, "<a href='disc.cgi?pid=$c->[0]'>".
                            ($c->[3] ? "<tt>$c->[3]</tt>"
                                     : $text{'conns_unknown'})."</a>");
                push(@cols, $c->[2]);
                push(@cols, $c->[6] || $text{'conns_unknown'});
                push(@cols, $c->[4] ? "<tt>$c->[4]</tt>"
                                     : $text{'conns_unknown'});
                push(@cols, $c->[5] ? "<tt>$c->[5]</tt>"
                                     : $text{'conns_unknown'});
                push(@cols, $c->[7] ? "<tt>$c->[7]</tt>"
                                     : $text{'conns_unknown'});
                print &ui_columns_row(\@cols);
                }
        print &ui_columns_end();
        }

Результат удовлетворил начальство, а у меня остался небольшой осадок. Все-таки хочется узнать, как же оно там на самом деле должно работать =)