Use $lock for the lock, not fp.
Use $lock for the lock, not fp.

bankonme/intersango,dooglus/intersango,dooglus/intersango,dooglus/intersango,bankonme/intersango,bankonme/intersango,dooglus/intersango,bankonme/intersango