File: addref.pl

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 (26 lines) | stat: -rwxr-xr-x 614 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
20
21
22
23
24
25
26
 
#!/usr/bin/perl
require 'prontolib.pl';
read_prefs();
$conn = &open_db_conn;
$sql = "select id from messages";
$query = $conn->prepare($sql);
$query->execute();
$count = 0;
while (($msgid) = $query->fetchrow_array()) {
$tmp = filename_to_tree("$prefs{'MailDir'}/$msgid");
open(TMP,"<$tmp");
while (<TMP>) {
if (/^References:\s*(.+)/i) { print ("message: $msgid has ref $1\n");
$sql = "update messages set ref = '$1' where id = '$msgid'";
$conn->do($sql);
$count++
  
  }

}

close(TMP);
}
print $count . "messages updated\n";
#$sql = "update messages set inreplyto = '' where inreplyto is NULL";
#$conn->do($sql);