X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/c31825a5929cf0941bab64ccef63ee155c4c8e87..588a1662c076994dc4321f86da2619933b3a1e13:/portal.mlt diff --git a/portal.mlt b/portal.mlt dissimilarity index 71% index 63c4116..f7f303d 100644 --- a/portal.mlt +++ b/portal.mlt @@ -1,86 +1,92 @@ -<% val you = Init.getUser(); -val bal = Balance.lookupBalance (#bal you); -@header [] %> - -<% if Group.inGroupNum 0 then %> -

Admin

 -Approved applicants waiting for accounts
-Members
-Groups
-Balances
-Contact kinds
-Roll call!
-<% end %> - -

Your account

 - -Preferences
-Financial
-Security settings
-Contact information
-Your geographic locations
-Public URL directory
- -

Support requests

 - -Request control of a domain with domtool
-Request Debian apt packages
-Request a Mailman mailing list
-Other support request
- -

Your recent account activity

- - - -<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), 5) do %> - -<% end %> -
Date Description Amount
<% #d trn %> <% Web.html (#descr trn) %> <% amount %>/<% #amount trn %>
-Balance: $<% #amount bal %> - -

Current polls

- -<% foreach pol in Poll.listCurrentPolls () do %> -
  • <% Web.html (#title pol) %> -<% if Poll.takingVotes pol then %>[VOTE]<% end %> -(<% Web.html (#starts pol) %> to <% Web.html (#ends pol) %>)
    • -<% end %> - -

    Open support issues

    - -<% foreach (name, issue) in Support.listOpenIssues (#id you) do %> -<% name %>: <% Web.html (#title issue) %> -<% switch #status issue of - Support.NEW => %>(New)<% - | Support.PENDING => %>(Pending)<% - | Support.CLOSED => %>(Closed)<% -end %> -
    -<% end %> - -

    Statistics

    - -Apache bandwidth
    -Disk usage
    - -

    Public pages

    - -Member directory
    -Member location summary
    -URL directory
    - -

    Miscellaneous

    - -Review pending membership applications
    -Contact information directory
    -Polls
    - -

    Other services

    - -Webalizer
    -MRTG statistics
    -InterServer bandwidth statistics
    -Usermin
    -SquirrelMail
    - -<% @footer [] %> \ No newline at end of file +<% val you = Init.getUser(); +val bal = Balance.lookupBalance (#bal you); +val deposit = Balance.depositAmount (#id bal); +val showBal = Util.sub (#amount bal, deposit); +@header [] %> + +
    + +

    Welcome to the Portal On Navajos

    + +

    Deleuze +suffered a hardware failure, and the benefit is that the portal is now +running on our Debian Wheezy web server. List preferences are +temporarily non-functional, email admins@hcoop.net if you +would like to change your hcoop list subscriptions.

    + +
    + +<% @payment [] %> + +

    Your recent account activity

    + +<% ref running = showBal %> + + +<% foreach (amount, trn) in Money.listUserTransactionsLimit (Init.getUserId (), 5) do %> + + +<% running := Util.sub (running, amount) +end %> +
    Date Description Amount Balance
    <% #d trn %> <% Web.html (#descr trn) %> <% amount %>/<% #amount trn %><% running %>
    +Show all transactions
    +Balance: $<% showBal %>
    +Deposit: $<% deposit %> (3 months of dues at the minimal pledge level) + +

    Pending Stripe Payments

    + + + +<% foreach stripePmt in Money.listUserPendingStripePayments + (Init.getUserId () ) do %> + + + + +<% end %> +
    DateNet Amount (After Fees)
    <% #paid_on stripePmt %>$<% #net stripePmt %>
    + + + + +<% val polls = Poll.listCurrentPolls (); +switch polls of + _::_ => %> +

    Current polls

    + +<% foreach pol in polls do %> +
  • <% Web.html (#title pol) %> +<% if Poll.takingVotes pol then %>[VOTE]<% end %> +(<% Web.html (#starts pol) %> to <% Web.html (#ends pol) %>)
    • +<% end +end %> + +<% val issues = Support.listOpenIssues (#id you); +switch issues of + _::_ => %> +

    Open support issues

    + +<% foreach (name, issue) in issues do %> +<% name %>: <% Web.html (#title issue) %> +<% switch #status issue of + Support.NEW => %>(New)<% + | Support.PENDING => %>(Pending)<% + | Support.CLOSED => %>(Closed)<% +end %> +
    +<% end +end; + +val {total, vhosts} = Stats.getWebbwUser {user = Init.getUserName (), last = 0}; +switch vhosts of + _ :: _ => + %>

    Your web traffic this month

    + <% + foreach e in vhosts do %> + + <% end %> +
    Site Data transferred (kB)
    <% #hostname (#host e) %><% if #ssl (#host e) then %> (SSL)<% end %> [detail]<% #size e %>
    +<% end; + +@footer [] %>