structure App :> APP =
struct
-val baseUrl = "https://join3.hcoop.net/join/"
+val baseUrl = "https://join.hcoop.net/join/"
val portalUrl = Config.urlPrefix
open Sql
structure Config :> CONFIG = struct
val scratchDir = "/afs/hcoop.net/user/h/hc/hcoop"
-val urlPrefix = "https://members3.hcoop.net/portal/"
+val urlPrefix = "https://members.hcoop.net/portal/"
val emailSuffix = "@hcoop.net"
val boardEmail = "board" ^ emailSuffix
-val dbstring = "dbname='hcoop_portal3test' user='hcoop' host='postgres' port=5433"
+val dbstring = "dbname='hcoop_portal3' user='hcoop' host='postgres' port=5433"
val kerberosSuffix = "@HCOOP.NET"
val showBal = Util.sub (#amount bal, deposit);
@header [] %>
-<div style="border: 1px solid goldenrod; background-color: palegoldenrod;">
+<div class="news">
-<h3>Notice: Google Checkout Is Gone</h3>
+<h3>Welcome to the Portal On Navajos</h3>
-<p>Google Checkout shut down in November 2013 so we only have Paypal
-available for processing payments currently. We are in the process of
-selecting a second (and possibly third) payment processor; you can
-contribute to the discussion by <a
-href="http://wiki.hcoop.net/PaymentProcessor2014">visiting the wiki
-discussion</a>.
+<p><a href="https://wiki.hcoop.net/Hardware#deleuze">Deleuze</a>
+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 <a
+href="mailto:admins@hcoop.net"><tt>admins@hcoop.net</tt></a> if you
+would like to change your hcoop list subscriptions.</p>
</div>
structure NM = BinaryMapFn(IntKey)
-val outputDir = "/home/hcoop/public_html/"
+val outputDir = "/afs/hcoop.net/user/h/hc/hcoop/public_html/"
fun generate () =
let
print ''
print '<a href="{0}">Go back to the portal</a>'.format(redirect_to)
-connstring = 'dbname=hcoop_portal3test user=hcoop host=postgres port=5433'
+connstring = 'dbname=hcoop_portal3 user=hcoop host=postgres port=5433'
def hcoop_stripe_init ():
cgitb.enable()
# assert charge.card.address_zip_check == 'pass', 'Zipcode verification failed or unknown.'
balance = stripe.BalanceTransaction.retrieve (charge.balance_transaction)
- conn = psycopg2.connect ('dbname=hcoop_portal3test user=hcoop host=postgres port=5433')
+ conn = psycopg2.connect ('dbname=hcoop_portal3 user=hcoop host=postgres port=5433')
cur = conn.cursor ()
cur.execute ('insert into stripe_payment (charge_id, card_name, webuser_id, paid_on, gross, fee) values (%s, %s, %s, %s, %s, %s)',
(charge.id, charge.card.name, webuser_id, datetime.date.today (), charge.amount, balance.fee))