<?php

#
# Based on the create_user script which is part of the weave_minimal package.
#
# Modified by JED/$Id$
#
# ***** BEGIN LICENSE BLOCK *****
# Version: MPL 1.1/GPL 2.0/LGPL 2.1
#
# The contents of this file are subject to the Mozilla Public License Version
# 1.1 (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
# http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS IS" basis,
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
# for the specific language governing rights and limitations under the
# License.
#
# The Original Code is Weave Minimal Server
#
# The Initial Developer of the Original Code is
# Mozilla Labs.
# Portions created by the Initial Developer are Copyright (C) 2008
# the Initial Developer. All Rights Reserved.
#
# Contributor(s):
#   Toby Elliott (telliott@mozilla.com)
#
# Alternatively, the contents of this file may be used under the terms of
# either the GNU General Public License Version 2 or later (the "GPL"), or
# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
# in which case the provisions of the GPL or the LGPL are applicable instead
# of those above. If you wish to allow use of your version of this file only
# under the terms of either the GPL or the LGPL, and not to allow others to
# use your version of this file under the terms of the MPL, indicate your
# decision by deleting the provisions above and replace them with the notice
# and other provisions required by the GPL or the LGPL. If you do not delete
# the provisions above, a recipient may use your version of this file under
# the terms of any one of the MPL, the GPL or the LGPL.
#
# ***** END LICENSE BLOCK *****

    # Utility base32 SHA1 class for PHP5
    # Copyright (C) 2006  Karl Magdsick (original author for Python)
    #                     Angel Leon (ported to PHP5)
    #                     Lime Wire LLC
    #
    # 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., 51 Franklin Street, Fifth Floor, Boston, MA
    # 02110-1301, USA.

    class SHA1 {
        static $BASE32_ALPHABET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567';

        # given a file it creates a magnetmix
        static function fileSHA1($file) {
            $raw = sha1_file($file,true);
            return SHA1::base32encode($raw);
        } //fileSHA1

        # takes raw input and converts it to base32
        static function base32encode($input) {
            $output = '';
            $position = 0;
            $storedData = 0;
            $storedBitCount = 0;
            $index = 0;

            while ($index < strlen($input)) {
                $storedData <<= 8;
                $storedData += ord($input[$index]);
                $storedBitCount += 8;
                $index += 1;

                # take as much data as possible out of storedData
                while ($storedBitCount >= 5) {
                    $storedBitCount -= 5;
                    $output .= SHA1::$BASE32_ALPHABET[$storedData >> $storedBitCount];
                    $storedData &= ((1 << $storedBitCount) - 1);
                }
            } //while

            # deal with leftover data
            if ($storedBitCount > 0) {
                $storedData <<= (5-$storedBitCount);
                $output .= SHA1::$BASE32_ALPHABET[$storedData];
            }

            return $output;
        } //base32encode
    }

    function convert_username($name) {
        if (strpos($name, '@')) {
            $name = strtolower($name);
            $hashed = sha1($name, true);
            $name = strtolower(SHA1::base32encode($hashed));
        }
        return $name;
    }

    require_once 'weave_storage.php';
    $db = new WeaveStorage(null);
    
    $action = '';
    $name   = '';
    $pwd    = '';
    $rname  = '';
    $ret_code = 1;

    # remember, argc counter normally starts with value '0'!
    if ($argc > 1) {
        $i = 1;
        while ($i < $argc) {
            switch ($argv[$i]) {
                case '-c':
                    $action = 'create';
                    break;
                case '-d':
                    $action = 'delete';
                    break;
                case '-h':
                    $action = 'help';
                    break;
                case '-l':
                    $action = 'list';
                    break;
                case '-p':
                    $action = 'password';
                    break;
                case '-u':
                    # username
                    $name = trim($argv[$i + 1]);
                    $i++;
                    break;
                case '-s':
                    # secret password
                    $pwd = trim($argv[$i + 1]);
                    $i++;
                    break;
                default:
                    break;
            }

            $i++;
        }

      # echo "argc  : $argc\n";
      # echo "action: $action\n";
      # echo "user  : $name\n";
      # echo "pass  : $pwd\n";

        switch ($action) {
            case 'create':
                $rname = $name;
                if (strpos($name, '@'))
                    $name = convert_username($name);
                if ($db->create_user($name, $pwd, $rname)) {
                    $ret_code = 0;
                }
                break;

            case 'delete':
                if (strpos($name, '@'))
                    $name = convert_username($name);
                if ($db->delete_user($name)) {
                    $ret_code = 0;
                }
                break;

            case 'help':
                echo "Interactive usage:\n";
                echo "  create_user_silent - start program interactively\n";
                echo "\n";
                echo "Command line usage:\n";
                echo "  create_user_silent -c -u username|email address -s password - create new user\n";
                echo "  create_user_silent -d -u username|email address             - delete existing user\n";
                echo "  create_user_silent -h                                       - show this help\n";
                echo "  create_user_silent -l                                       - list all users\n";
                echo "  create_user_silent -p -u username|email address -s password - change password\n";
                break;
            case 'list':
                if ($db->get_collection_list) {
                    $ret_code = 0;
                }
                break;

            case 'password':
                if (strpos($name, '@'))
                    $name = convert_username($name);
                if ($db->change_password($name,$pwd)) {
                    $ret_code = 0;
                }
                break;
        }
    } else {
        fwrite(STDOUT, "(c)reate, (d)elete or change (p)assword: ");
        switch (substr(fgets(STDIN), 0, 1)) {
            case 'c':
                # create
                fwrite(STDOUT, "Please enter email address: ");
                $name = trim(fgets(STDIN));
                $rname = $name;
                if (strpos($name, '@'))
                    $name = convert_username($name);

                fwrite(STDOUT, "Please enter password: ");
                $pwd = trim(fgets(STDIN));

                if ($db->create_user($name, $pwd, $rname))
                    echo "$name created\n";
                else
                    echo "An error occured\n";
                break;

            case 'd':
                # delete
                fwrite(STDOUT, "Please enter email address: ");  
                $name = trim(fgets(STDIN));
                if (strpos($name, '@'))
                    $name = convert_username($name);

                if ($db->delete_user($name))
                    echo "$name deleted\n";
                else
                    echo "An error occured\n";
                break;

            case 'p':
                # change password
                fwrite(STDOUT, "Please enter email address: ");  
                $name = trim(fgets(STDIN));
                if (strpos($name, '@'))
                    $name = convert_username($name);

                fwrite(STDOUT, "Please enter new password: ");  
                $password = trim(fgets(STDIN));
                if ($db->change_password($name,$password))
                    echo "password changed for $name\n";
                else
                    echo "An error occured\n";
                break;

            default:
                echo "unknown command";
        }
    } 
?>