<?php

    function calculate_average_server_metrics(&$servers) {

        if (count($servers) == 0) {
            return;
        }

        $bwratio = 0;
        $hdratio = 0;
        $hd = 0;
        $bw = 0;
        $avg_cost = 0;
        $cost = 0;

        foreach ($servers as $s) {
            $bwratio += ($s['cost']/$s['bw']/2);
            $hdratio += ($s['cost']/$s['hd']/2);
            $hd += $s['hd'];
            $cost += $s['cost'];
            $bw += $s['bw'];
        }

        $divisor = count($servers);

        $bwratio /= $divisor;
        $hdratio /= $divisor;

        $hd /= $divisor;
        $bw /= $divisor;
        $avg_cost = $cost / $divisor;

        return array(
            name    => 'All',
            bwratio => $bwratio,
            hdratio => $hdratio,
            bw      => (int) $bw,
            hd      => (int) $hd,
            avg_cost => $avg_cost,
            cost => $cost
        );

    }

    $accounts = array();
    $servers = array();
    $use_server = "";

    session_start();
    session_register('accounts');
    session_register('servers');
    session_register('use_server');

    if (isset($_SESSION['accounts'])) {
        $accounts = $_SESSION['accounts'];
    }

    $ASM = array();

    if (isset($_SESSION['servers']) && count($servers) > 0) {
        $servers = $_SESSION['servers'];
        $ASM = calculate_average_server_metrics($servers);
    }

    if (isset($_SESSION['use_server'])) {
        $use_server = $_SESSION['use_server'];
    }

    $server = $servers[$use_server];

    if (isset($_POST['account_name']) && 
        trim($_POST['account_name']) != '') {
        
        $name = trim($_POST['account_name']);
        $bw = trim($_POST['bw']);
        $hd = trim($_POST['hd']);
        $cost = trim($_POST['cost']);
        $max = trim($_POST['max']);
        $domains = trim($_POST['domains']);
        $users = trim($_POST['users']);

        $saved = $accounts[$name];

        if ($saved != NULL) {
            if ($bw == '') {
                $bw = $saved['bw'];
            };
            if ($hd == '') {
                $hd = $saved['hd'];
            };
            if ($cost == '') {
                $cost = $saved['cost'];
            };
            if ($max == '') {
                $max = $saved['max'];
            };
            if ($domains == '') {
                $domains = $saved['domains'];
            };
            if ($users == '') {
                $users = $saved['users'];
            };
        } 

        if ($users == '') {
            $users = 1;
        }

        if ($domains == '') {
            $domains = 1;
        }

        $account = array(
            name => $name,
            bw   => $bw,
            cost => $cost,
            hd   => $hd,
            max  => $max,
            domains  => $domains,
            users  => $users
        );

        $accounts[$name] = $account;

    } elseif (isset($_POST['server_name']) && 
              trim($_POST['server_name']) != "") {

        $name = trim($_POST['server_name']);
        $hd   = trim($_POST['hd']);
        $bw   = trim($_POST['bw']);
        $cost = trim($_POST['cost']);
        $mapt = trim($_POST['mapt']);

        $saved = $servers[$name];

        if ($saved != NULL) {
            if ($name == '') {
                $name = $saved['name'];
            };
            if ($hd == '') {
                $hd = $saved['hd'];
            };
            if ($bw == '') {
                $bw = $saved['bw'];
            };
            if ($cost == '') {
                $cost = $saved['cost'];
            };
            if ($mapt == '') {
                $mapt = $saved['mapt'];
            };
        } 

        $this_server = array(
            name => $name,
            hd   => $hd,
            bw   => $bw,
            cost => $cost,
            mapt => $mapt
        );

        $servers[$this_server['name']] = $this_server;
        $server = $this_server;

        $ASM = calculate_average_server_metrics($servers);

    } elseif (isset($_POST['use_server']) && trim($_POST['use_server']) != '') {

        $use_server = trim($_POST['use_server']);
        $server = $servers[$use_server];

    } elseif (isset($_POST['clear_accounts'])) {

        $accounts = array();

    } elseif (isset($_POST['clear_servers'])) {

        $servers = array();

    } elseif (isset($_POST['delete_server'])) {

        foreach ($_POST['delete_server'] as $d) {
            unset($servers[trim($d)]);
        }

        $ASM = calculate_average_server_metrics($servers);

    } elseif (isset($_POST['delete_account'])) {

        foreach ($_POST['delete_account'] as $d) {
            unset($accounts[trim($d)]);
        }

    }

    $_SESSION['accounts'] = $accounts;
    $_SESSION['server'] = $server;
    $_SESSION['servers'] = $servers;
    $_SESSION['use_server'] = $use_server;


    function by_cost($a, $b) {
        global $accounts;
        $aa = $accounts[$a];
        $bb = $accounts[$b];
        if ($aa['cost'] == $bb['cost']) {
            return 0;
        }
        return ($aa['cost'] > $bb['cost']) ? 1 : -1;
    }

    function rby_cost($a, $b) {
        global $accounts;
        $aa = $accounts[$a];
        $bb = $accounts[$b];
        if ($aa['cost'] == $bb['cost']) {
            return 0;
        }
        return ($aa['cost'] > $bb['cost']) ? -1 : 1;
    }

?>

<html>
<head>
<style type="text/css">
    body { font-family: "Verdana, Arial" }
    h1,h2,h4 { text-align: "center"; }
    h3  { 
        text-align: "center"; 
        background: "#FFFFEE";
        border: "1px dashed #000000";
        padding: "5px";
        margin-left: "400px";
        margin-right: "400px";
    }
    p,a { font-family: "Verdana, Arial" }
    input { background: "#FFDDDD"; text-align: "center"; font-weight: "600"; }
    select { background: "#FFDDDD"; font-weight: "bold"; }
    .submit { background: "#CCCCCC"; font-weight: "normal"; }
    th { background: "#00EE00" }
    td { background: "#EEEEEE"; }
    table, form { text-align: "center" }
    code  { font-weight: bold }
</style>
<title>Web Hosting Account Partitioning Utility</title>
</head>
<body>

<h2>Web Hosting Account Partitioning Utility</h2>
  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
  <h3>Add/Edit Server</h3>
      <table border="1" cellpadding="4" cellspacing="0">
          <tr>
          <td>Name<br/>
              <input type="text" name="server_name" 
                     size="20" value="<?= $server['name']?>"/></td>
          <td>Cost/month<br/>
              <input type="text" name="cost" 
                     size="4" value="<?= $server['cost']?>"/></td>
          <td>HD (GB)<br/>
              <input type="text" name="hd" 
                     size="3" maxlength="3" value="<?= $server['hd'] ?>"/></td>
          <td>BW (GB)<br/>
              <input type="text" name="bw" 
                     size="5" value="<?= $server['bw'] ?>"/></td></tr>
          <tr><td colspan="4">
          <input type="submit" class="submit" name="submit" value="Save"/></td></tr>
      </table>
  </form>

  <h3>View/Delete Saved Servers</h3>

  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
     <input type="submit" class="submit" 
            name="clear_servers" value="Remove all servers"/>
  </form>

  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>">
     <table border="1" cellpadding="4" cellspacing="0">
     <tr>
         <th>Name</th><th>Cost</th><th>BW (GB)</th>
         <th>HDD (GB)</th>
         <th>Cost/GB BW</th>
         <th>Cost/GB HD</th>
         <th>Delete</th>
     </tr>
     <?php 
       foreach ($servers as $s) {
           $cost_gb_hd = ($s['cost']/$s['hd']/2);
           $cost_gb_bw = ($s['cost']/$s['bw']/2);
     ?>
       <tr>       
         <td><?= $s['name'] ?></td>
         <td><?= sprintf("%.2f", $s['cost']) ?></td>
         <td><?= $s['bw'] ?></td>
         <td><?= $s['hd'] ?></td>
         <td><?= sprintf("%.2f", $cost_gb_bw) ?></td>
         <td><?= sprintf("%.2f", $cost_gb_hd) ?></td>
         <td>
             <input type="checkbox" name="delete_server[]" value="<?= $s['name']?>"></td>
       </tr>       
     <?php
       }

     ?>
       <tr>       
         <td><?= All ?></td>
         <td><?= sprintf("%.2f", $ASM['avg_cost']) ?></td>
         <td><?= $ASM['bw'] ?></td>
         <td><?= $ASM['hd'] ?></td>
         <td><?= sprintf("%.2f", $ASM['bwratio']) ?></td>
         <td><?= sprintf("%.2f", $ASM['hdratio']) ?></td>
         <td>&nbsp;</td>
       </tr>       
     </table>
     <br/>
     <input type="submit" class="submit" value="Delete selected servers">
  </form>

  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
    <h3>Add/Edit Account Type:</h3>
    <table border="1" cellpadding="4" cellspacing="0">
        <tr>
          <td align="right">Name:</td>
          <td align="left"><input type="text" name="account_name" size="15"></td></tr>
        <tr>
          <td align="right">Monthly cost</td>
          <td  align="left"><input type="text" name="cost" size="15"></td>
        </tr>
        <tr>
          <td align="right">Bandwidth quota in GB:</td>
          <td align="left"><input type="text" name="bw" size="15"></td>
        </tr>
        <tr>
          <td align="right">HD Space in MB</td>
          <td align="left"><input type="text" name="hd" size="15">
        </tr>
        <tr>
            <td align="right">Max # accounts per server</td>
            <td align="left"><input type="text" name="max" size="15"></td>
        </tr>
        <tr>
            <td align="right">User accounts per account</td>
            <td align="left"><input type="text" name="users" size="15"></td>
        </tr>
        <tr>
            <td align="right">Domains per account</td>
            <td align="left"><input type="text" name="domains" size="15"></td>
        </tr>
        <tr>
        <td colspan="2">
                <input type="submit" class="submit" name="submit" value="Save"/></td>
        </tr>
    </table>
  </form>

<div align="center">
  <h3>View/Delete Saved Accounts</h3>

  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
     <input type="submit" class="submit" 
            name="clear_accounts" value="Remove all accounts"/>
  </form>

  <form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
  <table border="1" cellspacing="0" cellpadding="4">
    <tr><th>Name</th>
        <th>Max #</th>
        <th>Cost</th>
        <th>MR Price</th>
        <th>BW (GB)</th>
        <th>Cost/GB BW</th>
        <th>HD (MB)</th>
        <th>Cost/GB HD</th>
        <th>Domains</th>
        <th>Users</th>
        <th>Delete</th></tr>
<?php 

    uksort($accounts, 'by_cost');

    foreach ($accounts as $a) {

        $bw_ratio = $a['bw']/$a['cost'];
        $hd_ratio = ($a['hd']/1024)/$a['cost'];

        $rec_hd = "-";
        $rec_bw = "-";
        $hd_mr_price = $a['cost'];
        $bw_mr_price = $a['cost'];

        if ($hd_ratio != $ASM['hdratio']) {
            $hd_mr_price = ($a['hd']/1024) * $ASM['hdratio'];
        }

        if ($bw_ratio != $ASM['bwratio']) {
            $bw_mr_price = $a['bw'] * $ASM['bwratio'];
        }

        $mr_price = ($bw_mr_price + $hd_mr_price) * 3;
        $accounts[$a['name']]['mr_cost'] = $mr_price;

?>
    <tr>
       <td><?= $a['name']?></td>
       <td><?= ($a['max'] > 0) ? $a['max'] : '-' ?></td>
       <td align="right"><?= sprintf("%6.2f", $a['cost']) ?></td>
       <td align="right"><?= sprintf("%6.2f", $mr_price) ?></td>
       <td><?= $a['bw'] ?></td>
       <td><?= sprintf("%6.2f", $bw_ratio) ?></td>
       <td><?= $a['hd'] ?></td>
       <td><?= sprintf("%6.2f", $hd_ratio) ?></td>
       <td><?= $a['domains']  ?></td>
       <td><?= $a['users']  ?></td>
       <td><input type="checkbox" name="delete_account[]" value="<?= $a['name'] ?>"></td>
    </tr>

<?php

    }
?>
  </table>
  <br>
  <input type='submit' name='submit' class="submit" 
         value='Delete selected accounts'>
  </form>
</div>

<form method="POST" action="<?= $_SERVER['PHP_SELF'] ?>" >
<h3>Select Server To Use For Calculations</h3>
<select name="use_server" size="1">
       <?php $selected = ($use_server == $s['name']) ? "selected" : ""; ?>
       <option value="all" <?= $selected ?>>All</option>
<?php 
    foreach ($servers as $s) {
        $selected = ($use_server == $s['name']) ? "selected" : "";
?>
       <option value="<?= $s['name'] ?>" <?= $selected ?>><?= $s['name'] ?></option>
<?
    }

    if ($use_server == 'all') {
        $server = $ASM;
    }

?>
</select>
<input type="submit" class="submit"  value="go!">
</form>

<div align="center">
  <h3>Max Income per Account Type</h3>

  <table border="1" cellspacing="0" cellpadding="4">
    <tr><th>Name</th>
        <th>Bandwidth used (GB)</th>
        <th>HD space used (GB)</th>
        <th>Accounts</th>
        <th>Domains</th>
        <th>Users</th>
        <th>Income</th>
        <th>Profit</th>
        <th>MR Income</th>
        <th>MR Profit</th></tr>
<?php 

    $total_bw = $server['bw'];
    $total_hd = $server['hd'];

    foreach ($accounts as $a) {

        $type = 'HD';

        $can_bw = sprintf('%d', $total_bw/$a['bw']);
        $can_hd = sprintf('%d', ($total_hd*1024)/$a['hd']);

        $max_allowed = $can_hd;
        
        if ($can_bw < $can_hd) {
            $max_allowed = $can_bw;
            $type = 'BW';
        }

        if ($a['max'] > 0 && $max_allowed >= $a['max']) {
            $max_allowed = $a['max'];
            $type = "MR";
        }

        $income = $max_allowed * $a['cost'];
        $min_income = $max_allowed * $a['mr_cost'];

?>
    <tr>
       <td><?= $a['name']?></td>
       <td><?= $a['bw'] * $max_allowed ?></td>
       <td><?= sprintf("%.2f", ($a['hd'] * $max_allowed)/1024) ?></td>
       <td><?= sprintf("%03d (%s)", $max_allowed, $type) ?></td>
       <td><?= $max_allowed * $a['domains']  ?></td>
       <td><?= $max_allowed * $a['users']  ?></td>
       <td align="right"><?= sprintf("%6.2f", $income) ?></td>
       <td align="right"><?= sprintf("%6.2f", $income - $server['cost']) ?></td>
       <td align="right"><?= sprintf("%6.2f", $min_income) ?></td>
       <td align="right"><?= sprintf("%6.2f", $min_income - $server['cost']) ?></td>
    </tr>

<?php

    }
?>
  </table>
</div>
<?php

    $order = "most";
    uksort($accounts, 'rby_cost');

?>

  <div align="center">
  <p></p>
  <h3>Basic Income Account Mix</h3>
  <p>Show account combinations for <?= $server['name'] ?>, starting with
     the <?= $order ?> expensive account first.</p>
      <?php
      if ($order == 'least') {
      ?>
          <p>
          NOTE: this count may be off by 1 account for the
          largest account used.
          </p>
      <?php
      }
      ?>

  <table border="1" cellspacing="0" cellpadding="4">
    <tr><th>Name</th>
        <th>Bandwidth used (GB)</th>
        <th>HD space used (GB)</th>
        <th>Domains</th>
        <th>Users</th>
        <th>Accounts</th>
        <th>Income</th>
        <th>MR Income</th></tr>

<?php 

    $total_bw = $server['bw'];
    $total_hd = $server['hd'];

    $total_accounts = 0;
    $total_income = 0;
    $mr_total_income = 0;
    $total_bw_used = 0;
    $total_hd_used = 0;
    $total_domains = 0;
    $total_users = 0;

    $count = count($accounts) - 1;

    $i = 0;

    foreach ($accounts as $a) {

        $can_bw = sprintf("%d", ($total_bw/$a['bw']));
        $can_hd = sprintf("%d", (($total_hd*1024)/$a['hd']));

        $type = 'HD';

        if ($total_bw - ($can_bw * $a['bw']) <= 0) {
            $can_bw--;
        }

        if (($total_hd * 1024) - ($can_hd * $a['hd']) <= 0) {
            $can_hd--;
        }

        $max_allowed = min($can_bw, $can_hd);

        if ($can_bw <= $can_hd) {
            $type = 'BW';
        }

        if ($max_allowed <= 0) {
            $max_allowed = 0;
        } elseif ($a['max'] > 0 && $max_allowed > $a['max']) {
            $type = "MR";
            $max_allowed = $a['max'];
        }

        $income = $max_allowed * $a['cost'];
        $mr_income = $max_allowed * $a['mr_cost'];

        $bw_used = $a['bw'] * $max_allowed;
        $hd_used = $a['hd'] * $max_allowed;

        $total_bw -= $bw_used;
        $total_hd -= round($hd_used / 1024);

        $total_income += $income;
        $mr_total_income += $mr_income;
        $total_bw_used += $bw_used;
        $total_hd_used += $hd_used;


        $total_accounts += $max_allowed;
        $total_domains += $a['domains'] * $max_allowed;
        $total_users += $a['users'] * $max_allowed;

?>
    <tr>
       <td><?= $a['name']?></td>
       <td><?= $bw_used ?></td>
       <td><?= round($hd_used/1024) ?></td>
       <td><?= $max_allowed * $a['domains'] ?></td>
       <td><?= $max_allowed * $a['users'] ?></td>
       <td><?= sprintf("%03d (%s)", $max_allowed, $type)?></td>
       <td align="right"><?= sprintf("%6.2f", $income) ?></td>
       <td align="right"><?= sprintf("%6.2f", $mr_income) ?></td>
    </tr>

<?php

    }
?>

    <tr><td colspan="10" align="center">
      <br/>
      <? $profit = $total_income - $server['cost'] ?> 
      <? $mr_profit = $mr_total_income - $server['cost'] ?> 
      <h2>Cost Totals</h2>
      <table border="0" cellpadding="5" cellspacing="0">
        <tr>
           <td align="left"><b>Income per month:</b></td>
           <td align="right"><?= sprintf("$%.2f", $total_income) ?></td>
        </tr>
        <tr>
           <td align="left"><b>Server cost per month:</b></td>
           <td align="right">- <?= sprintf("$%.2f", $server['cost']) ?></td>
        </tr>
        <tr>
           <td align="left">
           <hr/>
           <b><?= ($profit > 0) ? "Profit" : "Loss" ?> per month:</td>
           <td align="right"><hr/><?= sprintf("$%.2f", $profit) ?>
           </td>
        </tr>
        <tr>
           <td align="left"><br/><b>Min. Rec. Income per month:</b></td>
           <td align="right"><br/><?= sprintf("$%.2f", $mr_total_income) ?></td>
        </tr>
        <tr>
           <td align="left"><b>Server cost per month:</b></td>
           <td align="right">- <?= sprintf("$%.2f", $server['cost']) ?></td>
        </tr>
        <tr>
           <td align="left">
           <hr/>
           <b>Min. Rec. <?= ($profit > 0) ? "Profit" : "Loss" ?> per month:</td>
           <td align="right"><hr/><?= sprintf("$%.2f", $mr_profit) ?></td>
        </tr>
      </table>
      <h2>Total Resource Usage</h2>
      <table border="0" cellpadding="5" cellspacing="0">
           <td align="left"><b>Accounts:</b></td>
           <td align="left"><?= $total_accounts ?></td>
        </tr>
        <tr>
           <td align="left"><b>Bandwidth (GB):</b></td>
           <td align="left"><?= $total_bw_used ?></td>
        </tr>
        <tr>
           <td align="left"><b>HD space (GB):</b></td>
           <td align="left"><?= round($total_hd_used / 1024) ?></td>
        </tr>
        <tr>
           <td align="left"><b>Domains:</b></td>
           <td align="left"><?= $total_domains ?></td>
        </tr>
        <tr>
           <td align="left"><b>Users:</b></td>
           <td align="left"><?= $total_users ?></td>
        </tr>
      </table>

  </td></tr>
  </table>

</div>

</body>
</html>