File: convert

package info (click to toggle)
pronto 2.4.0-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,112 kB
  • ctags: 487
  • sloc: perl: 22,159; makefile: 127; sh: 34; sql: 7
file content (17 lines) | stat: -rwxr-xr-x 453 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl
use strict;
use vars qw( %prefs );
require "prontolib.pl";
read_prefs();
my $conn = &open_db_conn;
my ($sql,$query);
my ($id,$body);
$sql = "select id,bodytext from messages";
$query=$conn->prepare($sql);
$query->execute();
while (($id,$body)=$query->fetchrow_array()) {
       	my $sql2 = "insert into message_sources (id,bodytext) values (?,?)";
	my $query2 = $conn->prepare($sql2);
	$query2->execute($id,$body);
}	
$conn->disconnect;