Re: [shell-script] Parametro

[MrBiTs]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

On 11/21/2011 17:14 , Silvio wrote:
> Prezados, bom dia.
> 
> Estou tentando fazer um script que ao usuário logar no servidor Samba via 
> Windows, abra a tela do Internet Explorer (IE) com a
> pagina de acesso do Squid do dia anterior. Para isso, a criação do endereço a 
> abrir, fiz o seguinte script que nomeei
> "logsquid":
> 
> #Inicio do script... cabecalho de script shell #!bin/bash ####### Variaveis 
> oip=`last -i -1 $1 | cut -d" " -f11 | while read a;
> do file=$(echo $a | tr ' ' _); [ ! -f $file ] && echo  "$a"; done` 
> diasemana=`date --date='1 day ago' | cut -d " " -f1` 
> mes=`date --date='1 day ago' | cut -d" " -f2` dia=`date --date='1 day ago' 
> +%d` ano=`date --date='1 day ago' +%Y` hora=`date
> --date='1 day ago' +%X` ########## 
> http://192.168.4.251/$ano$mes$dia"-"$ano$mes$dia/$oip/$oip.html
> 
> Testei o logsquid passando o nome do usuário e me é retornado o seguinte e 
> correto:
> 
> http://192.168.4.251/2011Sep14-2011Sep14/192.168.4.14/192.168.4.14.html
> 
> No Samba em root preexec, executo um Scrip em Perl que monta um arquivo .bat 
> para executar na maquina do usuário, de nome
> login.pl ########## #!/usr/bin/perl
> 
> $server="litoad1";
> 
> sub ingroup($) { my $group=shift; my $result=0; my $lcuser=lc($ARGV[0]);
> 
> open (FD,"</etc/group"); while (<FD>) { my $data=$_; if ($data =~ /$group/) { 
> if ($data =~ /$lcuser/) { $result=1; last; } } } 
> close FD; return $result; }
> 
> # Inicio do login script system("/usr/litoad1/logar $ARGV[0]"); 
> $veroip=system("/usr/litoad1/logsquid $ARG[0]");
> 
> open (LOGON,">/dados/netlogon/.$ARGV[0].bat");
> 
> print LOGON "\@ECHO OFF\r\n"; print LOGON "NET TIME \\\\$server /SET 
> /YES\r\n"; print LOGON "NET USE V:
> \\\\$server\\prgs\r\n"; print LOGON "NET USE X: \\\\$server\\usuarios\r\n"; 
> print LOGON "NET USE Y: \\\\$server\\users\r\n"; 
> print LOGON "NET TIME \\\\$server /set /yes\r\n"; print LOGON "\"C:\\Arquivos 
> de Programas\\Internet Explorer\\iexplore.exe\"
> $veroip \r\n"; print LOGON "\\\\$server\\netlogon\\.logon.bat\r\n"; close 
> LOGON; ##########
> 
> Ocorre que quando da geração do .bat, esta sendo criado no lugar do endereço 
> a abrir um número como a seguir.
> 
> "C:\Arquivos de Programas\Internet Explorer\iexplore.exe" 32512
> 
> Se possível, gostaria da ajuda para acertar o recebimento deste retorno do 
> logsquid e passar na criação do .usuario.bat .
> 
> Certo da colaboração de vocês, desde já antecipo os meus sinceros 
> agradecimentos.

<MODERAÇÃO>
O código que gera o arquivo .bat é um código em Perl. A lista trata de 
linguagem Shell-Script e está bem explícito em todos os
lugares que não é permitida abordagem a outras linguagens de programação. Além 
disso, você só nos dá um pequeno extrato da parte
shell-script, então fica bem difícil te ajudar, não acha ?

Procure uma lista de Perl para esse tipo de dúvida.
</MODERAÇÃO>

- -- 

LLAP

.0. MrBiTs .'. - address@hidden
..0 GnuPG  - 
http://keyserver.fug.com.br:11371/pks/lookup?op=get&search=0x6EC818FC2B3CA5AB
000 http://www.mrbits.com.br


-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (Darwin)

iQEcBAEBCAAGBQJOyqvQAAoJEG7IGPwrPKWr4LUH/0hGgV0Csen6WdEIsYBBrpLK
68M7Jb4D4snffNvwp7UVeUcLyaggmDwZ2GAnvfwMHWqWHi1KoLYuIuJnB+YwlEIi
UObJxzPTaw9xZ/4P0XskEBRJ5xPQXz6UVgMcSGLGSkEbXCwmIQ312RIS1K1F1z/5
ayW1XudghSsQV3szewXrHDsGdyoJQqyMmvweb1JUDQ80tAmIVZ7p9C5b6Twg8vZv
2gC6VM56IOxhp0btrj+lhT9blzTJVX9HvJDQObnltDA1uhRxaO5CJj2YDu5MMjTe
elaMyS+IUE0uZtfSAA3AaDVeWqc/3mL5F+3oEYYXtJpey2S4AYT8jYaQ9/ALqQg=
=ilpj
-----END PGP SIGNATURE-----