VisTeam.pike

#!/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() {
}