1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
## 28/09/1999 [OL] : lowercase email addresses before insert
## This script will load a Sympa subscriber file in a Database
## Change $expl_dir and $db_xxx variables
use DBI;
die "usage : $ARGV[-1] listname" unless ($#ARGV == 0);
$listname = $ARGV[0];
$expl_dir = '/home/sympa/expl';
$db_type = 'mysql';
$db_name = 'sympa';
$db_host = 'localhost';
$db_user = 'sympa';
$db_passwd = 'lemotdepasse';
%date_func = ('Pg' => '\'epoch\'::datetime + \'%d sec\'',
'mysql' => 'FROM_UNIXTIME(%d)');
## Connect to Database
unless ($dbh = DBI->connect("DBI:$db_type:dbname=$db_name;host=$db_host", $db_user, $db_passwd)) {
die "Can't connect to Database :", $DBI::errstr;
}
## Cleanup in tables
#$dbh->do("DELETE FROM user_table");
#$dbh->do("DELETE FROM subscriber_table");
unless (-d $expl_dir) {
die "expl dir not found : $expl_dir";
}
unless ((-d "$expl_dir/$listname") and (-f "$expl_dir/$listname/subscribers") and (-r "$expl_dir/$listname/subscribers")) {
die "Unable to read subscribers file";
}
print STDERR "####$listname####\n";
## Parse subscribers
open ABO, "$expl_dir/$listname/subscribers" or die;
my @old = ($*, $/);
$* = 1; $/ = '';
undef $cpt;
## Process the lines
while (<ABO>) {
$cpt++;
my($k, %user);
$user{'email'} = $1 if (/^\s*email\s+(.+)\s*$/o);
$user{'gecos'} = $1 if (/^\s*gecos\s+(.+)\s*$/o);
$user{'date'} = $1 if (/^\s*date\s+(\d+)\s*$/o);
$user{'reception'} = $1 if (/^\s*reception\s+(.+)\s*$/o);
$user{'visibility'} = $1 if (/^\s*visibility\s+(.+)\s*$/o);
$user{'email'} =~ tr/A-Z/a-z/;
## Insert User in Database
$sql = sprintf "INSERT INTO user_table (email_user,gecos_user) VALUES (%s,%s)",$dbh->quote($user{'email'}),$dbh->quote($user{'gecos'});
$dbh->do($sql);
$date = sprintf "$date_func{$db_type}", $user{'date'};
$sql = sprintf "INSERT INTO subscriber_table (user_subscriber,list_subscriber,date_subscriber,reception_subscriber,visibility_subscriber) VALUES (%s, %s, %s, %s, %s)", $dbh->quote($user{'email'}), $dbh->quote($listname), $date, $dbh->quote($user{'reception'}), $dbh->quote($user{'visibility'});
$dbh->do($sql) or die "$sql : $DBI::errstr";
}
close ABO;
($*, $/) = @old;
print STDERR "$cpt\n";
## Disconnect
$dbh->disconnect;
|
