File: CSVaddybooktoDBaddybook

package info (click to toggle)
pronto 2.4.0-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,112 kB
  • ctags: 488
  • sloc: perl: 22,159; makefile: 140; sh: 34; sql: 7
file content (19 lines) | stat: -rwxr-xr-x 501 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl
require "prontolib.pl";
read_prefs();
$conn=&open_db_conn;
open(TMP,"$prefs{'MailDir'}/addresses");
while(<TMP>) {
	@addys = split(/,/,$_);
	foreach (@addys) {
		if ($addys[0] =~ /id/) {
			next;
		} else {	
		        $sql = "insert into addresses (id, alias, adress, public_key) values (?, ?, ?, ?)";
			$query=$conn->prepare($sql);
			$query->execute($addys[0],$addys[1],$addys[2],$addys[3]);
			print("Inserted $addys[0], $addys[1], $addys[2], $addys[3]\n");
		}
	}	
}	
close(TMP);