--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@repogui2/cb_get_dbs.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,104 @@
+% CB_GET_DBS callback when the user clicks the 'get dbs' button.
+%
+% M Hewitson 22-09-08
+%
+% $Id: cb_get_dbs.m,v 1.2 2011/04/08 08:56:36 hewitson Exp $
+%
+
+function cb_get_dbs(varargin)
+
+  % Handles
+  myh     = varargin{1};
+  mainfig = varargin{end};
+
+  tables = {'collections', 'objmeta', 'objs', 'transactions', 'users'};
+
+  % Get conn
+  conn = mainfig.connection;
+  % Assume I don't need to open the connection
+  wasEmpty = 0;
+
+  % Open connection, if necessary
+  if isempty(conn)
+
+    % we opened the connection
+    wasEmpty = 1;
+
+    % have we a stored username and password
+    dbuser = mainfig.dbuser;
+    dbpass = mainfig.dbpass;
+
+    % get hostname
+    hostname = get(findobj(mainfig.handle, 'Tag','RepoguiServerEdit'), 'String');
+    if isempty(hostname)
+      error('### Please select a server to connect to.');
+    end
+
+    % connect
+    if ~isempty(dbuser) && ~isempty(dbpass)
+      conn = utils.mysql.connect(hostname, 'test', dbuser, dbpass);
+    else
+      [conn, dbpass] = utils.mysql.connect(hostname);
+    end
+    if ~isa(conn, 'database')
+      error('### couldn''t connect to server');
+    end
+
+    % store the connection
+    mainfig.dbuser = conn.Username;
+    mainfig.dbpass = dbpass;
+
+  end
+
+  % get the databases
+  q = 'show databases';
+  curs = exec(conn, q);
+  curs = fetch(curs);
+
+  ltpda_dbs = [];
+  % Now get the LTPDA databases
+  for j=1:length(curs.Data)
+    db = curs.Data{j};
+
+    if ~strcmp(db, 'information_schema')
+
+      q = sprintf('show tables from %s', db);
+      c = exec(conn, q);
+      c = fetch(c);
+      match = 0;
+      for l=1:length(c.Data)
+        for k=1:length(tables)
+          if strcmp(c.Data{l}, tables{k})
+            match = match + 1;
+          end
+        end
+      end
+      close(c);
+      if match == 5
+        % we have an LTPDA database
+        ltpda_dbs = [ltpda_dbs cellstr(db)];
+      end
+    end
+
+  end
+  close(curs);
+
+  % If I opened the connection, close it again
+  if wasEmpty
+    close(conn);
+  end
+
+  % Set the list
+  id = findobj(mainfig.handle, 'Tag', 'RepoguiDatabaseList');
+  set(id, 'String', ltpda_dbs, 'Value', 1);
+
+  % Get selected DB
+  dbh = findobj(mainfig.handle, 'Tag', 'RepoguiDatabaseList');
+  dbs = get(dbh, 'String');
+  db  = dbs{1};
+
+  % set selected DB
+  dbh = findobj(mainfig.handle, 'Tag', 'RepoguiDatabaseEdit');
+  set(dbh, 'String', db);
+
+end