Re: Thunderbird Indexing

[Pierre Östlund <pierre ostlund gmail com>]

My best guess would be that there's some parsing errors when reading 
Thunderbird's configuration files. Not sure what the actual problem is 
a.t.m. but the parsing code is supposed to be re-written once I get some 
time to do so. Still waiting for my CVS account as well (anything new in 
this matter Joe?).

Anyway, I've made a small patch that makes beagle print more debug data 
when the Thunderbird backend is run in debug mode. Could you try it out 
for me? Should work with 0.2.8 or CVS. Just run beagle like this:

BEAGLE_THUNDERBIRD_DEBUG=1 beagled

You could also, of course, add --fg in case you don't want beagle to 
fork. There should be a small text message saying that the Thunderbird 
backend is running in debug mode.

Thanks!

Pierre

John Halton skrev:
> I seem to be having the same problem. Here is the output from 
> beagle-index-info:
>
> Index information:
> Name: EvolutionDataServer
> Count: 0
> Indexing: False
>
> Name: EvolutionMail
> Count: 266
> Indexing: True
>
> Name: Thunderbird
> Count: 0
> Indexing: False
>
> Name: KMail
> Count: 0
> Indexing: False
>
> Name: Files
> Count: 2
> Indexing: False
>
> Name: GaimLog
> Count: 0
> Indexing: False
>
> Name: IndexingService
> Count: 29
> Indexing: True
>
> Name: Tomboy
> Count: 0
> Indexing: False
>
> Name: Blam
> Count: 0
> Indexing: False
>
> Name: Liferea
> Count: 1178
> Indexing: True
>
> Name: Akregator
> Count: 0
> Indexing: False
>
> Name: KonquerorHistory
> Count: 0
> Indexing: False
>
> Name: Kopete
> Count: 0
> Indexing: False
>
> I also attach my current Beagle log file.
>
> John
>
> (PS - apologies to OP for sending mail direct rather than to the list
> first time round!)
>
> On 8/28/06, Rick Friedman <rickfriedman verizon net> wrote:
> > Rick Friedman wrote:
> > > Hi!
> > >
> > > I am running the beagle package from Debian Sid (0.2.8-1). Do I 
> > need to
> > > do anything special to get beagle to index my emails from Thunderbird?
> > > So far, it doesn't seem to be indexing them.
> > >
> > > Rick
> >
> > Anyone have any ideas?
> >
> > Rick
> > --
> > Rick's Law - What cannot be imagined will be accomplished by a fool.
> >
> >
> >
> > _______________________________________________
> > Dashboard-hackers mailing list
> > Dashboard-hackers gnome org
> > http://mail.gnome.org/mailman/listinfo/dashboard-hackers
> ------------------------------------------------------------------------
>
> _______________________________________________
> Dashboard-hackers mailing list
> Dashboard-hackers gnome org
> http://mail.gnome.org/mailman/listinfo/dashboard-hackers
>   

--- Util/Thunderbird.cs	22 Aug 2006 19:59:36 -0000	1.3
+++ Util/Thunderbird.cs	28 Aug 2006 19:37:40 -0000
@@ -747,18 +747,19 @@
 
 				try {
 					string key = reg.Match (line).Result ("${key}");
+					Match m = id_reg.Match (key);
 
-					if (key.StartsWith ("account.account")) {
+					if (key.StartsWith ("account.account") && m.Success) {
 						if (Debug)
-							Logger.Log.Debug ("account.account: {0}", id_reg.Match (key).Result ("${id}"));
+							Logger.Log.Debug ("account.account: {0}", m.Result ("${id}"));
 
-						accounts.Enqueue (id_reg.Match (key).Result ("${id}"));
+						accounts.Enqueue (m.Result ("${id}"));
 					}
 
 					tbl [key] = reg.Match (line).Result ("${value}");
 				} catch (Exception e) { 
 					if (Debug)
-						Logger.Log.Debug (e, "ReadAccounts 1:");
+						Logger.Log.Debug (e, "ReadAccounts 1");
 				}
 			}
 			
@@ -783,7 +784,7 @@
 						(string) tbl [id + ".directory"], Convert.ToInt32 ((string) tbl [id + ".port"]), type, delimiter));
 				} catch (Exception e) {
 					if (Debug)
-						Logger.Log.Debug (e, "ReadAccounts 3:");
+						Logger.Log.Debug (e, "ReadAccounts 3: {0}", e);
 					continue;
 				}
 			}
--- beagled/ThunderbirdQueryable/ThunderbirdIndexer.cs	4 Aug 2006 03:24:51 -0000	1.1
+++ beagled/ThunderbirdQueryable/ThunderbirdIndexer.cs	28 Aug 2006 19:37:40 -0000
@@ -106,6 +106,9 @@
 			
 			foreach (string path in root_paths) {
 				foreach (TB.Account account in Thunderbird.ReadAccounts (path)) {
+					if (Thunderbird.Debug)
+						Logger.Log.Debug ("Processing {0}: {1}", account.Server, account.Path);
+					
 					if (Shutdown.ShutdownRequested)
 						return;
 					
@@ -136,12 +139,16 @@
 			if (stored_account == null && Directory.Exists (account.Path) && supported_types [account.Type] != null) {
 				account_list.Add (account);
 				IndexDirectory (account.Path);
-				//Logger.Log.Info ("Indexing {0} account {1}", account.Type.ToString (), account.Server);
+				
+				if (Thunderbird.Debug)
+					Logger.Log.Debug ("Indexing {0} account {1}", account.Type.ToString (), account.Server);
 			
 			} else if (stored_account == null && File.Exists (account.Path) && supported_types [account.Type] != null) {
 				account_list.Add (account);
 				IndexFile (account.Path);
-				//Logger.Log.Info ("Indexing {0} account {1}", account.Type.ToString (), account.Server);
+				
+				if (Thunderbird.Debug)
+					Logger.Log.Debug ("Indexing {0} account {1}", account.Type.ToString (), account.Server);
 				
 			} else if (stored_account != null &&
 				(stored_account.Server != account.Server ||
@@ -159,6 +166,8 @@
 				OnNotification (args);
 				
 				Logger.Log.Info ("Updated {0} with new account details", account.Server);
+			} else {
+				Logger.Log.Warn ("IndexAccount was called with an invalid account: {0} ({1})", account.Server, account.Path);
 			}
 		}