Inserindo sites em Lista do Squid
Publicado por Rafael Lebrão Martins 14/03/2007
[ Hits: 4.693 ]
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 que remove palavras de um arquivo.
Script que procura uma palavra em um arquivo.
Inserindo sites em Lista do Squid
Script para adicionar e remover usuários no IMSPECTOR
Script para adicionar sites ao Squid
Nenhum comentário foi encontrado.
Agora temos uma assistente virtual no fórum!!! (247)
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
iso de sistema 32 bit em atividade (18)
erro ao clonar repo github (11)