/[registar]/convert.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /convert.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ravilov, Tue Jun 12 12:07:37 2001 UTC revision 1.4 by dpavlin, Tue Jun 19 08:54:02 2001 UTC
# Line 45  sub ConvertDate { Line 45  sub ConvertDate {
45                  # $dt = "NULL";                  # $dt = "NULL";
46                  $dt = undef;                  $dt = undef;
47          }          }
48          return $pgdbh->quote($dt);          return $dt;
49  }  }
50    
51  sub ConvertBool {  sub ConvertBool {
# Line 60  sub ConvertString { Line 60  sub ConvertString {
60          $str =~ s/[\x00-\x1F]+//gs;          $str =~ s/[\x00-\x1F]+//gs;
61          $str =~ s/\s*\x8D?\s*\r?\s*\n\s*/\n/gs;          $str =~ s/\s*\x8D?\s*\r?\s*\n\s*/\n/gs;
62          $str =~ s/(^\s+|\s+$)//gs;          $str =~ s/(^\s+|\s+$)//gs;
63          $str =~ s/(^"|"$)//g;          $str =~ s/(^["']|["']$)//g;
64          # char recoding          # char recoding
65          #$str =~ s/đ/ð/g;          #$str =~ s/đ/ð/g;
66          #$str =~ s/č/è/g;          #$str =~ s/č/è/g;
67          #$str =~ s/ý/¾/g;          #$str =~ s/ý/¾/g;
68          $str =~ tr/{|`~}[\\@^]/¹ð¾èæ©Ð®ÈÆ/;          $str =~ tr/{|`~}[\\@^]/¹ð¾èæ©Ð®ÈÆ/;
69          return $pgdbh->quote($str);  #       return $pgdbh->quote($str);
70            return $str;
71  }  }
72    
73  sub Progress {  sub Progress {
# Line 81  sub Log { Line 82  sub Log {
82  }  }
83    
84  sub CondInsert {  sub CondInsert {
85          my ($table, $name, $key, $fields, $values) = @_;          my ($table, $name, $key, @fields, @values) = @_;
86          my $sql = "SELECT $name FROM $table WHERE ($name = $key)";          my $sql = "SELECT $name FROM $table WHERE ($name = $key)";
87          my $cnt = $pgdbh->do($sql);          my $cnt = $pgdbh->do($sql);
88          return 0 if ($cnt > 0);          return 0 if ($cnt > 0);
89          $sql = "INSERT INTO $table $fields VALUES $values";          $sql = "INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")";
90          my $ret = $pgdbh->do($sql);          my $sth = $pgdbh->prepare("INSERT INTO $table (".join(",",@fields).") VALUES (".'?'.$#values.")");
91            my $ret = $sth->execute(@values);
92          my $err = $pgdbh->errstr;          my $err = $pgdbh->errstr;
93          print &Log("[$sql] ".$err) if ($err);          print &Log("[$sql] ".$err) if ($err);
94          return $ret;          return $ret;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26