Relatórios do Sarg por grupo
Publicado por Andre Luiz da Silva 11/09/2006
[ Hits: 7.170 ]
Homepage: http://localhost
Separa os relatorios do Sarg por posixGroup de uma base LDAP
#!/usr/bin/perl # sarg-by-group.pl - Separa os relatorios do Sarg por posixGroup # utilizando uma base LDAP # # Desenvolvido por: Andre Luiz da Silva <andrack@gmail.com> # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version # 2 of the License, or (at your option) any later version. use Net::LDAP; $ldap = Net::LDAP->new("arquivos.sarg.inf.br") or die "$@"; $ldap->bind("dc=relatorios,dc=inf,dc=br"); $output_dir = "/srv/www/htdocs/squid-reports/"; $input_log = "/var/log/squid/access.log"; $sarg_bin = "/usr/bin/sarg"; $debug = "-z -x"; # Opcoes de debug do Sarg $groups = $ldap->search(filter=>"(&(cn=*)(objectclass=posixgroup))", base=>"dc=relatorios,dc=inf,dc=br"); # Carrega o array com todos os grupos da base LDAP @entries = $groups->entries; # Para cada grupo, faca... foreach $entry (@entries) { $group = $entry->get_value("cn"); chdir ($output_dir); if ( ! -d $group ) { # Cria o diretorio, caso ele nao exista print "Criando diretorio: $group \n"; mkdir ("$group"); } @members = $entry->get_value("memberUid"); # Carrega o array com os membros do grupo # Para cada usuario, faca... foreach $member (@members) { print "Gerando relatorio do usuario: [$member]\n"; # Executa o Sarg passando o parametro '-u' para cada membro do grupo system ("$sarg_bin -f /etc/sarg.conf -u $member -l $input_log -o $output_dir/$group"); } }
Remover lista de pacotes do Portage
Verificação se utilizador existe ou não
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba