Menu
▾
▴
hcoop-cvs — CVS commits for hcoop project
You can subscribe to this list here.
| 2007 |
Jan
|
Feb
(23) |
Mar
(4) |
Apr
(60) |
May
(80) |
Jun
(24) |
Jul
(12) |
Aug
(12) |
Sep
(27) |
Oct
(59) |
Nov
(152) |
Dec
(135) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2008 |
Jan
(19) |
Feb
(41) |
Mar
(8) |
Apr
(12) |
May
(14) |
Jun
(8) |
Jul
(23) |
Aug
(3) |
Sep
(1) |
Oct
|
Nov
(2) |
Dec
(1) |
| 2009 |
Jan
(1) |
Feb
(8) |
Mar
(6) |
Apr
(9) |
May
(2) |
Jun
|
Jul
(2) |
Aug
(2) |
Sep
(9) |
Oct
|
Nov
(3) |
Dec
|
| 2010 |
Jan
(2) |
Feb
(4) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(1) |
Nov
|
Dec
|
|
From: Adam C. <ad...@us...> - 2008-01-01 23:07:54
|
Update of /cvsroot/hcoop/domtool2/src/plugins In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25820/src/plugins Modified Files: bind.sml Log Message: AFSDB and SRV records; TXT records for base domain Index: bind.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/plugins/bind.sml,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** bind.sml 23 Dec 2007 22:41:38 -0000 1.17 --- bind.sml 1 Jan 2008 23:07:50 -0000 1.18 *************** *** 54,57 **** --- 54,60 ---- | DefaultAAAA of string | TXT of string * string + | DefaultTXT of string + | AFSDB of string + | SRV of string * int * int * int * string val record = fn (EApp ((EApp ((EVar "dnsA", _), e1), _), e2), _) => *************** *** 81,84 **** --- 84,95 ---- (SOME v1, SOME v2) => SOME (TXT (v1, v2)) | _ => NONE) + | (EApp ((EVar "dnsDefaultTXT", _), e), _) => + Option.map DefaultTXT (Env.string e) + | (EApp ((EVar "dnsAFSDB", _), e), _) => + Option.map AFSDB (Env.string e) + | (EApp ((EApp ((EApp ((EApp ((EApp ((EVar "dnsSRV", _), e1), _), e2), _), e3), _), e4), _), e5), _) => + (case (Env.string e1, Env.int e2, Env.int e3, Env.int e4, Env.string e5) of + (SOME v1, SOME v2, SOME v3, SOME v4, SOME v5) => SOME (SRV (v1, v2, v3, v4, v5)) + | _ => NONE) | _ => NONE *************** *** 152,155 **** --- 163,194 ---- write (String.translate (fn #"\"" => "\\\"" | ch => str ch) to); write "\"\n") + | DefaultTXT to => (writeDom (); + write ".\t"; + write (Int.toString ttl); + write "\tIN\tTXT\t\""; + write (String.translate (fn #"\"" => "\\\"" | ch => str ch) to); + write "\"\n") + | AFSDB host => (writeDom (); + write ".\t"; + write (Int.toString ttl); + write "\tIN\tAFSDB\t"; + write "1"; + write "\t"; + write host; + write ".\n") + | SRV (from, priority, weight, port, to) => (write from; + write "."; + writeDom (); + write ".\t"; + write (Int.toString ttl); + write "\tIN\tSRV\t"; + write (Int.toString priority); + write "\t"; + write (Int.toString weight); + write "\t"; + write (Int.toString port); + write "\t"; + write to; + write ".\n") end *************** *** 327,329 **** --- 366,380 ---- showEmpty = false}]) + fun validHost_ s = + size s > 0 andalso size s < 20 + andalso CharVector.all (fn ch => Domain.isIdent ch orelse ch = #"-" orelse ch = #"_") s + + fun validSRVDomain s = + size s > 0 andalso size s < 100 + andalso List.all validHost_ (String.fields (fn ch => ch = #".") s) + + val _ = Env.type_one "srv_domain" + Env.string + validSRVDomain + end |
|
From: Adam C. <ad...@us...> - 2008-01-01 23:07:54
|
Update of /cvsroot/hcoop/domtool2/lib In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25820/lib Modified Files: bind.dtl Log Message: AFSDB and SRV records; TXT records for base domain Index: bind.dtl =================================================================== RCS file: /cvsroot/hcoop/domtool2/lib/bind.dtl,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** bind.dtl 23 Dec 2007 22:41:38 -0000 1.4 --- bind.dtl 1 Jan 2008 23:07:50 -0000 1.5 *************** *** 3,15 **** --- 3,21 ---- extern type dnsRecord; + extern type srv_domain; + {{Like <tt>domain</tt>, but may contain underscores}} + extern val dnsA : host -> ip -> dnsRecord; extern val dnsAAAA : host -> ipv6 -> dnsRecord; + extern val dnsAFSDB : domain -> dnsRecord; extern val dnsCNAME : host -> domain -> dnsRecord; extern val dnsMX : int -> domain -> dnsRecord; extern val dnsNS : domain -> dnsRecord; + extern val dnsSRV : srv_domain -> int -> int -> int -> domain -> dnsRecord; extern val dnsTXT : host -> no_newlines -> dnsRecord; extern val dnsDefaultA : ip -> dnsRecord; extern val dnsDefaultAAAA : ipv6 -> dnsRecord; + extern val dnsDefaultTXT : no_newlines -> dnsRecord; extern val dns : dnsRecord -> [Domain] {TTL : int}; |
|
From: Adam C. <ad...@us...> - 2008-01-01 22:28:02
|
Update of /cvsroot/hcoop/domtool2/src In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv10123/src Modified Files: main.sml Log Message: Report when users' ~/.domtool directories are unreadable Index: main.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v retrieving revision 1.96 retrieving revision 1.97 diff -C2 -d -r1.96 -r1.97 *** main.sml 16 Dec 2007 19:35:04 -0000 1.96 --- main.sml 1 Jan 2008 22:27:58 -0000 1.97 *************** *** 1027,1032 **** app checker files end else ! () end handle IO.Io {name, function, ...} => --- 1027,1035 ---- app checker files end + else if String.isSuffix "_admin" user then + () else ! (print ("Couldn't access " ^ user ^ "'s ~/.domtool directory.\n"); ! ok := false) end handle IO.Io {name, function, ...} => |
|
From: Adam C. <ad...@us...> - 2008-01-01 22:19:33
|
Update of /cvsroot/hcoop/domtool2/src/plugins In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv6978/src/plugins Modified Files: alias.sml Log Message: Only one default alias per domain Index: alias.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/plugins/alias.sml,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** alias.sml 15 Dec 2007 19:05:43 -0000 1.5 --- alias.sml 1 Jan 2008 22:19:27 -0000 1.6 *************** *** 41,48 **** fun writeD nodes = let ! val files = map (fn node => aliasesDF node) nodes in ! (fn s => app (fn file => #write file s) files, ! fn () => app (fn file => #writeDom file ()) files) end --- 41,48 ---- fun writeD nodes = let ! fun files () = map (fn node => aliasesDF node) nodes in ! (fn s => app (fn file => #write file s) (files ()), ! fn () => app (fn file => #writeDom file ()) (files ())) end *************** *** 53,59 **** SM.empty Domain.nodes val _ = Domain.registerBefore (fn _ => (aliases := openInAll "aliases"; ! aliasesD := openInAll "aliases.default")) val _ = Domain.registerAfter --- 53,62 ---- SM.empty Domain.nodes + fun reopenAliasesD () = (SM.app (fn {close, ...} => close ()) (!aliasesD); + aliasesD := openInAll "aliases.default") + val _ = Domain.registerBefore (fn _ => (aliases := openInAll "aliases"; ! reopenAliasesD ())) val _ = Domain.registerAfter *************** *** 135,139 **** writeTarget (write, t); write "\n") ! | Default => (writeD "*@"; writeDomD (); writeD ": "; --- 138,143 ---- writeTarget (write, t); write "\n") ! | Default => (reopenAliasesD (); ! writeD "*@"; writeDomD (); writeD ": "; |
|
From: Adam C. <ad...@us...> - 2008-01-01 21:44:48
|
Update of /cvsroot/hcoop/portal In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv24833 Modified Files: domain.mlt Log Message: Warn about requesting www.* domains Index: domain.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/domain.mlt,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** domain.mlt 17 May 2007 18:26:30 -0000 1.5 --- domain.mlt 1 Jan 2008 21:44:45 -0000 1.6 *************** *** 5,9 **** if $"req" <> "" then val dom = $"req"; ! if Util.validDomain dom then val id = Domain.add (Init.getUserId(), dom, $"msg"); if not (Domain.notifyNew id) then --- 5,16 ---- if $"req" <> "" then val dom = $"req"; ! if not (Util.validDomain dom) then ! %><h3>Invalid domain name</h3><% ! elseif String.isPrefix "www." dom and $"want_www" = "" then ! val base = String.extract (dom, 4, NONE) ! %><h3>Are you sure you want to request a domain that begins with "www."?</h3> ! <p>You probably meant to request <tt><% base %></tt> instead, which would grant you the ability to configure <tt><% dom %></tt> as well. Unless you've registered <tt><% dom %></tt> directly with your registrar, you will be unable to configure it without the right to set nameservers for <tt><% base %></tt>.</p> ! <p><a href="?req=<% Web.urlEncode dom %>&want_www=1&msg=<% Web.urlEncode ($"msg") %>">Yes, go ahead and place the request!</a></p><% ! else val id = Domain.add (Init.getUserId(), dom, $"msg"); if not (Domain.notifyNew id) then *************** *** 11,16 **** end %><h3>Request added</h3><% - else - %><h3>Invalid domain name</h3><% end --- 18,21 ---- |
|
From: Adam C. <ad...@us...> - 2008-01-01 00:10:03
|
Update of /cvsroot/hcoop/portal/app In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv18412 Modified Files: join.mlt Log Message: Bigger text announcing the need to remember a password Index: join.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/app/join.mlt,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** join.mlt 9 Dec 2007 16:12:59 -0000 1.11 --- join.mlt 1 Jan 2008 00:09:58 -0000 1.12 *************** *** 37,41 **** | SOME unix_passwd => %><h3>Application recorded</h3> ! Check your e-mail for a message with further instructions. <b>Save this password to use to access your new account if your application is approved</b>: <blockquote><tt><% Web.html unix_passwd %></tt></blockquote><% end --- 37,41 ---- | SOME unix_passwd => %><h3>Application recorded</h3> ! Check your e-mail for a message with further instructions. <h1>Save this password to use to access your new account if your application is approved</h1>: <blockquote><tt><% Web.html unix_passwd %></tt></blockquote><% end |
|
From: Adam C. <ad...@us...> - 2007-12-29 21:28:41
|
Update of /cvsroot/hcoop/portal In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv16534 Modified Files: quota.mlt quotas.sml support.mlt Log Message: Allow extra blank lines in vos output Index: quotas.sml =================================================================== RCS file: /cvsroot/hcoop/portal/quotas.sml,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** quotas.sml 23 Dec 2007 22:58:50 -0000 1.2 --- quotas.sml 29 Dec 2007 21:28:35 -0000 1.3 *************** *** 44,48 **** (eatUntilBlankLine (); loop acc) ! | _ => acc val _ = TextIO.inputLine inf --- 44,48 ---- (eatUntilBlankLine (); loop acc) ! | _ => loop acc val _ = TextIO.inputLine inf Index: support.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/support.mlt,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** support.mlt 27 Dec 2007 13:35:31 -0000 1.7 --- support.mlt 29 Dec 2007 21:28:35 -0000 1.8 *************** *** 80,84 **** <h3>Otherwise...</h3> ! <p>Visit <a href="https://bugzilla.hcoop.net/enter_bug.cgi">our Bugzilla database</a> to open a custom issue. You can log in there using the same username and password that you are using to access this portal.</p> <!--h3>Choose a category:</h3> --- 80,86 ---- <h3>Otherwise...</h3> ! <p>First, check <a href="http://wiki.hcoop.net/MemberManual/FAQ">our member FAQ</a> and read all the question descriptions to make sure that your problem isn't solved there.</p> ! ! <p>If you don't find it, visit <a href="https://bugzilla.hcoop.net/enter_bug.cgi">our Bugzilla database</a> to open a custom issue. You can log in there using the same username and password that you are using to access this portal.</p> <!--h3>Choose a category:</h3> Index: quota.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/quota.mlt,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** quota.mlt 23 Dec 2007 22:58:50 -0000 1.2 --- quota.mlt 29 Dec 2007 21:28:34 -0000 1.3 *************** *** 142,146 **** <h3>Request a disk quota change</h3> ! <p>Remember that a high quota does not by itself use up any resources. Quotas are solely a check on unintentional overusage. We will only ever bill you for actual disk usage, not quota. Therefore, it only makes sense to ask for a quota to be reduced if you want to prevent a runaway process or similar from upping your bill, not because you're worried about being a good co-op citizen.</p> <form method="post"> --- 142,146 ---- <h3>Request a disk quota change</h3> ! <p>Remember that a high quota does not by itself use up any resources. Quotas are solely a check on unintentional overusage. We don't yet have any concrete policies to charge members based on disk usage, and, if we do implement such policies, you'll be charged only on actual disk usage, not quota.</p> <form method="post"> |
|
From: Adam C. <ad...@us...> - 2007-12-29 21:28:40
|
Update of /cvsroot/hcoop/portal/static In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv16534/static Modified Files: gen.sml Log Message: Allow extra blank lines in vos output Index: gen.sml =================================================================== RCS file: /cvsroot/hcoop/portal/static/gen.sml,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** gen.sml 9 Dec 2007 16:30:39 -0000 1.9 --- gen.sml 29 Dec 2007 21:28:35 -0000 1.10 *************** *** 317,324 **** --- 317,332 ---- C.Sql s => (print "SQL exception: \n"; print s; + print "\n"; OS.Process.failure) | Fail s => (print "Fail: "; print s; + print "\n"; OS.Process.failure) + | IO.Io {name, function, ...} => (print "IO exception "; + print function; + print ": "; + print name; + print "\n"; + OS.Process.failure) | ex => (print "Exception!\n"; List.app (fn s => print (s ^ "\n")) (SMLofNJ.exnHistory ex); |
|
From: Adam C. <ad...@us...> - 2007-12-28 23:24:48
|
Update of /cvsroot/hcoop/portal/app In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv32571 Modified Files: app.sml Log Message: members2 -> members Index: app.sml =================================================================== RCS file: /cvsroot/hcoop/portal/app/app.sml,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** app.sml 8 Dec 2007 20:50:48 -0000 1.14 --- app.sml 28 Dec 2007 23:24:41 -0000 1.15 *************** *** 3,7 **** val baseUrl = "https://join.hcoop.net/join/" ! val portalUrl = "https://members2.hcoop.net/portal/" open Sql --- 3,7 ---- val baseUrl = "https://join.hcoop.net/join/" ! val portalUrl = "https://members.hcoop.net/portal/" open Sql |
|
From: Adam C. <ad...@us...> - 2007-12-27 13:35:40
|
Update of /cvsroot/hcoop/portal In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv3099 Modified Files: support.mlt Log Message: Update support FAQ-ish section Index: support.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/support.mlt,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** support.mlt 4 Jun 2007 20:14:16 -0000 1.6 --- support.mlt 27 Dec 2007 13:35:31 -0000 1.7 *************** *** 72,76 **** <li> If you want to <b>request a Mailman mailing list</b>, use <a href="list">the separate form for that</a>.</li> <li> If you want to request <b>anything related to the ability to open network connections on particular ports or to particular hosts</b>, or you want permission to <b>have a crontab</b> or <b>use FTP</b>, see the <a href="sec">security settings</a> page.</li> ! <li> If you want to request <b>a MySQL or Postgres user account</b> or <b>a database</b>, then today is your lucky day! You don't need to ask anyone for permission to do that. Follow <a href="http://wiki.hcoop.net/wiki/UsingDatabases">the instructions on our wiki</a>. </ul> --- 72,79 ---- <li> If you want to <b>request a Mailman mailing list</b>, use <a href="list">the separate form for that</a>.</li> <li> If you want to request <b>anything related to the ability to open network connections on particular ports or to particular hosts</b>, or you want permission to <b>have a crontab</b> or <b>use FTP</b>, see the <a href="sec">security settings</a> page.</li> ! <li> If you want to <b>request a disk quota increase</b>, use <a href="quota">the separate form for that</a>.</li> ! <li> If you want to <b>request an IP address</b>, use <a href="ip">the separate form for that</a>.</li> ! <li> If you want to <b>generation of or permission to use an SSL certificate</b>, use <a href="cert">the separate form for that</a>.</li> ! <li> If you want to request <b>a MySQL or Postgres user account</b> or <b>a database</b>, then today is your lucky day! You don't need to ask anyone for permission to do that. Follow <a href="http://wiki.hcoop.net/MemberManual/Databases">the instructions on our wiki</a>. </ul> *************** *** 97,101 **** <% if admin then %> ! <h3>Add new category</h3> <form action="support" method="post"> --- 100,104 ---- <% if admin then %> ! <!--h3>Add new category</h3> <form action="support" method="post"> *************** *** 111,115 **** <tr> <td><input type="submit" value="Add"></td> </tr> </table> ! </form> <% end %> --- 114,118 ---- <tr> <td><input type="submit" value="Add"></td> </tr> </table> ! </form--> <% end %> |
|
From: Michael O. <big...@us...> - 2007-12-27 04:17:28
|
Update of /cvsroot/hcoop/misc/scripts In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv9338/scripts Modified Files: hcoop-backup Log Message: hcoop-backup: Sync changes from megacz, add IFS lines This should fix the weird "1.png" entries in the email that the script sends out. Index: hcoop-backup =================================================================== RCS file: /cvsroot/hcoop/misc/scripts/hcoop-backup,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** hcoop-backup 18 Nov 2007 17:15:19 -0000 1.7 --- hcoop-backup 27 Dec 2007 04:17:24 -0000 1.8 *************** *** 10,17 **** # mysql dumps # for catsync ! PATH=$PATH:/home/megacz_admin/ ! COMPRESS_EXT=.bz2 ! COMPRESS_PROG=bzip2 #KEYFILE=$1 --- 10,21 ---- # mysql dumps + #umask 0644 + # for catsync ! #PATH=$PATH:/home/megacz_admin/ ! #COMPRESS_EXT=.bz2 ! #COMPRESS_PROG=bzip2 ! COMPRESS_EXT=.gz ! COMPRESS_PROG=gzip #KEYFILE=$1 *************** *** 20,24 **** cd $BACKUPDIR ! find * -prune -ctime +5 -exec rm -rf {} \; SUBDIR=`date +%Y.%m.%d` --- 24,28 ---- cd $BACKUPDIR ! find * -prune -ctime +2 -exec rm -rf {} \; SUBDIR=`date +%Y.%m.%d` *************** *** 84,87 **** --- 88,95 ---- cat > annoyingfiles- + OLDIFS=$IFS + IFS=" + " + for A in `cat annoyingfiles-` do \ *************** *** 89,92 **** --- 97,102 ---- done > annoyingfiles + IFS=$OLDIFS + cat annoyingfiles | \ grep -v ^/opt/dell/srvadmin/ | \ *************** *** 109,113 **** cp backupfiles /tmp/backupfiles ! (cd /; sudo tar cvlpjf - --ignore-failed-read --no-recursion -C / -T /tmp/backupfiles) | \ $COMPRESS_PROG | \ ccrypt -k $KEYFILE -e | \ --- 119,123 ---- cp backupfiles /tmp/backupfiles ! (cd /; sudo tar cvlpf - --ignore-failed-read --no-recursion -C / -T /tmp/backupfiles) | \ $COMPRESS_PROG | \ ccrypt -k $KEYFILE -e | \ *************** *** 123,138 **** cat > volumes ! echo backing up databases ! tar -C /var/backups/databases/ -cf - . | \ ! $COMPRESS_PROG | \ ! ccrypt -k $KEYFILE -e \ ! | catsync databases.tar$COMPRESS_EXT.aescrypt for A in `cat volumes | grep -v not-backed-up` do \ echo "dumping afs volume $A..." ! time (cd /; sudo vos dump -id $A -localauth -clone) | \ $COMPRESS_PROG | \ ccrypt -k $KEYFILE -e | \ catsync $A.dump$COMPRESS_EXT.aescrypt done --- 133,159 ---- cat > volumes ! echo volume list: ! cat volumes | grep -v not-backed-up ! ! IFS=" ! " for A in `cat volumes | grep -v not-backed-up` do \ echo "dumping afs volume $A..." ! vos dump -id $A -localauth -clone | \ $COMPRESS_PROG | \ ccrypt -k $KEYFILE -e | \ catsync $A.dump$COMPRESS_EXT.aescrypt + echo " finished dumping afs volume $A." done + + # for some reason this has been causing the backups to abort... + #echo backing up databases + #tar -C /var/backups/databases/ -cf - . | \ + # $COMPRESS_PROG | \ + # ccrypt -k $KEYFILE -e \ + # | catsync databases.tar$COMPRESS_EXT.aescrypt + + echo done + |
|
From: Adam C. <ad...@us...> - 2007-12-23 23:00:17
|
Update of /cvsroot/hcoop/portal In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv22039 Modified Files: quota.sml Log Message: One character of improvement Index: quota.sml =================================================================== RCS file: /cvsroot/hcoop/portal/quota.sml,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** quota.sml 16 Dec 2007 17:06:55 -0000 1.1 --- quota.sml 23 Dec 2007 23:00:12 -0000 1.2 *************** *** 7,11 **** fun body (mail, data) = ! (Mail.mwrite (mail, " Request: "); Mail.mwrite (mail, data); Mail.mwrite (mail, "\n")) --- 7,11 ---- fun body (mail, data) = ! (Mail.mwrite (mail, "Request: "); Mail.mwrite (mail, data); Mail.mwrite (mail, "\n")) |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:58:57
|
Update of /cvsroot/hcoop/portal In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv21201 Modified Files: header.mlt.in quota.mlt quotas.sml Log Message: Various quota request improvements, suggested by docelic Index: quotas.sml =================================================================== RCS file: /cvsroot/hcoop/portal/quotas.sml,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** quotas.sml 16 Dec 2007 17:06:55 -0000 1.1 --- quotas.sml 23 Dec 2007 22:58:50 -0000 1.2 *************** *** 74,78 **** case kind of "user" => "/afs/hcoop.net/user/" ^ goofy uname ! | "db" => "/afs/hcoop.net/.databases/" ^ goofy uname | "mail" => "/afs/hcoop.net/user/" ^ goofy uname ^ "/Maildir" | _ => raise Fail ("Don't know how to find mount point for volume " ^ vol) --- 74,78 ---- case kind of "user" => "/afs/hcoop.net/user/" ^ goofy uname ! | "db" => "/afs/hcoop.net/common/.databases/" ^ goofy uname | "mail" => "/afs/hcoop.net/user/" ^ goofy uname ^ "/Maildir" | _ => raise Fail ("Don't know how to find mount point for volume " ^ vol) Index: header.mlt.in =================================================================== RCS file: /cvsroot/hcoop/portal/header.mlt.in,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** header.mlt.in 15 Dec 2007 17:19:30 -0000 1.12 --- header.mlt.in 23 Dec 2007 22:58:50 -0000 1.13 *************** *** 33,36 **** --- 33,37 ---- <li> <a href="domain">Request control of a domain with domtool</a></li> <li> <a href="apt">Request Debian apt packages</a></li> + <li> <a href="quota">Request a disk quota change</a></li> <li> <a href="list">Request a Mailman mailing list</a></li> <li> <a href="ip">Request an IP address</a></li> Index: quota.mlt =================================================================== RCS file: /cvsroot/hcoop/portal/quota.mlt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** quota.mlt 16 Dec 2007 17:06:55 -0000 1.1 --- quota.mlt 23 Dec 2007 22:58:50 -0000 1.2 *************** *** 142,145 **** --- 142,147 ---- <h3>Request a disk quota change</h3> + <p>Remember that a high quota does not by itself use up any resources. Quotas are solely a check on unintentional overusage. We will only ever bill you for actual disk usage, not quota. Therefore, it only makes sense to ask for a quota to be reduced if you want to prevent a runaway process or similar from upping your bill, not because you're worried about being a good co-op citizen.</p> + <form method="post"> |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:41:41
|
Update of /cvsroot/hcoop/domtool2/src/plugins In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv13966/src/plugins Modified Files: bind.sml Log Message: TXT DNS records Index: bind.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/plugins/bind.sml,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** bind.sml 16 Dec 2007 14:55:04 -0000 1.16 --- bind.sml 23 Dec 2007 22:41:38 -0000 1.17 *************** *** 53,56 **** --- 53,57 ---- | AAAA of string * string | DefaultAAAA of string + | TXT of string * string val record = fn (EApp ((EApp ((EVar "dnsA", _), e1), _), e2), _) => *************** *** 76,79 **** --- 77,84 ---- | (EApp ((EVar "dnsDefaultAAAA", _), e), _) => Option.map DefaultAAAA (Env.string e) + | (EApp ((EApp ((EVar "dnsTXT", _), e1), _), e2), _) => + (case (Env.string e1, Env.string e2) of + (SOME v1, SOME v2) => SOME (TXT (v1, v2)) + | _ => NONE) | _ => NONE *************** *** 139,142 **** --- 144,155 ---- write to; write "\n") + | TXT (from, to) => (write from; + write "."; + writeDom (); + write ".\t"; + write (Int.toString ttl); + write "\tIN\tTXT\t\""; + write (String.translate (fn #"\"" => "\\\"" | ch => str ch) to); + write "\"\n") end |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:41:41
|
Update of /cvsroot/hcoop/domtool2/lib In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv13966/lib Modified Files: bind.dtl easy_domain.dtl Log Message: TXT DNS records Index: easy_domain.dtl =================================================================== RCS file: /cvsroot/hcoop/domtool2/lib/easy_domain.dtl,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** easy_domain.dtl 16 Dec 2007 22:04:52 -0000 1.20 --- easy_domain.dtl 23 Dec 2007 22:41:38 -0000 1.21 *************** *** 81,82 **** --- 81,83 ---- val dnsDefault = \to -> dns (dnsDefaultA to); val dnsDefaultv6 = \to -> dns (dnsDefaultAAAA to); + val dnsText = \from -> \to -> dns (dnsTXT from to); Index: bind.dtl =================================================================== RCS file: /cvsroot/hcoop/domtool2/lib/bind.dtl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** bind.dtl 16 Dec 2007 14:55:02 -0000 1.3 --- bind.dtl 23 Dec 2007 22:41:38 -0000 1.4 *************** *** 8,11 **** --- 8,12 ---- extern val dnsMX : int -> domain -> dnsRecord; extern val dnsNS : domain -> dnsRecord; + extern val dnsTXT : host -> no_newlines -> dnsRecord; extern val dnsDefaultA : ip -> dnsRecord; |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:26:42
|
Update of /cvsroot/hcoop/domtool2/src In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv7614/src Modified Files: main-dbtool.sml Log Message: dbtool gives help URL on bad arguments Index: main-dbtool.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/main-dbtool.sml,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** main-dbtool.sml 2 Jul 2007 16:14:44 -0000 1.6 --- main-dbtool.sml 23 Dec 2007 22:26:39 -0000 1.7 *************** *** 19,25 **** (* Driver for dbtool *) val _ = case CommandLine.arguments () of ! [] => print "Invalid command-line arguments\n" | dbtype :: rest => case Dbms.lookup dbtype of --- 19,28 ---- (* Driver for dbtool *) + fun badArgs () = + print "Invalid command-line arguments. See documentation at:\n\thttp://wiki.hcoop.net/MemberManual/Databases\n" + val _ = case CommandLine.arguments () of ! [] => badArgs () | dbtype :: rest => case Dbms.lookup dbtype of *************** *** 69,71 **** else print ("Invalid database name " ^ dbname ^ ".\n") ! | _ => print "Invalid command-line arguments\n" --- 72,74 ---- else print ("Invalid database name " ^ dbname ^ ".\n") ! | _ => badArgs () |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:00:27
|
Update of /cvsroot/hcoop/domtool2/lib In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv29170/lib Modified Files: domain.dtl Log Message: Tweak SOA parameters Index: domain.dtl =================================================================== RCS file: /cvsroot/hcoop/domtool2/lib/domain.dtl,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** domain.dtl 16 Dec 2007 14:55:02 -0000 1.22 --- domain.dtl 23 Dec 2007 22:00:21 -0000 1.23 *************** *** 67,71 **** extern val soa : domain -> serial -> int -> int -> int -> int -> soa; ! val defaultSoa = soa "deleuze.hcoop.net" serialAuto 172800 900 1209600 3600; extern type dns_node; --- 67,71 ---- extern val soa : domain -> serial -> int -> int -> int -> int -> soa; ! val defaultSoa = soa "deleuze.hcoop.net" serialAuto 86400 1800 1209600 3600; extern type dns_node; |
|
From: Adam C. <ad...@us...> - 2007-12-23 22:00:27
|
Update of /cvsroot/hcoop/domtool2/configDefault In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv29170/configDefault Modified Files: domtool.cfg Log Message: Tweak SOA parameters Index: domtool.cfg =================================================================== RCS file: /cvsroot/hcoop/domtool2/configDefault/domtool.cfg,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** domtool.cfg 17 Nov 2007 19:12:27 -0000 1.33 --- domtool.cfg 23 Dec 2007 22:00:21 -0000 1.34 *************** *** 15,20 **** val defaultNs = "ns1.hcoop.net" ! val defaultRefresh = 172800 ! val defaultRetry = 900 val defaultExpiry = 1209600 val defaultMinimum = 3600 --- 15,20 ---- val defaultNs = "ns1.hcoop.net" ! val defaultRefresh = 86400 ! val defaultRetry = 1800 val defaultExpiry = 1209600 val defaultMinimum = 3600 |
|
From: Adam C. <ad...@us...> - 2007-12-20 13:37:38
|
Update of /cvsroot/hcoop/domtool2/src In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv5069/src Modified Files: domain.sml Log Message: Temporary DNS-out-of-sync fix that reloads BIND too often Index: domain.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/domain.sml,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** domain.sml 16 Dec 2007 14:55:03 -0000 1.62 --- domain.sml 20 Dec 2007 13:37:33 -0000 1.63 *************** *** 646,650 **** | _ => (write "\tmasters { "; write masterIp; ! write "; };\n"); write "};\n"; close () --- 646,653 ---- | _ => (write "\tmasters { "; write masterIp; ! write "; };\n"; ! write "// Updated: "; ! write (Time.toString (Time.now ())); ! write "\n"); write "};\n"; close () |
|
From: Michael O. <big...@us...> - 2007-12-18 21:32:17
|
Update of /cvsroot/hcoop/misc/scripts In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv23063/scripts Modified Files: apache-sync-logs Log Message: apache-sync-logs: Skip people who have unreadable log subdirectories. Index: apache-sync-logs =================================================================== RCS file: /cvsroot/hcoop/misc/scripts/apache-sync-logs,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** apache-sync-logs 18 Dec 2007 18:56:35 -0000 1.13 --- apache-sync-logs 18 Dec 2007 21:32:11 -0000 1.14 *************** *** 25,30 **** USER=`basename $A` PATHBITS=`echo $USER | head -c 1`/`echo $USER | head -c 2`/$USER LOG_SRC=$A/apache/log ! LOG_DEST=$AFS_USER_DIR/$PATHBITS/.logs/apache/ TMP_DEST=$LOG_SRC.tmp --- 25,31 ---- USER=`basename $A` PATHBITS=`echo $USER | head -c 1`/`echo $USER | head -c 2`/$USER + USER_HOME=$AFS_USER_DIR/$PATHBITS LOG_SRC=$A/apache/log ! LOG_DEST=$USER_HOME/.logs/apache/ TMP_DEST=$LOG_SRC.tmp *************** *** 34,37 **** --- 35,44 ---- fi + # Skip people who have unreadable log subdirectories + if test -d "$USER_HOME/.logs" && \ + ! ls "$USER_HOME/.logs" >/dev/null 2>&1; then + continue + fi + # Skip people who do not have keytabs if test ! -f "$KEYTAB_DIR/$USER"; then |
|
From: Michael O. <big...@us...> - 2007-12-18 18:56:38
|
Update of /cvsroot/hcoop/misc/scripts In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv24838/scripts Modified Files: apache-sync-logs Log Message: apache-sync-logs: Skip people who do not have keytabs Index: apache-sync-logs =================================================================== RCS file: /cvsroot/hcoop/misc/scripts/apache-sync-logs,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** apache-sync-logs 19 Nov 2007 02:22:00 -0000 1.12 --- apache-sync-logs 18 Dec 2007 18:56:35 -0000 1.13 *************** *** 34,37 **** --- 34,42 ---- fi + # Skip people who do not have keytabs + if test ! -f "$KEYTAB_DIR/$USER"; then + continue + fi + if test "$VERBOSE" = "true"; then echo |
|
From: Adam C. <ad...@us...> - 2007-12-16 23:11:45
|
Update of /cvsroot/hcoop/domtool2/src/plugins In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv7551/src/plugins Modified Files: apache.sml Log Message: Allow ~ in Apache locations Index: apache.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/plugins/apache.sml,v retrieving revision 1.72 retrieving revision 1.73 diff -C2 -d -r1.72 -r1.73 *** apache.sml 16 Dec 2007 22:55:09 -0000 1.72 --- apache.sml 16 Dec 2007 23:11:41 -0000 1.73 *************** *** 97,101 **** orelse ch = #"_" orelse ch = #"." ! orelse ch = #"/") s val _ = Env.type_one "location" --- 97,102 ---- orelse ch = #"_" orelse ch = #"." ! orelse ch = #"/" ! orelse ch = #"~") s val _ = Env.type_one "location" |
|
From: Adam C. <ad...@us...> - 2007-12-16 22:55:12
|
Update of /cvsroot/hcoop/domtool2/src/plugins In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv1052/src/plugins Modified Files: apache.sml Log Message: diskCache Index: apache.sml =================================================================== RCS file: /cvsroot/hcoop/domtool2/src/plugins/apache.sml,v retrieving revision 1.71 retrieving revision 1.72 diff -C2 -d -r1.71 -r1.72 *** apache.sml 16 Dec 2007 22:34:32 -0000 1.71 --- apache.sml 16 Dec 2007 22:55:09 -0000 1.72 *************** *** 972,975 **** --- 972,981 ---- write "\"\n")) + val () = Env.action_one "diskCache" + ("path", Env.string) + (fn path => (write "\tCacheEnable disk \""; + write path; + write "\"\n")) + val () = Domain.registerResetLocal (fn () => ignore (OS.Process.system (Config.rm ^ " -rf /var/domtool/vhosts/*"))) |
|
From: Adam C. <ad...@us...> - 2007-12-16 22:55:12
|
Update of /cvsroot/hcoop/domtool2/lib In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv1052/lib Added Files: mod_cache.dtl Log Message: diskCache --- NEW FILE: mod_cache.dtl --- {{Apache mod_cache}} extern val diskCache : location -> [Vhost]; {{See <a href="http://httpd.apache.org/docs/2.2/mod/mod_cache.html#cacheenable">the Apache documentation</a>; specifically, the case where the first parameter is <tt>disk</tt>.}} |
|
From: Adam C. <ad...@us...> - 2007-12-16 22:34:38
|
Update of /cvsroot/hcoop/domtool2/lib In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25187/lib Modified Files: apache.dtl Log Message: vhostDefault Index: apache.dtl =================================================================== RCS file: /cvsroot/hcoop/domtool2/lib/apache.dtl,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** apache.dtl 16 Dec 2007 22:04:52 -0000 1.13 --- apache.dtl 16 Dec 2007 22:34:31 -0000 1.14 *************** *** 45,48 **** --- 45,59 ---- should direct visitors.}} + extern val vhostDefault : Vhost => [Domain] + {WebPlaces : [web_place], + SSL : ssl, + User : your_user, + Group : your_group, + DocumentRoot : your_path, + ServerAdmin : email, + SuExec : suexec_flag}; + {{Like <tt>vhost</tt>, but for, e.g., <tt>yourdomain.com</tt> instead of + <tt>www.yourdomain.com</tt>}} + context Location; |