Does the println show you what you expect?

On Fri, Oct 19, 2012 at 5:35 PM, larry google groups <
lawrencecloj...@gmail.com> wrote:

>
> > I suggesting adding printlns or logging or a debugger
> > and checking the
> > value of this-users-params, it is almost certainly not
> > what you expect
> > it to be.
>
> I already showed the output of the println statements I'd done, but I'll
> go through this again.
>
> I eventually try to output my info as JSON, like this:
>
> (defn current-users [request]
>   "The default action of this app. Add new users to the registry, and
> delete the ones that are more than 15 seconds old"
>   (let [this-users-params (:params request)]
>     (add-to-logged-in-registry this-users-params)
>     (remove-old-registrants)
>     (response (apply str (json/write-str @registry)))))
>
> When I ran this at the REPL, everything worked great, but I was feeding it
> ideal information (no nil values). When I uploaded it to the server and the
> site users started hitting this thing (the Javascript in their browsers
> sent all kinds of calls). Then I started getting strange values, including
> a lot of empty calls. I can fix the Javascript, and I will, but I decided I
> also needed to protect the Clojure code.
>
> I originally had this:
>
> (def registry (atom {}))
>
>
> (defn add-to-logged-in-registry [this-users-params]
>   (let [right-now (. (Date.) getTime)
>         new-user-entry (conj this-users-params { "updated" right-now })]
>     (println apply str new-user-entry)
>
>       (swap! registry assoc (:username new-user-entry) new-user-entry)))
>
> But on the server I would get errors like:
>
> 2012-10-19
> 02:01:26.214:WARN:oejs.AbstractHttpConnection:/?username=karlorihoo&first_name=Karlo&last_name=Rihoo&user_image=java.lang.Exception:
> JSON object properties may not be nil
>     at clojure.data.json$default_write_key_fn.invoke(json.clj:28)
>     at clojure.data.json$write_object.invoke(json.clj:313)
>     at clojure.data.json$fn__109$G__104__116.invoke(json.clj:279)
>
> So I wanted to add this if statement:
>
> (defn add-to-logged-in-registry [this-users-params]
>   "We assume some user is looking at a site such as wpquestions.com and
> the Javascript on that site is sending an Ajax request to this app, every
> 10 seconds, with a map of information about the user, which we need to
> store in the registry."
>
>   (let [right-now (. (Date.) getTime)
>         new-user-entry (conj this-users-params { "updated" right-now })]
>     (println apply str new-user-entry)
>
>     (if-not (nil? (:username new-user-entry))
>       (swap! registry assoc (:username new-user-entry) new-user-entry))))
>
> But then the line with swap! never seemed to get called and the registry
> remained empty no matter what I threw at this, including hardcoded "nil"s.
>
>
>
>
>
>
>
>
>
> On Friday, October 19, 2012 3:53:26 AM UTC-4, red...@gmail.com wrote:
>
>> conj can surely produce maps, and does so happily in the following cases:
>>
>> (conj {} [:foo :bar])
>> (conj {} {:foo :bar})
>>
>> I suggesting adding printlns or logging or a debugger and checking the
>> value of this-users-params, it is almost certainly not what you expect
>> it to be.
>>
>> as a side note creating a date object just to call getTime is kind of
>> gross, try (System/currentTimeMillis)
>>
>> On Fri, Oct 19, 2012 at 12:42 AM, Sean Corfield <seanco...@gmail.com>
>> wrote:
>> > On Fri, Oct 19, 2012 at 12:10 AM, larry google groups
>> > <lawrenc...@gmail.com> wrote:
>> >>
>> >> (defn add-to-logged-in-registry [this-users-params]
>> >>   (let [right-now (. (Date.) getTime)
>> >>         new-user-entry (conj this-users-params { "updated" right-now
>> })]
>> >>     (if (:username new-user-entry)
>> >>       (swap! registry assoc (:username new-user-entry)
>> new-user-entry))))
>> >>
>> >> The if statement seems to never be true.
>> >
>> >
>> > conj produces a sequence, not a map, so the lookup of :username fails.
>> Try
>> > new-user-entry (assoc this-users-params "updated" right-now)
>> > --
>> > Sean A Corfield -- (904) 302-SEAN
>> > An Architect's View -- http://corfield.org/
>> > World Singles, LLC. -- http://worldsingles.com/
>> >
>> > "Perfection is the enemy of the good."
>> > -- Gustave Flaubert, French realist novelist (1821-1880)
>> >
>> > --
>> > You received this message because you are subscribed to the Google
>> > Groups "Clojure" group.
>> > To post to this group, send email to clo...@googlegroups.com
>> > Note that posts from new members are moderated - please be patient with
>> your
>> > first post.
>> > To unsubscribe from this group, send email to
>> > clojure+u...@**googlegroups.com
>> > For more options, visit this group at
>> > http://groups.google.com/**group/clojure?hl=en<http://groups.google.com/group/clojure?hl=en>
>>
>>
>>
>> --
>> And what is good, Phaedrus,
>> And what is not good—
>> Need we ask anyone to tell us these things?
>>
>  --
> You received this message because you are subscribed to the Google
> Groups "Clojure" group.
> To post to this group, send email to clojure@googlegroups.com
> Note that posts from new members are moderated - please be patient with
> your first post.
> To unsubscribe from this group, send email to
> clojure+unsubscr...@googlegroups.com
> For more options, visit this group at
> http://groups.google.com/group/clojure?hl=en
>



-- 
I may be wrong or incomplete.
Please express any corrections / additions,
they are encouraged and appreciated.
At least one entity is bound to be transformed if you do ;)

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en

Reply via email to