Home > mailing lists

The " \! " and " \l " commands - Mailing list pgsql-hackers

From	Suporte
Subject	The " \! " and " \l " commands
Date	February 1, 2002 18:54:35
Msg-id	00c801c1ab60$165ae3f0$0201000a@wwrentc02 Whole thread Raw
Responses	Re: The " \! " and " \l " commands (Peter Eisentraut <peter_e@gmx.net>)
List	pgsql-hackers

Tree view

Hi all,

Does anyone know how to disable the " \! " and " \l " commands ?

I´m using PostgreSql 7.1 on a Solaris 7.

The case is:

Users connect on another solaris through SSH with a shell developed by me in perl, and connect to the PGSQL_SERVER through psql. The problem is: when the user is on the PGSQL PROMPT and he types " \! /bin/sh ", he gets the /bin/sh on the server.

Here´s the shell :

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

#!/usr/bin/perl
#------------------------------------------------------------------------------
# Variaveis
#------------------------------------------------------------------------------

$mainmenu = '/usr/local/etc/wwrent/ssh_menu.txt';
$mysql_user_table = '/usr/local/etc/wwrent/mysql_users.txt';
$pgsql_user_table = '/usr/local/etc/wwrent/pgsql_users.txt';
$sendmail_dir = '/etc/mail';
$val_dominio = '/usr/local/etc/wwrent/ssh_users.txt';
$ENV{'SHELL'} = "/usr/local/bin/shell.pl";

#------------------------------------------------------------------------------

$myself = getlogin || getpwuid($<) || "nobody";
chop($mydir = `pwd`);
main_loop();

#------------------------------------------------------------------------------
# Sub-rotinas
#------------------------------------------------------------------------------

sub main_loop{
   while (true){
        system("clear");
        print_menu($mainmenu);
        chop($opcao = <STDIN>);
        $opcao =~ tr/0-9/ /cs;
        $opcao =~ s/ //g;
        if (!opcao_valida($opcao)){
                print "Você escolheu uma opção inválida!\n";
                get_enter();
        }elsif ($opcao == 1){
                $mysql_user = get_mysql_user($myself);
                system "/usr/local/mysql/bin/mysql -h172.17.0.5 -u $mysql_user -p";
        }elsif ($opcao == 2){
                pgsql_loop();
        }elsif ($opcao == 3){
                system "/usr/local/bin/pine -i";
        }elsif ($opcao == 4){
                system "/bin/passwd";
                get_enter();
        }elsif ($opcao == 5){
                system "/usr/ucb/quota -v";
                get_enter();
        }elsif ($opcao == 6){
                exit;
        }else{
                print "Você escolheu a opção $opcao\n";
                get_enter();
        }
   }
}

sub print_menu{
        $menufile = shift;
        if (-e "$menufile"){
                open(in, "$menufile");
                for $line (<in>){
                        print "$line";
                }
        }else{
                print "Arquivo $menufile não encontrado\n";
        }
        print "Escolha uma das opções acima ---> ";
}

sub get_enter(){
        print "+-----------------------------------------------------------+\n";
        print "|                APERTE ENTER PARA CONTINUAR                |\n";
        print "+-----------------------------------------------------------+\n";
        chop($lixo = <STDIN>);
}

sub opcao_valida{
        $oque = shift;
        if (
            $oque == 1 ||
            $oque == 2 ||
            $oque == 3 ||
            $oque == 4 ||
            $oque == 5 ||
            $oque == 6
            )
        {
                return 1;
        }else{
                return 0;
        }
}

sub get_mysql_user{
        my($login) = shift;
        my(@lines) = `cat $mysql_user_table`;
        my($line,$unixl,$sqll);
        for $line (@lines){
                chop($line);
                ($unixl,$sqll) = split(/:/,$line);
                if ($unixl eq $login){
                        return $sqll;
                }
        }
        return $login;
}

sub get_pgsql_user{
        my($login) = shift;
        my(@lines) = `cat $pgsql_user_table`;
        my($line,$unixl,$sqll);
        for $line (@lines){
                chop($line);
                ($unixl,$sqll) = split(/:/,$line);
                if ($unixl eq $login){
                        return $sqll;
                }
        }
        return $login;
}

sub get_filename{
        my($filename);
        while (true){
                print "Digite o nome do arquivo: ";
                chop($filename = <STDIN>);
                if (!$filename){
                        return 0;
                }
                $first1 = substr($filename,0,1);
                $filename =~ tr/\./\./s;
                if ($first1 eq '/'){
                        print "O nome do arquivo não pode começar com /\n";
                }elsif (-e "$filename"){
                        return $filename;
                }else{
                        print "Arquivo $filename não encontrado\n";
                        print "Deseja criar esse arquivo? (s/n) ";
                        chop($resp = <STDIN>);
                        if ($resp eq 's' || $resp eq 'S'){
                                return $filename;
                        }
                }
        }
}

sub pgsql_loop{
        $pgsql_user = get_pgsql_user($myself);
        while(true){
                system "clear";
                $ENV{'PATH'} = "$ENV{'PATH'}:/usr/local/pgsql/bin";
                $ENV{'LD_LIBRARY_PATH'} = "$ENV{'LD_LIBRARY_PATH'}:/usr/local/pgsql/lib";
                print "Escolha a opção desejada: \n";
                print "\t1 - Executar o cliente psql\n";
                print "\t2 - Sair\n";
                print "\tSua Escolha--->";
                chop($resp = <STDIN>);
                if ($resp == 1){
                        print "\tDigite o nome da base de dados: ";
                        chop($bd = <STDIN>);
                        system "psql -h PGSQL_SERVER -U $pgsql_user $bd";
                }elsif ($resp == 2){
                        return;
                }
                get_enter();
        }
}

sub user_exists{
        my($login) = shift;
        my(@possible) = `grep $login:x /etc/passwd | cut -d: -f1`;
        for $pos (@possible){
                chop($pos);
                if ($pos eq $login){
                        return 1;
                }
        }
        return 0;
}

#--------------- End ---------------

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Daniel Henrique Cassela
Support Analist - WWRent
cassela@wwrent.com.br
ICQ - 93631946

pgsql-hackers by date:

From: "Dann Corbit"
Date: 01 February 2002, 18:40:50
Subject: Re: A couple binary cursor questions

From: Tom Lane
Date: 01 February 2002, 19:05:57
Subject: Re: PostgreSQL crashes with Qmail-SQL

The " \! " and " \l " commands - Mailing list pgsql-hackers

Previous

Next