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
|
#!/usr/bin/perl
use strict;
use DBI;
if ($#ARGV < 0) {
die ("must specify database then action (list, add, del, preview)\n");
}
my $db = shift @ARGV;
my $dbh = DBI->connect_cached("dbi:SQLite:dbname=$db","","", { RaiseError => 1, PrintError => 0, AutoCommit => 1 });
my $action;
my $param;
if ($#ARGV < 0) {
die ("must specify action (list, add, del, preview)\n");
} else {
$action = shift @ARGV;
for ($action) {
if (/^preview$/) {
if ($#ARGV < 0) {
die ("Must specify jabber id");
}
my $sql = "SELECT [Group], ContactID, Contact, Subscription FROM RosterPreview WHERE UserID = ?";
my ($jid) = @ARGV;
my $roster = eval {
$dbh->selectall_arrayref($sql,{ Slite=> {} },$jid);
};
foreach my $item ( @$roster ) {
print "Entry: $item->[3] $item->[2]<$item->[1]> in group $item->[0]\n";
}
} elsif (/^list$/) {
my $sql = "SELECT jid, fullname, groupname FROM requiredusers ORDER BY groupname, fullname";
my $roster = eval {
$dbh->selectall_arrayref($sql,{ Slite=> {} });
};
foreach my $item ( @$roster ) {
print "Entry: $item->[1]<$item->[0]> in group $item->[2]\n";
}
} elsif (/^add$/) {
if ($#ARGV < 2) {
die ("Must specify jabber id, fullname and groupname");
}
my $sql = "INSERT INTO requiredusers (jid, fullname, groupname) VALUES (?, ?, ?)";
my ($jid, $fname, $gname) = @ARGV;
print "Adding: $fname<$jid> to group $gname\n";
$dbh->do($sql,undef,$jid,$fname,$gname);
} elsif (/^del$/) {
if ($#ARGV < 0) {
die ("Must specify jabber id");
}
my $sql = "DELETE FROM requiredusers WHERE jid = ?";
my ($jid) = @ARGV;
print "Deleting: $jid\n";
$dbh->do($sql,undef,$jid);
} else {
die ("Unknown action $action\n");
}
}
}
|
