уууу..вот это юбер-пхп-страшное-кодище ты мне показал
в общем благодаря ребятам с форума винграда я разобрался, и вот мой компактный перл код
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html><head><title>locked files</title>";
print "<style>td {border:1px solid red;}</style></head><body>";
print "<table><tr><td>user</td><td>file</td></tr>";
for (`smbstatus`) {
$users{$1} = $2 if (/\s*(\d+)\s+(.+?)\s+(.+)\s+(.+)\s+\((.+)\)/);
print "<tr><td>$users{$1}</td><td>$2</td></tr>\n" if (/(\d+).*?\/home(.*)\s{3}/);
};
print "</table></body></html>";
0) перл должен быть по умолчанию установлен (проверьте perl -v)
1)через управление zentyal поднимаем веб-сервер
2)в корне веб-сервера (по умолчанию /var/www) создаем файл с расширением .pl и закидываем в него вышеизложенное содержимое
3)тут же создаем файл .htaccess с содержимым
Options +ExecCGI
AddHandler cgi-script *.pl
<Files *.pl>
SetHandler cgi-script
</Files>
4) даем права на исполнение файлик (sudo chmod 755 вашперлфайл.pl)
5) ребутаем апач (sudo /etc/inid.d apache2 restart)
и профит...
P.S.у меня была проблема..
папки на сервере были на русском языке...
smbstatus нормально отображался в консоли, а через вебморду все связанное с кириллицей резалось...
вполне возможно надо обновить перл на машине или с консолью чтото не то
)