src/fldb/FLDBpg.pm

   1 package FLDBpg;
   2
   3 #=======================================================================
   4 # $Id$
   5 # File ID: defb97ea-fa5a-11dd-b1bc-000475e441b9
   6 #
   7 # Character set: UTF-8
   8 # ©opyleft 2008– Øyvind A. Holm <sunny@sunbase.org>
   9 # License: GNU General Public License, see end of file for legal stuff.
  10 #=======================================================================
  11
  12 use strict;
  13 use warnings;
  14
  15 use lib "$ENV{'HOME'}/bin/src/fldb";
  16 use FLDBdebug;
  17
  18 BEGIN {
  19     use Exporter ();
  20     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  21
  22     my $rcs_id = '$Id$';
  23     push(@main::version_array, $rcs_id);
  24     $VERSION = ($rcs_id =~ / (\d+) /, $1);
  25
  26     @ISA = qw(Exporter);
  27     @EXPORT = qw(&safe_sql);
  28     %EXPORT_TAGS = ();
  29 }
  30 our @EXPORT_OK;
  31
  32 sub safe_sql {
  33     # {{{
  34     my $Text = shift;
  35     $Text =~ s/\\/\\\\/g;
  36     $Text =~ s/'/''/g;
  37     $Text =~ s/\n/\\n/g;
  38     $Text =~ s/\r/\\r/g;
  39     $Text =~ s/\t/\\t/g;
  40     return($Text);
  41     # }}}
  42 } # safe_sql()
  43
  44 1;