Inserindo sites em Lista do Squid

Publicado por Rafael Lebrão Martins 14/03/2007

[ Hits: 4.771 ]

Download squid.pl




Script em Perl que recebe como argumento o site a ser inserido em lista de acesso liberado do Squid.

  



Esconder código-fonte

#!/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";
}



Scripts recomendados

script para localizar conteudo de arquivo

Adiciona-Altera senhas/usuarios no sistema

Script para adicionar sites ao Squid

getter

Inserindo sites em Lista do Squid


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts