Linux slogan
Visite também: Segurança Linux · BR-Linux.org · Dicas-L · Doode · NoticiasLinux · SoftwareLivre.org · UnderLinux



» Screenshot
» Login
Login:
Senha:

Se você ainda não possui uma conta, clique aqui.

Esqueci minha senha



Scripts

Linux user

Publicado por Rafael Lebrão Martins em 14/03/2007    [ 2493 hits ]

Login: rafael martins, 159744 pontos

   


Descrição

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

[ Download: squid.pl ]   [ Enviar nova versão ]

[ 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 Linux recomendado Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada
   Script Linux recomendado Script que remove palavras de um arquivo.
   Script Linux recomendado Remove comentarios de scripts
   Script Linux recomendado Processa todos os SlackBuild's
   Script Linux recomendado Adiciona-Altera senhas/usuarios no sistema

Comentários
Nenhum comentário foi encontrado.

Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.