Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / oracle

Diff for scripts/perl/oracle/oracledump.pl between version 1.28 and 1.29

version 1.28, 2008/08/23 14:35:06 version 1.29, 2008/08/23 14:36:41
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.27 2008-08-23 14:32:02 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.28 2008-08-23 14:35:06 nepto Exp $
   
 use strict;  use strict;
   
Line 647  sub escape_data($$)
Line 647  sub escape_data($$)
     my $type  = shift;      my $type  = shift;
     my $value = shift;      my $value = shift;
   
     if ( $type eq 'NUMBER' ) {      if ( $type eq 'NUMBER' or $type eq 'FLOAT') {
         return length $value > 0 ? $value : "''";          return "''" if (length $value <= 0);
     } elsif ( $type eq 'NVARCHAR2' or $type eq 'VARCHAR2' or $type eq 'CHAR' or $type eq 'CLOB') {                  $value =~ s/,/./g;
                   return $value;
       } elsif ( $type eq 'NVARCHAR2' or $type eq 'VARCHAR2' or $type eq 'CHAR' or $type eq 'CLOB' or $type eq 'BLOB' or $type eq 'LONG' or $type =~ /RAW/ or $type eq 'PRACFOND' or $type eq 'ROWID') {
         if ( !defined $value ) {          if ( !defined $value ) {
             return "NULL";              return "NULL";
         } else {          } else {
             $value =~ s/\\/\\\\/g;                          $value =~ s/\\/\\\\/gm;
             $value =~ s/'/\\'/g;                          $value =~ s/'/\\'/gm;
                           $value =~ s/"/\\"/gm;
                           $value =~ s/\x00/<--N--U--L-->/gm;
             return "'$value'";              return "'$value'";
         }          }
     } elsif ($type eq 'DATE' or $type eq 'TIMESTAMP') {      } elsif ($type eq 'DATE' or $type eq 'TIMESTAMP') {
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top