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

Diff for scripts/perl/oracle/oracledump.pl between version 1.4 and 1.5

version 1.4, 2004/01/22 21:03:21 version 1.5, 2004/01/22 21:29:44
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracledump/oracledump,v 1.3 2004/01/22 20:40:06 nepto Exp $  # $Platon: scripts/perl/oracledump/oracledump,v 1.4 2004/01/22 21:03:21 nepto Exp $
   
 use strict;  use strict;
   
Line 566  sub escape_data($$)
Line 566  sub escape_data($$)
     my $type  = shift;      my $type  = shift;
     my $value = shift;      my $value = shift;
   
     if ($type eq 'NUMBER')      if ( $type eq 'NUMBER' ) {
     {          return length $value > 0 ? $value : "''";
         return $value;      } elsif ( $type eq 'VARCHAR2' ) {
     }          if ( !defined $value ) {
     elsif ($type eq 'VARCHAR2')              return "NULL";
     {          } else {
         if (! defined $value)  
         {  
             return "NULL";  
         }  
         else  
         {  
             $value =~ s/'/\\'/g;              $value =~ s/'/\\'/g;
             return "'$value'";              return "'$value'";
         }          }
     }      } elsif ( $type eq 'DATE' ) {
     elsif ($type eq 'DATE')          if ( !defined $value ) {
     {              return "NULL";
         if (! defined $value)          } else {
         {  
             return "NULL";  
         }  
         else  
         {  
             return "'$value'";              return "'$value'";
         }          }
     }      } else {
     else  
     {  
         die "Unknown type: $type\n";          die "Unknown type: $type\n";
     }      }
 }  }
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top