Add new elog() levels to stored procedure languages. plperl DEBUG hack

still needed because only removed in 7.4.

src/pl/plperl/SPI.xs

@@ -55,17 +55,25 @@ elog_elog(level, message)
 	int level
 	char* message
 	CODE:
-	if (level > 0)
-		return;
-	else
-		elog(level, message);
+	elog(level, message);
 
 
 int
 elog_DEBUG()
 
 int
-elog_ERROR()
+elog_LOG()
+
+int
+elog_INFO()
 
 int
 elog_NOTICE()
+
+int
+elog_WARNING()
+
+int
+elog_ERROR()
+
+

src/pl/plperl/eloglvl.c

@@ -12,18 +12,37 @@
 
 int
 elog_DEBUG(void)
+{
+	return DEBUG1;
+}
+
+int
+elog_LOG(void)
 {
 	return LOG;
 }
 
+int
+elog_INFO(void)
+{
+	return INFO;
+}
+
+int
+elog_NOTICE(void)
+{
+	return NOTICE;
+}
+
+int
+elog_WARNING(void)
+{
+	return WARNING;
+}
+
 int
 elog_ERROR(void)
 {
 	return ERROR;
 }
 
-int
-elog_NOTICE(void)
-{
-	return NOTICE;
-}

src/pl/plperl/eloglvl.h

@@ -1,8 +1,13 @@
 
-int
-			elog_DEBUG(void);
+int	elog_DEBUG(void);
 
-int
-			elog_ERROR(void);
+int	elog_LOG(void);
+
+int	elog_INFO(void);
+
+int	elog_NOTICE(void);
+
+int	elog_WARNING(void);
+
+int	elog_ERROR(void);
 
-int			elog_NOTICE(void);

src/pl/plperl/plperl.c

@@ -33,7 +33,7 @@
  *	  ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.28 2002/01/24 21:40:44 tgl Exp $
+ *	  $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.29 2002/03/06 18:50:26 momjian Exp $
  *
  **********************************************************************/
 
@@ -210,7 +210,7 @@ plperl_init_interp(void)
 		 */
 		"require Safe; SPI::bootstrap();"
 		"sub ::mksafefunc { my $x = new Safe; $x->permit_only(':default');$x->permit(':base_math');"
-		"$x->share(qw[&elog &DEBUG &NOTICE &ERROR]);"
+		"$x->share(qw[&elog &DEBUG &LOG &INFO &NOTICE &WARNING &ERROR]);"
 		" return $x->reval(qq[sub { $_[0] }]); }"
 		"sub ::mkunsafefunc {return eval(qq[ sub { $_[0] } ]); }"
 	};