diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-23 16:13:02 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-23 16:13:02 -0400 |
| commit | df4a000b4c97378ccadbd1f94d9f930f87228b28 (patch) | |
| tree | 2034375ed7452282a9f1bbb4b3ee02f5bca63280 /src/cjr_print.sml | |
| parent | 1c5416512d92309bb3f6a98f439edaf5a21d2318 (diff) | |
Cookie signatures for RPCs
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index a47bb587..69332b49 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2497,6 +2497,13 @@ fun p_file env (ds, ps) = string (!Monoize.urlPrefix), string "\");", newline]), + string "uw_set_needs_sig(ctx, ", + string (if couldWrite ek then + "1" + else + "0"), + string ");", + newline, string "uw_login(ctx);", newline, box [string "{", |