Inserindo sites em Lista do Squid
Publicado por Rafael Lebrão Martins 14/03/2007
[ Hits: 4.692 ]
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 localizar conteudo de arquivo
Inserindo sites em Lista do Squid
Listar arquivos de um diretório.
Nenhum comentário foi encontrado.
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
Como Atualizar Fedora 39 para 40
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
erro ao clonar repo github (5)
Problema Envio email GLPI Versao 10.0.15 (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (25)
[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