Inserindo sites em Lista do Squid
Publicado por Rafael Lebrão Martins 14/03/2007
[ Hits: 4.898 ]
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 procura uma palavra em um arquivo.
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
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Audio intermitente xubuntu notebook positivo c14 vision (5)
Adicional de convivdado em linux somente linha de comando (2)