From 26acae4721872f620fe1b2a7d181c71277108f59 Mon Sep 17 00:00:00 2001
From: pnixon <pnixon>
Date: Thu, 17 Jul 2003 16:43:39 +0000
Subject: [PATCH] Comment out Perl strip_dot function

---
 .../cisco_h323_db_sample_functions-postgres.sql        | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/src/billing/cisco_h323_db_sample_functions-postgres.sql b/src/billing/cisco_h323_db_sample_functions-postgres.sql
index 89ea569..6a2ff63 100644
--- a/src/billing/cisco_h323_db_sample_functions-postgres.sql
+++ b/src/billing/cisco_h323_db_sample_functions-postgres.sql
@@ -1,23 +1,19 @@
-
 /*
- * Function 'strip_dot'
- * removes "." from the start of time fields (Cisco devices that have lost ntp timesync temporarily)
- *  * Used as:
- *      insert into mytable values (strip_dot('.16:46:02.356 EET Wed Dec 11 2002'));
+ * Old Function 'strip_dot' Now replaced by one written plpgsql
  *
  * Note: On SuSE Linux 8.0 and 8.1 you need to do the following from the command line before
  *       plperl functions will work.
  *
  * # ln -s /usr/lib/perl5/5.8.0/i586-linux-thread-multi/CORE/libperl.so /usr/lib/libperl.so
  * # createlang -U postgres plperl radius
+ *
+ *	CREATE OR REPLACE FUNCTION strip_dot_in_perl (text) returns timestamp AS '
+ *	        my $datetime = $_[0];
+ *		$datetime =~ s/^\\.*//;
+ *	        return $datetime;
+ *	' language 'plperl';
  */
 
-CREATE OR REPLACE FUNCTION strip_dot (text) returns timestamp AS '
-        my $datetime = $_[0];
-	$datetime =~ s/^\\.*//;
-        return $datetime;
-' language 'plperl';
-
 
 CREATE OR REPLACE FUNCTION chop_number(VARCHAR) RETURNS VARCHAR AS '
  DECLARE
-- 
2.1.4