Inserindo sites em Lista do Squid
Publicado por Rafael Lebrão Martins 14/03/2007
[ Hits: 4.904 ]
Script em Perl que recebe como argumento o site a ser inserido em lista de acesso liberado do Squid.
#!/usr/bin/perl use warnings; use strict; my $arquivo = '/etc/squid/arquivos/liberados/dl_geral'; open ( LIBERADOS,$arquivo ) or die ( "Nao pode abrir o arquivo: $!" ); my @linhas = <LIBERADOS>; close (LIBERADOS); print "Insira o site a ser liberado: "; my $site = <STDIN>; chomp $site; open ( LIBERADOS,"$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" ); my $linhas = "@linhas"; if ($linhas =~ $site) { print " O site ja existe na lista liberada.\n"; close ( LIBERADOS ) or die ( "Nao pode fechar o arquivo: $!" ); }else { open ( LIBERADOS,">>$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" ); print ( LIBERADOS "\n$site" ); close ( LIBERADOS ) or die ( "Nao pode fechar o arquivo: $!" ); system("squid -k reconfigure"); print " O site foi adicionado com sucesso.\n"; }
Manipulação de Arquivos Orientada a Objetos
Adiciona-Altera senhas/usuarios no sistema
Script para adicionar e remover usuários no IMSPECTOR
FTP – Script para adicionar e remover usuários via WEB
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)