Inserindo sites em Lista do Squid
Publicado por Rafael Lebrão Martins 14/03/2007
[ Hits: 4.905 ]
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"; }
Script para adicionar sites ao Squid
Script que procura uma palavra em um arquivo.
FTP – Script para adicionar e remover usuários via WEB
Listar arquivos de um diretório.
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
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
O que você está ouvindo agora? [2] (193)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (8)