Inserindo sites em Lista do Squid

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

[ Hits: 4.776 ]

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

Manipulação de Arquivos Orientada a Objetos

Script para adicionar sites ao Squid

Apaga fila do Exim...

Conversão de textos UTF-8 para ISO8859-1

Script para adicionar e remover usuários no IMSPECTOR


  

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