removing WSClient

docs/changelog/7.x.x.txt

@@ -26,6 +26,7 @@
    the default behavior is to copy ONLY the Calendar, and none of the events.
  - fixed: filtering of rich text areas very slow for large content
  - fixed: international characters are corrupted on export
+ - removed: WSClient
 
 7.6.4
  - Survey now will show progress and time limit.

docs/gotcha.txt

@@ -11,13 +11,21 @@ save you many hours of grief.
 --------------------------------------------------------------------
    * The deprecated use of Graphics::Magick has been eliminated. WebGUI uses
      Image::Magick exclusively for all image processing functions once again.
-    
+
    * The Head Block of Templates has been merged into the Extra Head
      Tags field.  Extra Head Tags are now added for all templates and
      assets included on a page, except for Style templates, which do
      not have Extra Head Tags.  Existing Extra Head Tags for Style
      templates have been removed.
 
+   * Web Services Client is no longer part of the official distribution of
+     WebGUI, but is still available to be maintained by third-parties. However,
+     if you don't want to use Web Services Client any longer, make sure you
+     delete all Web Services Clients from your site prior to the upgrade *and*
+     purge them from your trash. Then the upgrade will automatically uninstall
+     the Web Services Client from your site.
+
+
 7.6.4
 --------------------------------------------------------------------
    * The user facing portions of WebGUI's profile, inbox, friends, and "invite

docs/upgrades/upgrade_7.6.4-7.6.5.pl

@@ -31,13 +31,36 @@ my $session = start(); # this line required
 fixAccountMisspellings(  $session );
 removeTemplateHeadBlock( $session );
 updateMatrixListingScores( $session );
+removeSqlForm( $session );
 
 # upgrade functions go here
 finish($session); # this line required
 
+#----------------------------------------------------------------------------
+
+sub removeSqlForm {
+    my $session = shift;
+    print "\tOptionally removing Web Services Client...\n" unless $quiet;
+    my $db = $session->db;
+    unless ($db->quickScalar("select count(*) from asset where className='WebGUI::Asset::Wobject::WSClient'")) {
+        print "\t\tNot using it, so we're uninstalling it.\n" unless $quiet;
+        $session->config->delete("assets/WebGUI::Asset::Wobject::WSClient");
+        my @ids = $db->buildArray("select distinct assetId from template where namespace = 'WSClient'");
+        push @ids, qw(5YAbuwiVFUx-z8hcOAnsdQ);
+        foreach my $id (@ids) {
+            my $asset = WebGUI::Asset->newByDynamicClass($session, $id);
+            if (defined $asset) {
+                $asset->purge;
+            }
+        }
+        $db->write("drop table WSClient");
+    }
+    else {
+        print "\t\tThis site uses Web Services Client, so we won't uninstall it.\n" unless $quiet;
+    }
+}
 
 #----------------------------------------------------------------------------
-# Describe what our function does
 
 sub updateMatrixListingScores {
     my $session = shift;