Issue#56 Add command in steam-shell.pike to delete the objects.

tools/VisTeam.pike

@@ -0,0 +1,144 @@
+#!/usr/local/lib/steam/bin/steam
+
+/* Copyright (C) 2000-2004  Thomas Bopp, Thorsten Hampel, Ludger Merkens
+ * Copyright (C) 2003-2004  Martin Baehr
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * $Id: debug.pike.in,v 1.1 2009/09/28 14:19:52 nicke Exp $
+ */
+
+constant cvs_version = "$Id: edit.pike.in,v 1.0 2010/09/15 14:19:52 martin Exp $";
+
+inherit "applauncher.pike";
+inherit "steam-shell.pike";
+//inherit "/usr/local/lib/steam/server/modules/groups.pike";
+object conn, handler;
+mapping conn_options = ([]);
+object _Server, user_obj, file;
+array(object) myobj;
+
+int main(int argc, array(string) argv) {
+
+    options = init(argv);
+    _Server = conn->SteamObj(0);
+    users = _Server->get_module("users");
+    me = users->lookup(options->user);
+    all = assign(conn, _Server, users);
+    all = all + (([
+            ]));
+    myobj = ({create_object("Document", "Command.pike", "Holds the commands which the user will type.")});
+    //Variable from applauncher.pike to exit the script after execution.
+    exitcall=1;
+    return applaunch(myobj, demo);
+
+}
+
+mapping options = ([ ]);
+
+void ping(string host, string port, string user, string | void pw) {
+    call_out(ping, 10, host, port, user, pw);
+    mixed a = conn->send_command(14, 0);
+    if (a == "sTeam connection lost.") {
+        conn = ((program) "client_base.pike")();
+        conn->close();
+        if (conn->connect_server(host, port) && user != "guest") {
+            if (conn->send_command(14, 0) != "sTeam connection lost.") {
+                conn->login(user, pw, 1);
+                _Server = conn->SteamObj(0);
+                user_obj = _Server->get_module("users")->lookup(options->user);
+                array(object) filearr = ({file});
+                update(filearr);
+            }
+        }
+    }
+}
+
+mapping init(array argv) {
+
+    array opt = Getopt.find_all_options(argv, aggregate(
+            ({"host", Getopt.HAS_ARG, (
+        {"-h", "--host"})}),
+    ({"user", Getopt.HAS_ARG, (
+        {"-u", "--user"})}),
+    ({"port", Getopt.HAS_ARG, (
+        {"-p", "--port"})}),
+    ));
+
+    foreach(opt, array option) {
+        options[option[0]] = option[1];
+    }
+    if (!options->host)
+        options->host = "127.0.0.1";
+    if (!options->user)
+        options->user = "root";
+    if (!options->port)
+        options->port = 1900;
+    else
+        options->port = (int) options->port;
+
+    options->file = argv[-1];
+
+    string server_path = "/usr/local/lib/steam";
+
+    master()->add_include_path(server_path + "/server/include");
+    master()->add_program_path(server_path + "/server/");
+    master()->add_program_path(server_path + "/server/modules/groups.pike");
+    master()->add_program_path(server_path + "/conf/");
+    master()->add_program_path(server_path + "/spm/");
+    master()->add_program_path(server_path + "/server/net/coal/");
+
+    conn = ((program) "client_base.pike")();
+    //  groups_pgm = ((program)"groups.pike")();
+    int start_time = time();
+
+    werror("Connecting to sTeam server...\n");
+    while (!conn->connect_server(options->host, options->port)) {
+        if (time() - start_time > 120) {
+            throw (({" Couldn't connect to server. Please check steam.log for details! \n", backtrace()}));
+        }
+        werror("Failed to connect... still trying ... (server running ?)\n");
+        sleep(10);
+    }
+
+    if (lower_case(options->user) == "guest") {
+        ping(options->host, options->port, options->user);
+        return options;
+    }
+
+    mixed err;
+    string pw;
+    int tries = 3;
+    //readln->set_echo( 0 );
+    do {
+        pw = Input.read_password(sprintf("Password for %s@%s", options->user,
+                options->host), "steam");
+        //    pw ="steam"; 
+        //pw=readln->read(sprintf("passwd for %s@%s: ", options->user, options->host));
+    } while ((err = catch (conn->login(options->user, pw, 1))) && --tries);
+    //readln->set_echo( 1 );
+
+    if (err != 0) {
+        werror("Failed to log in!\nWrong Password!\n");
+        exit(1);
+    }
+    ping(options->host, options->port, options->user, pw);
+    return options;
+}
+
+void demo() {
+}
+
+