Util/Conf.cs

   1 //
   2 // Conf.cs
   3 //
   4 // Copyright (C) 2005 Novell, Inc.
   5 //
   6
   7 //
   8 // Permission is hereby granted, free of charge, to any person obtaining a copy
   9 // of this software and associated documentation files (the "Software"), to deal
  10 // in the Software without restriction, including without limitation the rights
  11 // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  12 // copies of the Software, and to permit persons to whom the Software is
  13 // furnished to do so, subject to the following conditions:
  14 //
  15 // The above copyright notice and this permission notice shall be included in all
  16 // copies or substantial portions of the Software.
  17 //
  18 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  19 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  20 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  21 // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  22 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  23 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  24 // SOFTWARE.
  25 //
  26
  27 using System;
  28 using System.Collections;
  29 using System.IO;
  30 using System.Diagnostics;
  31 using System.Reflection;
  32 using System.Xml.Serialization;
  33 using System.Text.RegularExpressions;
  34
  35 using Beagle.Util;
  36
  37 namespace Beagle.Util {
  38
  39         public class Conf {
  40
  41                 // No instantiation
  42                 private Conf () { }
  43
  44                 public static Hashtable Sections;
  45
  46                 public static IndexingConfig Indexing = null;
  47                 public static DaemonConfig Daemon = null;
  48                 public static SearchingConfig Searching = null;
  49
  50 //#if ENABLE_WEBSERVICES
  51                 public static NetworkingConfig Networking = null;
  52                 public static WebServicesConfig WebServices = null;
  53 //#endif
  54                 private static string configs_dir;
  55                 private static Hashtable mtimes;
  56                 private static Hashtable subscriptions;
  57
  58                 private static bool watching_for_updates;
  59                 private static bool update_watch_present;
  60
  61                 private static BindingFlags method_search_flags = BindingFlags.NonPublic | BindingFlags.Instance | BindingFlags.InvokeMethod;
  62
  63                 public delegate void ConfigUpdateHandler (Section section);
  64
  65                 static Conf ()
  66                 {
  67                         Sections = new Hashtable (3);
  68                         mtimes = new Hashtable (3);
  69                         subscriptions = new Hashtable (3);
  70
  71                         configs_dir = Path.Combine (PathFinder.StorageDir, "config");
  72                         if (!Directory.Exists (configs_dir))
  73                                 Directory.CreateDirectory (configs_dir);
  74
  75                         Conf.Load ();
  76                 }
  77
  78                 public static void WatchForUpdates ()
  79                 {
  80                         // Make sure we don't try and watch for updates more than once
  81                         if (update_watch_present)
  82                                 return;
  83
  84                         if (Inotify.Enabled) {
  85                                 Inotify.Subscribe (configs_dir, OnInotifyEvent, Inotify.EventType.Create | Inotify.EventType.CloseWrite);
  86                         } else {
  87                                 // Poll for updates every 60 secs
  88                                 GLib.Timeout.Add (60000, new GLib.TimeoutHandler (CheckForUpdates));
  89                         }
  90
  91                         update_watch_present = true;
  92                 }
  93
  94                 private static void OnInotifyEvent (Inotify.Watch watch, string path, string subitem, string srcpath, Inotify.EventType type)
  95                 {
  96                         if (subitem == "" || watching_for_updates == false)
  97                                 return;
  98
  99                         Load ();
 100                 }
 101
 102                 private static bool CheckForUpdates ()
 103                 {
 104                         if (watching_for_updates)
 105                                 Load ();
 106                         return true;
 107                 }
 108
 109                 public static void Subscribe (Type type, ConfigUpdateHandler callback)
 110                 {
 111                         if (!subscriptions.ContainsKey (type))
 112                                 subscriptions.Add (type, new ArrayList (1));
 113
 114                         ArrayList callbacks = (ArrayList) subscriptions [type];
 115                         callbacks.Add (callback);
 116                 }
 117
 118                 private static void NotifySubscribers (Section section)
 119                 {
 120                         Type type = section.GetType ();
 121                         ArrayList callbacks = (ArrayList) subscriptions [type];
 122
 123                         if (callbacks == null)
 124                                 return;
 125
 126                         foreach (ConfigUpdateHandler callback in callbacks)
 127                                 callback (section);
 128                 }
 129
 130                 public static void Load ()
 131                 {
 132                         Load (false);
 133                 }
 134
 135                 public static void Load (bool force)
 136                 {
 137                         Section temp;
 138
 139                         // FIXME: Yeah
 140                         LoadFile (typeof (IndexingConfig), Indexing, out temp, force);
 141                         Indexing = (IndexingConfig) temp;
 142                         NotifySubscribers (Indexing);
 143
 144                         LoadFile (typeof (DaemonConfig), Daemon, out temp, force);
 145                         Daemon = (DaemonConfig) temp;
 146                         NotifySubscribers (Daemon);
 147
 148                         LoadFile (typeof (SearchingConfig), Searching, out temp, force);
 149                         Searching = (SearchingConfig) temp;
 150                         NotifySubscribers (Searching);
 151
 152 //#if ENABLE_WEBSERVICES
 153                         LoadFile (typeof (NetworkingConfig), Networking, out temp, force);
 154                         Networking = (NetworkingConfig) temp;
 155                         NotifySubscribers (Networking);
 156
 157                         LoadFile (typeof (WebServicesConfig), WebServices, out temp, force);
 158                         WebServices = (WebServicesConfig) temp;
 159                         NotifySubscribers (WebServices);
 160 //#endif
 161
 162                         watching_for_updates = true;
 163                 }
 164
 165                 public static void Save ()
 166                 {
 167                         Save (false);
 168                 }
 169
 170                 public static void Save (bool force)
 171                 {
 172                         foreach (Section section in Sections.Values)
 173                                 if (force || section.SaveNeeded)
 174                                         SaveFile (section);
 175                 }
 176
 177                 private static bool LoadFile (Type type, Section current, out Section section, bool force)
 178                 {
 179                         section = current;
 180                         object [] attrs = Attribute.GetCustomAttributes (type, typeof (ConfigSection));
 181                         if (attrs.Length == 0)
 182                                 throw new ConfigException ("Could not find ConfigSection attribute on " + type);
 183
 184                         string sectionname = ((ConfigSection) attrs [0]).Name;
 185                         string filename = sectionname + ".xml";
 186                         string filepath = Path.Combine (configs_dir, filename);
 187                         if (!File.Exists (filepath)) {
 188                                 if (current == null)
 189                                         ConstructDefaultSection (type, sectionname, out section);
 190                                 return false;
 191                         }
 192
 193                         if (!force && current != null && mtimes.ContainsKey (sectionname) &&
 194                                         File.GetLastWriteTimeUtc (filepath).CompareTo ((DateTime) mtimes [sectionname]) <= 0)
 195                                 return false;
 196
 197                         Logger.Log.Debug ("Loading {0} from {1}", type, filename);
 198                         FileStream fs = null;
 199
 200                         try {
 201                                 fs = File.Open (filepath, FileMode.Open, FileAccess.Read, FileShare.Read);
 202                                 XmlSerializer serializer = new XmlSerializer (type);
 203                                 section = (Section) serializer.Deserialize (fs);
 204                         } catch (Exception e) {
 205                                 Logger.Log.Error ("Could not load configuration from {0}: {1}", filename, e.Message);
 206                                 if (fs != null)
 207                                         fs.Close ();
 208                                 if (current == null)
 209                                         ConstructDefaultSection (type, sectionname, out section);
 210                                 return false;
 211                         }
 212
 213                         fs.Close ();
 214                         Sections.Remove (sectionname);
 215                         Sections.Add (sectionname, section);
 216                         mtimes.Remove (sectionname);
 217                         mtimes.Add (sectionname, File.GetLastWriteTimeUtc (filepath));
 218                         return true;
 219                 }
 220
 221                 private static bool SaveFile (Section section)
 222                 {
 223                         Type type = section.GetType ();
 224                         object [] attrs = Attribute.GetCustomAttributes (type, typeof (ConfigSection));
 225                         if (attrs.Length == 0)
 226                                 throw new ConfigException ("Could not find ConfigSection attribute on " + type);
 227
 228                         string sectionname = ((ConfigSection) attrs [0]).Name;
 229                         string filename = sectionname + ".xml";
 230                         string filepath = Path.Combine (configs_dir, filename);
 231
 232                         Logger.Log.Debug ("Saving {0} to {1}", type, filename);
 233                         FileStream fs = null;
 234
 235                         try {
 236                                 watching_for_updates = false;
 237                                 fs = new FileStream (filepath, FileMode.Create);
 238                                 XmlSerializer serializer = new XmlSerializer (type);
 239                                 XmlFu.SerializeUtf8 (serializer, fs, section);
 240                         } catch (Exception e) {
 241                                 if (fs != null)
 242                                         fs.Close ();
 243                                 Logger.Log.Error ("Could not save configuration to {0}: {1}", filename, e);
 244                                 watching_for_updates = true;
 245                                 return false;
 246                         }
 247
 248                         fs.Close ();
 249                         mtimes.Remove (sectionname);
 250                         mtimes.Add (sectionname, File.GetLastWriteTimeUtc (filepath));
 251                         watching_for_updates = true;
 252                         return true;
 253                 }
 254
 255                 private static void ConstructDefaultSection (Type type, string sectionname, out Section section)
 256                 {
 257                         ConstructorInfo ctor = type.GetConstructor (Type.EmptyTypes);
 258                         section = (Section) ctor.Invoke (null);
 259                         Sections.Remove (sectionname);
 260                         Sections.Add (sectionname, section);
 261                 }
 262
 263                 // Lists all config file options in a hash table where key is option name,
 264                 // and value is description.
 265                 public static Hashtable GetOptions (Section section)
 266                 {
 267                         Hashtable options = new Hashtable ();
 268                         MemberInfo [] members = section.GetType ().GetMembers (method_search_flags);
 269
 270                         // Find all of the methods ("options") inside the specified section
 271                         // object which have the ConfigOption attribute.
 272                         foreach (MemberInfo member in members) {
 273                                 object [] attrs = member.GetCustomAttributes (typeof (ConfigOption), false);
 274                                 if (attrs.Length > 0)
 275                                         options.Add (member.Name, ((ConfigOption) attrs [0]).Description);
 276                         }
 277
 278                         return options;
 279                 }
 280
 281                 public static bool InvokeOption (Section section, string option, string [] args, out string output)
 282                 {
 283                         MethodInfo method = section.GetType ().GetMethod (option, method_search_flags);
 284                         if (method == null) {
 285                                 string msg = String.Format ("No such method '{0}' for section '{1}'", option, section);
 286                                 throw new ConfigException(msg);
 287                         }
 288                         object [] attrs = method.GetCustomAttributes (typeof (ConfigOption), false);
 289                         if (attrs.Length == 0) {
 290                                 string msg = String.Format ("Method '{0}' is not a configurable option", option);
 291                                 throw new ConfigException (msg);
 292                         }
 293
 294                         // Check the required number of parameters have been provided
 295                         ConfigOption attr = (ConfigOption) attrs [0];
 296                         if (attr.Params > 0 && args.Length < attr.Params) {
 297                                 string msg = String.Format ("Option '{0}' requires {1} parameter(s): {2}", option, attr.Params, attr.ParamsDescription);
 298                                 throw new ConfigException (msg);
 299                         }
 300
 301                         object [] methodparams = { null, args };
 302                         bool result = (bool) method.Invoke (section, methodparams);
 303                         output = (string) methodparams [0];
 304
 305                         // Mark the section as save-needed if we just changed something
 306                         if (result && attr.IsMutator)
 307                                 section.SaveNeeded = true;
 308
 309                         return result;
 310                 }
 311
 312                 [ConfigSection (Name="searching")]
 313                 public class SearchingConfig : Section {
 314
 315                         private bool autostart = true;
 316                         public bool Autostart {
 317                                 get { return autostart; }
 318                                 set { autostart = value; }
 319                         }
 320
 321                         private KeyBinding show_search_window_binding = new KeyBinding ("F12");
 322                         public KeyBinding ShowSearchWindowBinding {
 323                                 get { return show_search_window_binding; }
 324                                 set { show_search_window_binding = value; }
 325                         }
 326
 327                         private int max_displayed = 5;
 328                         public int MaxDisplayed {
 329                                 get { return max_displayed; }
 330                                 set {
 331                                         if (value <= 0)
 332                                                 max_displayed = 1;
 333                                         else
 334                                                 max_displayed = value;
 335                                 }
 336                         }
 337
 338                         // BeagleSearch window position and dimension
 339                         // stored as percentage of screen co-ordinates
 340                         // to deal with change of resolution problem - hints from tberman
 341
 342                         private float beagle_search_pos_x = 0;
 343                         public float BeaglePosX {
 344                                 get { return beagle_search_pos_x; }
 345                                 set { beagle_search_pos_x = value; }
 346                         }
 347
 348                         private float beagle_search_pos_y = 0;
 349                         public float BeaglePosY {
 350                                 get { return beagle_search_pos_y; }
 351                                 set { beagle_search_pos_y = value; }
 352                         }
 353
 354                         private float beagle_search_width = 0;
 355                         public float BeagleSearchWidth {
 356                                 get { return beagle_search_width; }
 357                                 set { beagle_search_width = value; }
 358                         }
 359
 360                         private float beagle_search_height = 0;
 361                         public float BeagleSearchHeight {
 362                                 get { return beagle_search_height; }
 363                                 set { beagle_search_height = value; }
 364                         }
 365
 366                         // ah!We want a Queue but Queue doesnt serialize *easily*
 367                         private ArrayList search_history = new ArrayList ();
 368                         public ArrayList SearchHistory {
 369                                 get { return search_history; }
 370                                 set { search_history = value; }
 371                         }
 372
 373                 }
 374
 375                 [ConfigSection (Name="daemon")]
 376                 public class DaemonConfig : Section {
 377                         private ArrayList static_queryables = new ArrayList ();
 378                         public ArrayList StaticQueryables {
 379                                 get { return static_queryables; }
 380                                 set { static_queryables = value; }
 381                         }
 382
 383                         // By default, every backend is allowed.
 384                         // Only maintain a list of denied backends.
 385                         private ArrayList denied_backends = new ArrayList ();
 386                         public ArrayList DeniedBackends {
 387                                 get { return denied_backends; }
 388                                 set { denied_backends = value; }
 389                         }
 390
 391                         private bool allow_static_backend = false; // by default, false
 392                         public bool AllowStaticBackend {
 393                                 get { return allow_static_backend; }
 394                                 // Don't really want to expose this, but serialization requires it
 395                                 set { allow_static_backend = value; }
 396                         }
 397
 398                         private bool index_synchronization = true;
 399                         public bool IndexSynchronization {
 400                                 get { return index_synchronization; }
 401                                 // Don't really want to expose this, but serialization requires it
 402                                 set { index_synchronization = value; }
 403                         }
 404
 405                         [ConfigOption (Description="Enable a backend", Params=1, ParamsDescription="Name of the backend to enable")]
 406                         internal bool AllowBackend (out string output, string [] args)
 407                         {
 408                                 denied_backends.Remove (args [0]);
 409                                 output = "Backend allowed (need to restart beagled for changes to take effect).";
 410                                 return true;
 411                         }
 412
 413                         [ConfigOption (Description="Disable a backend", Params=1, ParamsDescription="Name of the backend to disable")]
 414                         internal bool DenyBackend (out string output, string [] args)
 415                         {
 416                                 denied_backends.Add (args [0]);
 417                                 output = "Backend disabled (need to restart beagled for changes to take effect).";
 418                                 return true;
 419                         }
 420
 421                         private bool allow_root = false;
 422                         public bool AllowRoot {
 423                                 get { return allow_root; }
 424                                 set { allow_root = value; }
 425                         }
 426
 427                         [ConfigOption (Description="Add a static queryable", Params=1, ParamsDescription="Index path")]
 428                         internal bool AddStaticQueryable (out string output, string [] args)
 429                         {
 430                                 static_queryables.Add (args [0]);
 431                                 output = "Static queryable added.";
 432                                 return true;
 433                         }
 434
 435                         [ConfigOption (Description="Remove a static queryable", Params=1, ParamsDescription="Index path")]
 436                         internal bool DelStaticQueryable (out string output, string [] args)
 437                         {
 438                                 static_queryables.Remove (args [0]);
 439                                 output = "Static queryable removed.";
 440                                 return true;
 441                         }
 442
 443                         [ConfigOption (Description="List user-specified static queryables", IsMutator=false)]
 444                         internal bool ListStaticQueryables (out string output, string [] args)
 445                         {
 446                                 output = "User-specified static queryables:\n";
 447                                 foreach (string index_path in static_queryables)
 448                                         output += String.Format (" - {0}\n", index_path);
 449                                 return true;
 450                         }
 451
 452                         [ConfigOption (Description="Toggles whether static indexes will be enabled")]
 453                         internal bool ToggleAllowStaticBackend (out string output, string [] args)
 454                         {
 455                                 allow_static_backend = !allow_static_backend;
 456                                 output = "Static indexes are " + ((allow_static_backend) ? "enabled" : "disabled") + " (need to restart beagled for changes to take effect).";
 457                                 return true;
 458                         }
 459
 460                         [ConfigOption (Description="Toggles whether your indexes will be synchronized locally if your home directory is on a network device (eg. NFS/Samba)")]
 461                         internal bool ToggleIndexSynchronization (out string output, string [] args)
 462                         {
 463                                 index_synchronization = !index_synchronization;
 464                                 output = "Index Synchronization is " + ((index_synchronization) ? "enabled" : "disabled") + ".";
 465                                 return true;
 466                         }
 467
 468                         [ConfigOption (Description="Toggles whether Beagle can be run as root")]
 469                         internal bool ToggleAllowRoot (out string output, string [] args)
 470                         {
 471                                 allow_root = ! allow_root;
 472                                 if (allow_root)
 473                                         output = "Beagle is now permitted to run as root";
 474                                 else
 475                                         output = "Beagle is no longer permitted to run as root";
 476                                 return true;
 477                         }
 478                 }
 479
 480                 [ConfigSection (Name="indexing")]
 481                 public class IndexingConfig : Section
 482                 {
 483                         private ArrayList roots = new ArrayList ();
 484                         [XmlArray]
 485                         [XmlArrayItem(ElementName="Root", Type=typeof(string))]
 486                         public ArrayList Roots {
 487                                 get { return roots; }
 488                                 set { roots = value; }
 489                         }
 490
 491                         private bool index_home_dir = true;
 492                         public bool IndexHomeDir {
 493                                 get { return index_home_dir; }
 494                                 set { index_home_dir = value; }
 495                         }
 496
 497                         private ArrayList excludes = new ArrayList ();
 498                         [XmlArray]
 499                         [XmlArrayItem (ElementName="ExcludeItem", Type=typeof(ExcludeItem))]
 500                         public ArrayList Excludes {
 501                                 get { return excludes; }
 502                                 set { excludes = value; }
 503                         }
 504
 505                         [ConfigOption (Description="List the indexing roots", IsMutator=false)]
 506                         internal bool ListRoots (out string output, string [] args)
 507                         {
 508                                 output = "Current roots:\n";
 509                                 if (this.index_home_dir == true)
 510                                         output += " - Your home directory\n";
 511                                 foreach (string root in roots)
 512                                         output += " - " + root + "\n";
 513
 514                                 return true;
 515                         }
 516
 517                         [ConfigOption (Description="Toggles whether your home directory is to be indexed as a root")]
 518                         internal bool IndexHome (out string output, string [] args)
 519                         {
 520                                 if (index_home_dir)
 521                                         output = "Your home directory will not be indexed.";
 522                                 else
 523                                         output = "Your home directory will be indexed.";
 524                                 index_home_dir = !index_home_dir;
 525                                 return true;
 526                         }
 527
 528                         [ConfigOption (Description="Add a root path to be indexed", Params=1, ParamsDescription="A path")]
 529                         internal bool AddRoot (out string output, string [] args)
 530                         {
 531                                 roots.Add (args [0]);
 532                                 output = "Root added.";
 533                                 return true;
 534                         }
 535
 536                         [ConfigOption (Description="Remove an indexing root", Params=1, ParamsDescription="A path")]
 537                         internal bool DelRoot (out string output, string [] args)
 538                         {
 539                                 roots.Remove (args [0]);
 540                                 output = "Root removed.";
 541                                 return true;
 542                         }
 543
 544                         [ConfigOption (Description="List user-specified resources to be excluded from indexing", IsMutator=false)]
 545                         internal bool ListExcludes (out string output, string [] args)
 546                         {
 547                                 output = "User-specified resources to be excluded from indexing:\n";
 548                                 foreach (ExcludeItem exclude_item in excludes)
 549                                         output += String.Format (" - [{0}] {1}\n", exclude_item.Type.ToString (), exclude_item.Value);
 550                                 return true;
 551                         }
 552
 553                         [ConfigOption (Description="Add a resource to exclude from indexing", Params=2, ParamsDescription="A type [path/pattern/mailfolder], a path/pattern/name")]
 554                         internal bool AddExclude (out string output, string [] args)
 555                         {
 556                                 ExcludeType type;
 557                                 try {
 558                                         type = (ExcludeType) Enum.Parse (typeof (ExcludeType), args [0], true);
 559                                 } catch (Exception e) {
 560                                         output = String.Format("Invalid type '{0}'. Valid types: Path, Pattern, MailFolder", args [0]);
 561                                         return false;
 562                                 }
 563
 564                                 excludes.Add (new ExcludeItem (type, args [1]));
 565                                 output = "Exclude added.";
 566                                 return true;
 567                         }
 568
 569                         [ConfigOption (Description="Remove an excluded resource", Params=2, ParamsDescription="A type [path/pattern/mailfolder], a path/pattern/name")]
 570                         internal bool DelExclude (out string output, string [] args)
 571                         {
 572                                 ExcludeType type;
 573                                 try {
 574                                         type = (ExcludeType) Enum.Parse (typeof (ExcludeType), args [0], true);
 575                                 } catch (Exception e) {
 576                                         output = String.Format("Invalid type '{0}'. Valid types: Path, Pattern, MailFolder", args [0]);
 577                                         return false;
 578                                 }
 579
 580                                 foreach (ExcludeItem item in excludes) {
 581                                         if (item.Type != type || item.Value != args [1])
 582                                                 continue;
 583                                         excludes.Remove (item);
 584                                         output = "Exclude removed.";
 585                                         return true;
 586                                 }
 587
 588                                 output = "Could not find requested exclude to remove.";
 589                                 return false;
 590                         }
 591
 592                 }
 593
 594 //#if ENABLE_WEBSERVICES
 595                 [ConfigSection (Name="webservices")]
 596                 public class WebServicesConfig: Section
 597                 {
 598                         private ArrayList publicFolders = new ArrayList ();
 599                         [XmlArray]
 600                         [XmlArrayItem(ElementName="PublicFolders", Type=typeof(string))]
 601                         public ArrayList PublicFolders {
 602                                 get { return publicFolders; }
 603                                 set { publicFolders = value; }
 604                         }
 605
 606                         private bool allowGlobalAccess = true;
 607                         public bool AllowGlobalAccess {
 608                                 get { return allowGlobalAccess; }
 609                                 set { allowGlobalAccess = value; }
 610                         }
 611
 612                         [ConfigOption (Description="List the public folders", IsMutator=false)]
 613                         internal bool ListPublicFolders(out string output, string [] args)
 614                         {
 615                                 output = "Current list of public folders:\n";
 616
 617                                 foreach (string pf in publicFolders)
 618                                         output += " - " + pf + "\n";
 619
 620                                 return true;
 621                         }
 622
 623                         [ConfigOption (Description="Check current configuration of global access to Beagle web-services", IsMutator=false)]
 624                         internal bool CheckGlobalAccess(out string output, string [] args)
 625                         {
 626                                 if (allowGlobalAccess)
 627                                         output = "Global Access to Beagle WebServices is currently ENABLED.";
 628                                 else
 629                                         output = "Global Access to Beagle WebServices is currently DISABLED.";
 630
 631                                 return true;
 632                         }
 633
 634                         [ConfigOption (Description="Enable/Disable global access to Beagle web-services")]
 635                         internal bool SwitchGlobalAccess (out string output, string [] args)
 636                         {
 637                                 allowGlobalAccess = !allowGlobalAccess;
 638
 639                                 if (allowGlobalAccess)
 640                                         output = "Global Access to Beagle WebServices now ENABLED.";
 641                                 else
 642                                         output = "Global Access to Beagle WebServices now DISABLED.";
 643
 644                                 return true;
 645                         }
 646
 647                         [ConfigOption (Description="Add public web-service access to a folder", Params=1, ParamsDescription="A path")]
 648                         internal bool AddPublicFolder (out string output, string [] args)
 649                         {
 650                                 publicFolders.Add (args [0]);
 651                                 output = "PublicFolder " + args[0] + " added.";
 652                                 return true;
 653                         }
 654
 655                         [ConfigOption (Description="Remove public web-service access to a folder", Params=1, ParamsDescription="A path")]
 656                         internal bool DelPublicFolder (out string output, string [] args)
 657                         {
 658                                 publicFolders.Remove (args [0]);
 659                                 output = "PublicFolder " + args[0] + " removed.";
 660                                 return true;
 661                         }
 662
 663                 }
 664
 665                 [ConfigSection (Name="networking")]
 666                 public class NetworkingConfig: Section
 667                 {
 668                         private ArrayList netBeagleNodes = new ArrayList ();
 669
 670                         [XmlArray]
 671                         [XmlArrayItem(ElementName="NetBeagleNodes", Type=typeof(string))]
 672                         public ArrayList NetBeagleNodes {
 673                                 get { return netBeagleNodes; }
 674                                 set { netBeagleNodes = value; }
 675                         }
 676
 677                         [ConfigOption (Description="List Networked Beagle Daemons to query", IsMutator=false)]
 678                         internal bool ListBeagleNodes (out string output, string [] args)
 679                         {
 680                                 output = "Current list of Networked Beagle Daemons to query:\n";
 681
 682                                 foreach (string nb in netBeagleNodes)
 683                                         output += " - " + nb + "\n";
 684
 685                                 return true;
 686                         }
 687
 688                         [ConfigOption (Description="Add a Networked Beagle Daemon to query", Params=1, ParamsDescription="HostName:PortNo")]
 689                         internal bool AddBeagleNode (out string output, string [] args)
 690                         {
 691                                 string node = args[0];
 692
 693                                 if (((string[])node.Split(':')).Length < 2)
 694                                         node = args [0].Trim() + ":8888";
 695
 696                                 netBeagleNodes.Add(node);
 697                                 output = "Networked Beagle Daemon \"" + node +"\" added.";
 698                                 return true;
 699                         }
 700
 701                         [ConfigOption (Description="Remove a configured Networked Beagle Daemon", Params=1, ParamsDescription="HostName:PortNo")]
 702                         internal bool DelBeagleNode (out string output, string [] args)
 703                         {
 704                                 string node = args[0];
 705
 706                                 if (((string[])node.Split(':')).Length < 2)
 707                                         node = args [0].Trim() + ":8888";
 708
 709                                 netBeagleNodes.Remove(node);
 710                                 output = "Networked Beagle Daemon \"" + node +"\" removed.";
 711                                 return true;
 712                         }
 713                 }
 714 //#endif
 715
 716                 public class Section {
 717                         [XmlIgnore]
 718                         public bool SaveNeeded = false;
 719                 }
 720
 721                 private class ConfigOption : Attribute {
 722                         public string Description;
 723                         public int Params;
 724                         public string ParamsDescription;
 725                         public bool IsMutator = true;
 726                 }
 727
 728                 private class ConfigSection : Attribute {
 729                         public string Name;
 730                 }
 731
 732                 public class ConfigException : Exception {
 733                         public ConfigException (string msg) : base (msg) { }
 734                 }
 735
 736         }
 737
 738         //////////////////////////////////////////////////////////////////////
 739
 740         public enum ExcludeType {
 741                 Path,
 742                 Pattern,
 743                 MailFolder
 744         }
 745
 746         public class ExcludeItem {
 747
 748                 private ExcludeType type;
 749                 private string val;
 750
 751                 [XmlAttribute]
 752                 public ExcludeType Type {
 753                         get { return type; }
 754                         set { type = value; }
 755                 }
 756
 757                 private string exactMatch;
 758                 private string prefix;
 759                 private string suffix;
 760                 private Regex  regex;
 761
 762                 [XmlAttribute]
 763                 public string Value {
 764                         get { return val; }
 765                         set {
 766                                 switch (type) {
 767                                 case ExcludeType.Path:
 768                                 case ExcludeType.MailFolder:
 769                                         prefix = value;
 770                                         break;
 771
 772                                 case ExcludeType.Pattern:
 773                                         if (value.StartsWith ("/") && value.EndsWith ("/")) {
 774                                                 regex = new Regex (value.Substring (1, value.Length - 2));
 775                                                 break;
 776                                         }
 777
 778                                         int i = value.IndexOf ('*');
 779                                         if (i == -1) {
 780                                                 exactMatch = value;
 781                                         } else {
 782                                                 if (i > 0)
 783                                                         prefix = value.Substring (0, i);
 784                                                 if (i < value.Length-1)
 785                                                         suffix = value.Substring (i+1);
 786                                         }
 787                                         break;
 788                                 }
 789
 790                                 val = value;
 791                         }
 792                 }
 793
 794                 public ExcludeItem () {}
 795
 796                 public ExcludeItem (ExcludeType type, string value) {
 797                         this.Type = type;
 798                         this.Value = value;
 799                 }
 800
 801                 public bool IsMatch (string param)
 802                 {
 803                         switch (Type) {
 804                         case ExcludeType.Path:
 805                         case ExcludeType.MailFolder:
 806                                 if (prefix != null && ! param.StartsWith (prefix))
 807                                         return false;
 808
 809                                 return true;
 810
 811                         case ExcludeType.Pattern:
 812                                 if (exactMatch != null)
 813                                         return param == exactMatch;
 814                                 if (prefix != null && ! param.StartsWith (prefix))
 815                                         return false;
 816                                 if (suffix != null && ! param.EndsWith (suffix))
 817                                         return false;
 818                                 if (regex != null && ! regex.IsMatch (param))
 819                                         return false;
 820
 821                                 return true;
 822                         }
 823
 824                         return false;
 825                 }
 826
 827                 public override bool Equals (object obj)
 828                 {
 829                         ExcludeItem exclude = obj as ExcludeItem;
 830                         return (exclude != null && exclude.Type == type && exclude.Value == val);
 831                 }
 832
 833                 public override int GetHashCode ()
 834                 {
 835                         return (this.Value.GetHashCode () ^ (int) this.Type);
 836                 }
 837
 838         }
 839
 840         //////////////////////////////////////////////////////////////////////
 841
 842         public class KeyBinding {
 843                 public string Key;
 844
 845                 [XmlAttribute]
 846                 public bool Ctrl = false;
 847                 [XmlAttribute]
 848                 public bool Alt = false;
 849
 850                 public KeyBinding () {}
 851                 public KeyBinding (string key) : this (key, false, false) {}
 852
 853                 public KeyBinding (string key, bool ctrl, bool alt)
 854                 {
 855                         Key = key;
 856                         Ctrl = ctrl;
 857                         Alt = alt;
 858                 }
 859
 860                 public override string ToString ()
 861                 {
 862                         string result = "";
 863
 864                         if (Ctrl)
 865                                 result += "<Ctrl>";
 866                         if (Alt)
 867                                 result += "<Alt>";
 868
 869                         result += Key;
 870
 871                         return result;
 872                 }
 873
 874                 public string ToReadableString ()
 875                 {
 876                         return ToString ().Replace (">", "-").Replace ("<", "");
 877                 }
 878         }
 879 }