Commit79e6648

Jan Wieck

authored and

Jan Wieck

committed

Added untrusted PL/TclU (pltclu) language. Executes all procedures

in a non-safe interpreter, so with full OS access! Language isrestricted to be used by DB superusers.Added "argisnull n" and "return_null" commands to gain full controlover NULL values from new FMGR capabilities.Jan

1 parentec1ea52 commit79e6648Copy full SHA for 79e6648

File tree

2 files changed

+269

-125

lines changed

src
- bin/scripts
  - createlang.sh
- pl/tcl
  - pltcl.c

2 files changed

+269

-125

lines changed

`‎src/bin/scripts/createlang.sh`

Lines changed: 18 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@`
`8`	`8`	`#`
`9`	`9`	`#`
`10`	`10`	`# IDENTIFICATION`
`11`		`-# $Header: /cvsroot/pgsql/src/bin/scripts/Attic/createlang.sh,v 1.12 2000/05/28 17:56:08 tgl Exp $`
	`11`	`+# $Header: /cvsroot/pgsql/src/bin/scripts/Attic/createlang.sh,v 1.13 2000/07/19 11:53:02 wieck Exp $`
`12`	`12`	`#`
`13`	`13`	`#-------------------------------------------------------------------------`
`14`	`14`
`@@ -180,18 +180,29 @@ fi`
`180`	`180`	`# ----------`
`181`	`181`	`case"$langname"in`
`182`	`182`	`plpgsql)`
`183`		`-lancomp="PL/pgSQL"`
	`183`	`+lancomp="PL/pgSQL"`
`184`	`184`	`trusted="TRUSTED"`
`185`	`185`	`handler="plpgsql_call_handler"`
`186`		`- ;;`
	`186`	`+object="plpgsql"`
	`187`	`+;;`
`187`	`188`	`pltcl)`
`188`	`189`	`lancomp="PL/Tcl"`
`189`	`190`	`trusted="TRUSTED"`
`190`		`-handler="pltcl_call_handler";;`
	`191`	`+handler="pltcl_call_handler"`
	`192`	`+object="pltcl"`
	`193`	`+;;`
	`194`	`+pltclu)`
	`195`	`+lancomp="PL/Tcl (untrusted)"`
	`196`	`+trusted=""`
	`197`	`+handler="pltclu_call_handler"`
	`198`	`+object="pltcl"`
	`199`	`+;;`
`191`	`200`	`plperl)`
`192`	`201`	`lancomp="PL/Perl"`
`193`	`202`	`trusted="TRUSTED"`
`194`		`-handler="plperl_call_handler";;`
	`203`	`+handler="plperl_call_handler"`
	`204`	`+object="plperl"`
	`205`	`+;;`
`195`	`206`	`*)`
`196`	`207`	`echo"$CMDNAME: unsupported language '$langname'"`
`197`	`208`	`echo"Supported languages are 'plpgsql', 'pltcl', and 'plperl'."`
`@@ -204,7 +215,7 @@ esac`
`204`	`215`	`# Check that the shared object for the call handler is installed`
`205`	`216`	`# in PGLIB`
`206`	`217`	`# ----------`
`207`		`-if [!-f$PGLIB/${langname}__DLSUFFIX__ ];then`
	`218`	`+if [!-f$PGLIB/${object}__DLSUFFIX__ ];then`
`208`	`219`	`echo"$CMDNAME: cannot find the file$PGLIB/${langname}__DLSUFFIX__"`
`209`	`220`	`echo""`
`210`	`221`	`echo"This file contains the call handler for$lancomp. By default,"`
`@@ -244,7 +255,7 @@ fi`
`244`	`255`	`# ----------`
`245`	`256`	`# Create the call handler and the language`
`246`	`257`	`# ----------`
`247`		`-$PSQL"CREATE FUNCTION$handler () RETURNS OPAQUE AS '$PGLIB/${langname}__DLSUFFIX__' LANGUAGE 'newC'"`
	`258`	`+$PSQL"CREATE FUNCTION$handler () RETURNS OPAQUE AS '$PGLIB/${object}__DLSUFFIX__' LANGUAGE 'newC'"`
`248`	`259`	`if [$?-ne 0 ];then`
`249`	`260`	`echo"$CMDNAME: language installation failed"`
`250`	`261`	`exit 1`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit79e6648

File tree

2 files changed

2 files changed

`‎src/bin/scripts/createlang.sh`

0 commit comments