Moving examples, mapgenerator, and VisualParamGenerator to Programs folder (SVN is seriously ruined still, don't check out yet)

git-svn-id: http://libopenmetaverse.googlecode.com/svn/trunk@1961 52acb1d6-8a22-11de-b505-999d5b087335

Programs/examples/TestClient/Commands/Land/ParcelInfoCommand.cs

@@ -0,0 +1,64 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+using System.Threading;
+using OpenMetaverse;
+using OpenMetaverse.Utilities;
+
+namespace OpenMetaverse.TestClient
+{
+    public class ParcelInfoCommand : Command
+    {
+        private AutoResetEvent ParcelsDownloaded = new AutoResetEvent(false);
+
+        public ParcelInfoCommand(TestClient testClient)
+        {
+            Name = "parcelinfo";
+            Description = "Prints out info about all the parcels in this simulator";
+
+            testClient.Network.OnDisconnected += new NetworkManager.DisconnectedCallback(Network_OnDisconnected);
+        }
+
+        public override string Execute(string[] args, LLUUID fromAgentID)
+        {
+            StringBuilder sb = new StringBuilder();
+            string result;
+
+            ParcelManager.SimParcelsDownloaded del = delegate(Simulator simulator, InternalDictionary<int, Parcel> simParcels, int[,] parcelMap)
+            {
+                ParcelsDownloaded.Set();
+            };
+
+            ParcelsDownloaded.Reset();
+            Client.Parcels.OnSimParcelsDownloaded += del;
+            Client.Parcels.RequestAllSimParcels(Client.Network.CurrentSim);
+
+            if (Client.Network.CurrentSim.IsParcelMapFull())
+                ParcelsDownloaded.Set();
+
+            if (ParcelsDownloaded.WaitOne(20000, false) && Client.Network.Connected)
+            {
+                sb.AppendFormat("Downloaded {0} Parcels in {1} " + System.Environment.NewLine, 
+                    Client.Network.CurrentSim.Parcels.Count, Client.Network.CurrentSim.Name);
+
+                Client.Network.CurrentSim.Parcels.ForEach(delegate(Parcel parcel)
+                {
+                    sb.AppendFormat("Parcel[{0}]: Name: \"{1}\", Description: \"{2}\" ACL Count: {3} Traffic: {4}" + System.Environment.NewLine,
+                        parcel.LocalID, parcel.Name, parcel.Desc, parcel.AccessList.Count, parcel.Dwell);
+                });
+
+                result = sb.ToString();
+            }
+            else
+                result = "Failed to retrieve information on all the simulator parcels";
+
+            Client.Parcels.OnSimParcelsDownloaded -= del;
+            return result;
+        }
+
+        void Network_OnDisconnected(NetworkManager.DisconnectType reason, string message)
+        {
+            ParcelsDownloaded.Set();
+        }
+    }
+}