fonte.pl
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 5.246 ]
Eu sou usuario Slackware, mas na empresa que trabalho usamos RedHat por ser homologado com um software
de gerenciamento laboratorial que comerciamos, antes usavamos Conectiva e Migramos para RedHat, entao foi necessario alterar
uma serie de coisas no "RedHATE" (apenas uma piadinha slacker :) ) entre elas a fonte estilo kbd e mapeamento de teclado.
Para isso fiz o fonte.pl , automatizando esse processo , facilitando a vida de quem precisa fazer essa configuracao a cada RH instalado.
Para var
#!/usr/bin/perl -w ################################################# ################################################# ################################################# # # fonte.pl v1.0 # Programa para automatizar # a configuracao de fontes e # e teclado no RedHat 8.0 # # Tue Nov 25 13:47:25 GMT 2003 # # carlos_lnx@ibest.com.br # ################################################# ################################################# ################################################# # ROOT ? sub perm { print ("Voce nao esta identificado como "); print color("blink"),"ROOT !\n", color("reset"); exit(1); } $USER eq "root" or &perm (); use strict; use Term::ANSIColor; use Env; open STDERR, ">/dev/null"; my $clear_string = `clear`; print $clear_string; sub INFO () { print <<EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %################################################################% %################################################################% %################################################################% %################################################################% %################################################################% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A partir daqui iremos instalar e configurar o mapeamento/fonte do Red Hat 8 para que funcione corretamente com o sistema X. Siga as instrucoes e tenha em mao o cd de instalacao do linux Conectiva 8 (cd 1). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %################################################################% %################################################################% %################################################################% %################################################################% %################################################################% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Tecle "ENTER" para continuar... EOF } print color("bold"); &INFO (); print color("reset"); my $nada0 = <STDIN>; if (my $profile = open (PROFILE, ">>/etc/profile") == 0) { print "Erro ao abrir /etc/profile, verifique as permissoes.\n"; exit(1); } if (my $i18n = open (I18N, ">/etc/sysconfig/i18n") == 0) { print "Erro ao abrir /etc/sysconfig/i18n, verifique as permissoes.\n"; exit(1); } #Inserindo o PERL_BADLANG: print (PROFILE "# Cleaning out Perl error messages:\n"); print (PROFILE "PERL_BADLANG=0\n"); print (PROFILE "export PERL_BADLANG\n"); close (PROFILE); print "\n" ; print ("Arquivo /etc/profile editado... ["); print color("bold"), "OK", color("reset"); print ("]\n"); sleep(3); #Editando /etc/sysconfig/i18n: system("cp /etc/sysconfig/i18n /etc/sysconfig/i18n.SALVO"); print (I18N "LANG=pt_BR\n"); print (I18N "LINGUAS=pt_BR\n"); print (I18N "LC_CTYPE=ISO-8859-1\n"); print (I18N "LC_ALL=pt_BR\n"); print (I18N "SYSFONT=lat1u-16\n"); print (I18N "SYSTERM=linux-lat\n"); close(I18N); print "\n" ; print ("Arquivo /etc/sysconfig/i18n editado... ["); print color("bold"), "OK", color("reset"); print ("]\n\n"); sleep(3); my $x = system("/usr/bin/id titan >/dev/null"); if ($x ne 0) { open (CONSOLECHARS, ">/tmp/PARAMETROS"); print (CONSOLECHARS "#Copie a linha abaixo para /etc/rc.d/rc.local:\n"); print (CONSOLECHARS "loadkeys titan\n"); print (CONSOLECHARS "#Copie as linhas abaixo para /home/titan/.bash_profile:\n"); print (CONSOLECHARS "consolechars -f iso09.f16\n"); print (CONSOLECHARS "consolechars -f cp850-8x16\n"); close(CONSOLECHARS); sub X () { print <<EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Usuario X nao existe Entao apos cria-lo com o cd de instalacao X verifique se a linha: "loadkeys titan" esta presente no arquivo "/etc/rc.d/rc.local" e se as linhas: "consolechars -f iso09.f16" "consolechars -f cp850-8x16" estao presentes no arquivo "/home/titan/.bash_profile". Por garantia essas linhas foram criadas em "/etc/PARAMETROS". %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Tecle "ENTER" para continuar... EOF } print $clear_string; print color("bold"); &X (); print color("reset"); my $nada1 = <STDIN>; } print("Agora tenha em maos o cd de instalacao numero 1 do Conectiva Linux 8\n"); system("/usr/bin/eject"); print ("Insira o CD na unidade de cd-rom e tecle \"ENTER\""); my $nada2 = <STDIN>; system("/usr/bin/eject -t"); while (my $dir_existe = system("/bin/mount /mnt/cdrom && /bin/ls /mnt/cdrom/conectiva/RPMS >/dev/null") ne 0) { print ("Cd incorreto!\n"); system("/usr/bin/eject -t"); print ("Insira o cd correto do Conectiva Linux 8.0\n"); print ("na unidade de cd-rom...\n"); print ("Control-c para encerrar o programa.\n"); system("/usr/bin/eject"); print ("Insira o CD na unidade de cd-rom e tecle \"ENTER\""); my $nada3 = <STDIN>; } system("/bin/rpm -e kbdconfig && /bin/rpm -e kbd"); print ("Pacotes: kbdconfig e kbd removidos... ["); print color("bold"), "OK", color("reset"); print ("]\n"); sleep(2); system("/bin/rpm -ivh /mnt/cdrom/conectiva/RPMS/console-tools-keymaps-0.3.3-7cl.i386.rpm"); system("/bin/rpm -ivh /mnt/cdrom/conectiva/RPMS/console-tools-0.3.3-7cl.i386.rpm"); system("/bin/rpm -ivh /mnt/cdrom/conectiva/RPMS/console-tools-fonts-0.3.3-7cl.i386.rpm"); print ("console-tools-keymaps-0.3.3-7cl.i386.rpm... ["); print color("bold"), "OK", color("reset"); print ("]\n"); print ("console-tools-0.3.3-7cl.i386.rpm... ["); print color("bold"), "OK", color("reset"); print ("]\n"); print ("console-tools-fonts-0.3.3-7cl.i386.rpm... ["); print color("bold"), "OK", color("reset"); print ("]\n"); system("/usr/bin/eject"); print ("Pacotes acima instalados...\n"); print ("Tecle \"ENTER\""); my $nada4 = <STDIN>; print ("\n\n\n"); print ("Instalacao concluida com sucesso!\n"); exit(0); #EOF
Índice (Logaritmo Discreto) em Perl
Wallpapers aleatórios no Fluxbox
Nenhum comentário foi encontrado.
Deixando o Gnome bonitão em qualquer distribuição
Como ativar o módulo de cancelamento de ruído no Pipewire
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Baixar e ler mangás grátis no Linux e no Android
Instalando Brave Browser no Fedora 40
Terminal UBUNTU em branco [RESOLVIDO] (5)
Qual o seu reprodutor de mídia preferido? [RESOLVIDO] (9)
Sistema trava no boot após atualização do driver nVidia (GeForce 1070)... (3)
GRUB do Debian 12 não detecta segundo Linux instalado em partição BTRF... (24)
executar arquivo como programa pelo terminal linux ubuntu (2)