| rev | 
   line source | 
| 
bsw/jbe@0
 | 
     1 Member = mondelefant.new_class()
 | 
| 
bsw/jbe@0
 | 
     2 Member.table = 'member'
 | 
| 
bsw/jbe@0
 | 
     3 
 | 
| 
bsw/jbe@0
 | 
     4 Member:add_reference{
 | 
| 
bsw@9
 | 
     5   mode          = "1m",
 | 
| 
bsw@9
 | 
     6   to            = "MemberHistory",
 | 
| 
bsw@9
 | 
     7   this_key      = 'id',
 | 
| 
bsw@9
 | 
     8   that_key      = 'member_id',
 | 
| 
bsw@9
 | 
     9   ref           = 'history_entries',
 | 
| 
bsw@9
 | 
    10   back_ref      = 'member'
 | 
| 
bsw@9
 | 
    11 }
 | 
| 
bsw@9
 | 
    12 
 | 
| 
bsw@9
 | 
    13 Member:add_reference{
 | 
| 
bsw/jbe@4
 | 
    14   mode          = '1m',
 | 
| 
bsw@2
 | 
    15   to            = "MemberImage",
 | 
| 
bsw@2
 | 
    16   this_key      = 'id',
 | 
| 
bsw@2
 | 
    17   that_key      = 'member_id',
 | 
| 
bsw/jbe@4
 | 
    18   ref           = 'images',
 | 
| 
bsw@2
 | 
    19   back_ref      = 'member'
 | 
| 
bsw@2
 | 
    20 }
 | 
| 
bsw@2
 | 
    21 
 | 
| 
bsw@2
 | 
    22 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    23   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    24   to            = "Contact",
 | 
| 
bsw/jbe@0
 | 
    25   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    26   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    27   ref           = 'contacts',
 | 
| 
bsw/jbe@0
 | 
    28   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
    29   default_order = '"other_member_id"'
 | 
| 
bsw/jbe@0
 | 
    30 }
 | 
| 
bsw/jbe@0
 | 
    31 
 | 
| 
bsw/jbe@0
 | 
    32 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    33   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    34   to            = "Contact",
 | 
| 
bsw/jbe@0
 | 
    35   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    36   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    37   ref           = 'foreign_contacts',
 | 
| 
bsw/jbe@0
 | 
    38   back_ref      = 'other_member',
 | 
| 
bsw/jbe@0
 | 
    39   default_order = '"member_id"'
 | 
| 
bsw/jbe@0
 | 
    40 }
 | 
| 
bsw/jbe@0
 | 
    41 
 | 
| 
bsw/jbe@0
 | 
    42 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    43   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    44   to            = "Session",
 | 
| 
bsw/jbe@0
 | 
    45   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    46   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    47   ref           = 'sessions',
 | 
| 
bsw/jbe@0
 | 
    48   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
    49   default_order = '"ident"'
 | 
| 
bsw/jbe@0
 | 
    50 }
 | 
| 
bsw/jbe@0
 | 
    51 
 | 
| 
bsw/jbe@0
 | 
    52 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    53   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    54   to            = "Draft",
 | 
| 
bsw/jbe@0
 | 
    55   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    56   that_key      = 'author_id',
 | 
| 
bsw/jbe@0
 | 
    57   ref           = 'drafts',
 | 
| 
bsw/jbe@0
 | 
    58   back_ref      = 'author',
 | 
| 
bsw/jbe@0
 | 
    59   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
    60 }
 | 
| 
bsw/jbe@0
 | 
    61 
 | 
| 
bsw/jbe@0
 | 
    62 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    63   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    64   to            = "Suggestion",
 | 
| 
bsw/jbe@0
 | 
    65   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    66   that_key      = 'author_id',
 | 
| 
bsw/jbe@0
 | 
    67   ref           = 'suggestions',
 | 
| 
bsw/jbe@0
 | 
    68   back_ref      = 'author',
 | 
| 
bsw/jbe@0
 | 
    69   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
    70 }
 | 
| 
bsw/jbe@0
 | 
    71 
 | 
| 
bsw/jbe@0
 | 
    72 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    73   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    74   to            = "Membership",
 | 
| 
bsw/jbe@0
 | 
    75   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    76   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    77   ref           = 'memberships',
 | 
| 
bsw/jbe@0
 | 
    78   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
    79   default_order = '"area_id"'
 | 
| 
bsw/jbe@0
 | 
    80 }
 | 
| 
bsw/jbe@0
 | 
    81 
 | 
| 
bsw/jbe@0
 | 
    82 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    83   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    84   to            = "Interest",
 | 
| 
bsw/jbe@0
 | 
    85   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    86   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    87   ref           = 'interests',
 | 
| 
bsw/jbe@0
 | 
    88   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
    89   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
    90 }
 | 
| 
bsw/jbe@0
 | 
    91 
 | 
| 
bsw/jbe@0
 | 
    92 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
    93   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
    94   to            = "Initiator",
 | 
| 
bsw/jbe@0
 | 
    95   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
    96   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
    97   ref           = 'initiators',
 | 
| 
bsw@10
 | 
    98   back_ref      = 'member'
 | 
| 
bsw/jbe@0
 | 
    99 }
 | 
| 
bsw/jbe@0
 | 
   100 
 | 
| 
bsw/jbe@0
 | 
   101 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   102   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   103   to            = "Supporter",
 | 
| 
bsw/jbe@0
 | 
   104   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   105   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   106   ref           = 'supporters',
 | 
| 
bsw@2
 | 
   107   back_ref      = 'member'
 | 
| 
bsw/jbe@0
 | 
   108 }
 | 
| 
bsw/jbe@0
 | 
   109 
 | 
| 
bsw/jbe@0
 | 
   110 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   111   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   112   to            = "Opinion",
 | 
| 
bsw/jbe@0
 | 
   113   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   114   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   115   ref           = 'opinions',
 | 
| 
bsw/jbe@0
 | 
   116   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
   117   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
   118 }
 | 
| 
bsw/jbe@0
 | 
   119 
 | 
| 
bsw/jbe@0
 | 
   120 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   121   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   122   to            = "Delegation",
 | 
| 
bsw/jbe@0
 | 
   123   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   124   that_key      = 'truster_id',
 | 
| 
bsw/jbe@0
 | 
   125   ref           = 'outgoing_delegations',
 | 
| 
bsw/jbe@0
 | 
   126   back_ref      = 'truster',
 | 
| 
bsw/jbe@0
 | 
   127   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
   128 }
 | 
| 
bsw/jbe@0
 | 
   129 
 | 
| 
bsw/jbe@0
 | 
   130 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   131   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   132   to            = "Delegation",
 | 
| 
bsw/jbe@0
 | 
   133   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   134   that_key      = 'trustee_id',
 | 
| 
bsw/jbe@0
 | 
   135   ref           = 'incoming_delegations',
 | 
| 
bsw/jbe@0
 | 
   136   back_ref      = 'trustee',
 | 
| 
bsw/jbe@0
 | 
   137   default_order = '"id"'
 | 
| 
bsw/jbe@0
 | 
   138 }
 | 
| 
bsw/jbe@0
 | 
   139 
 | 
| 
bsw/jbe@0
 | 
   140 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   141   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   142   to            = "DirectVoter",
 | 
| 
bsw/jbe@0
 | 
   143   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   144   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   145   ref           = 'direct_voter',
 | 
| 
bsw/jbe@0
 | 
   146   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
   147   default_order = '"issue_id"'
 | 
| 
bsw/jbe@0
 | 
   148 }
 | 
| 
bsw/jbe@0
 | 
   149 
 | 
| 
bsw/jbe@0
 | 
   150 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   151   mode          = '1m',
 | 
| 
bsw/jbe@0
 | 
   152   to            = "Vote",
 | 
| 
bsw/jbe@0
 | 
   153   this_key      = 'id',
 | 
| 
bsw/jbe@0
 | 
   154   that_key      = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   155   ref           = 'vote',
 | 
| 
bsw/jbe@0
 | 
   156   back_ref      = 'member',
 | 
| 
bsw/jbe@0
 | 
   157   default_order = '"issue_id", "initiative_id"'
 | 
| 
bsw/jbe@0
 | 
   158 }
 | 
| 
bsw/jbe@0
 | 
   159 
 | 
| 
bsw/jbe@0
 | 
   160 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   161   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   162   to                    = "Member",
 | 
| 
bsw/jbe@0
 | 
   163   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   164   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   165   connected_by_table    = 'contact',
 | 
| 
bsw/jbe@0
 | 
   166   connected_by_this_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   167   connected_by_that_key = 'other_member_id',
 | 
| 
bsw/jbe@0
 | 
   168   ref                   = 'saved_members',
 | 
| 
bsw/jbe@0
 | 
   169 }
 | 
| 
bsw/jbe@0
 | 
   170 
 | 
| 
bsw/jbe@0
 | 
   171 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   172   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   173   to                    = "Member",
 | 
| 
bsw/jbe@0
 | 
   174   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   175   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   176   connected_by_table    = 'contact',
 | 
| 
bsw/jbe@0
 | 
   177   connected_by_this_key = 'other_member_id',
 | 
| 
bsw/jbe@0
 | 
   178   connected_by_that_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   179   ref                   = 'saved_by_members',
 | 
| 
bsw/jbe@0
 | 
   180 }
 | 
| 
bsw/jbe@0
 | 
   181 
 | 
| 
bsw/jbe@0
 | 
   182 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   183   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   184   to                    = "Area",
 | 
| 
bsw/jbe@0
 | 
   185   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   186   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   187   connected_by_table    = 'membership',
 | 
| 
bsw/jbe@0
 | 
   188   connected_by_this_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   189   connected_by_that_key = 'area_id',
 | 
| 
bsw/jbe@0
 | 
   190   ref                   = 'areas'
 | 
| 
bsw/jbe@0
 | 
   191 }
 | 
| 
bsw/jbe@0
 | 
   192 
 | 
| 
bsw/jbe@0
 | 
   193 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   194   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   195   to                    = "Issue",
 | 
| 
bsw/jbe@0
 | 
   196   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   197   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   198   connected_by_table    = 'interest',
 | 
| 
bsw/jbe@0
 | 
   199   connected_by_this_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   200   connected_by_that_key = 'issue_id',
 | 
| 
bsw/jbe@0
 | 
   201   ref                   = 'issues'
 | 
| 
bsw/jbe@0
 | 
   202 }
 | 
| 
bsw/jbe@0
 | 
   203 
 | 
| 
bsw/jbe@0
 | 
   204 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   205   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   206   to                    = "Initiative",
 | 
| 
bsw/jbe@0
 | 
   207   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   208   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   209   connected_by_table    = 'initiator',
 | 
| 
bsw/jbe@0
 | 
   210   connected_by_this_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   211   connected_by_that_key = 'initiative_id',
 | 
| 
bsw/jbe@0
 | 
   212   ref                   = 'initiated_initiatives'
 | 
| 
bsw/jbe@0
 | 
   213 }
 | 
| 
bsw/jbe@0
 | 
   214 
 | 
| 
bsw/jbe@0
 | 
   215 Member:add_reference{
 | 
| 
bsw/jbe@0
 | 
   216   mode                  = 'mm',
 | 
| 
bsw/jbe@0
 | 
   217   to                    = "Initiative",
 | 
| 
bsw/jbe@0
 | 
   218   this_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   219   that_key              = 'id',
 | 
| 
bsw/jbe@0
 | 
   220   connected_by_table    = 'supporter',
 | 
| 
bsw/jbe@0
 | 
   221   connected_by_this_key = 'member_id',
 | 
| 
bsw/jbe@0
 | 
   222   connected_by_that_key = 'initiative_id',
 | 
| 
bsw/jbe@0
 | 
   223   ref                   = 'supported_initiatives'
 | 
| 
bsw/jbe@0
 | 
   224 }
 | 
| 
bsw/jbe@0
 | 
   225 
 | 
| 
bsw@193
 | 
   226 function Member:build_selector(args)
 | 
| 
bsw@193
 | 
   227   local selector = self:new_selector()
 | 
| 
bsw@193
 | 
   228   if args.active ~= nil then
 | 
| 
bsw@193
 | 
   229     selector:add_where{ "member.active = ?", args.active }
 | 
| 
bsw@193
 | 
   230   end
 | 
| 
bsw@193
 | 
   231   if args.order then
 | 
| 
bsw@193
 | 
   232     if args.order == "id" then
 | 
| 
bsw@193
 | 
   233       selector:add_order_by("id")
 | 
| 
bsw@193
 | 
   234     elseif args.order == "login" then
 | 
| 
bsw@193
 | 
   235       selector:add_order_by("login")
 | 
| 
bsw@193
 | 
   236     elseif args.order == "name" then
 | 
| 
bsw@193
 | 
   237       selector:add_order_by("name")
 | 
| 
bsw@193
 | 
   238     else
 | 
| 
bsw@193
 | 
   239       error("invalid order")
 | 
| 
bsw@193
 | 
   240     end
 | 
| 
bsw@193
 | 
   241   end
 | 
| 
bsw@193
 | 
   242   return selector
 | 
| 
bsw@193
 | 
   243 end
 | 
| 
bsw@193
 | 
   244 
 | 
| 
bsw/jbe@0
 | 
   245 function Member.object:set_password(password)
 | 
| 
bsw/jbe@0
 | 
   246   local hash = os.crypt(
 | 
| 
bsw/jbe@0
 | 
   247     password,
 | 
| 
bsw/jbe@0
 | 
   248     "$1$" .. multirand.string(
 | 
| 
bsw/jbe@0
 | 
   249       8,
 | 
| 
bsw/jbe@0
 | 
   250       "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz./"
 | 
| 
bsw/jbe@0
 | 
   251     )
 | 
| 
bsw/jbe@0
 | 
   252   )
 | 
| 
bsw/jbe@0
 | 
   253   assert(hash, "os.crypt failed")
 | 
| 
bsw/jbe@0
 | 
   254   self.password = hash
 | 
| 
bsw/jbe@0
 | 
   255 end
 | 
| 
bsw/jbe@0
 | 
   256 
 | 
| 
bsw/jbe@0
 | 
   257 function Member.object:check_password(password)
 | 
| 
bsw/jbe@0
 | 
   258   if type(password) == "string" and type(self.password) == "string" then
 | 
| 
bsw/jbe@0
 | 
   259     return os.crypt(password, self.password) == self.password
 | 
| 
bsw/jbe@0
 | 
   260   else
 | 
| 
bsw/jbe@0
 | 
   261     return false
 | 
| 
bsw/jbe@0
 | 
   262   end
 | 
| 
bsw/jbe@0
 | 
   263 end
 | 
| 
bsw/jbe@0
 | 
   264 
 | 
| 
bsw/jbe@0
 | 
   265 function Member.object_get:published_contacts()
 | 
| 
bsw/jbe@0
 | 
   266   return Member:new_selector()
 | 
| 
bsw/jbe@0
 | 
   267     :join('"contact"', nil, '"contact"."other_member_id" = "member"."id"')
 | 
| 
bsw/jbe@0
 | 
   268     :add_where{ '"contact"."member_id" = ?', self.id }
 | 
| 
bsw/jbe@0
 | 
   269     :add_where("public")
 | 
| 
bsw/jbe@0
 | 
   270     :exec()
 | 
| 
bsw/jbe@0
 | 
   271 end
 | 
| 
bsw/jbe@0
 | 
   272 
 | 
| 
bsw/jbe@0
 | 
   273 function Member:by_login_and_password(login, password)
 | 
| 
bsw/jbe@0
 | 
   274   local selector = self:new_selector()
 | 
| 
bsw/jbe@5
 | 
   275   selector:add_where{'"login" = ?', login }
 | 
| 
bsw/jbe@0
 | 
   276   selector:add_where('"active"')
 | 
| 
bsw/jbe@0
 | 
   277   selector:optional_object_mode()
 | 
| 
bsw/jbe@0
 | 
   278   local member = selector:exec()
 | 
| 
bsw/jbe@0
 | 
   279   if member and member:check_password(password) then
 | 
| 
bsw/jbe@0
 | 
   280     return member
 | 
| 
bsw/jbe@0
 | 
   281   else
 | 
| 
bsw/jbe@0
 | 
   282     return nil
 | 
| 
bsw/jbe@0
 | 
   283   end
 | 
| 
bsw/jbe@0
 | 
   284 end
 | 
| 
bsw/jbe@0
 | 
   285 
 | 
| 
bsw/jbe@5
 | 
   286 function Member:by_login(login)
 | 
| 
bsw/jbe@5
 | 
   287   local selector = self:new_selector()
 | 
| 
bsw/jbe@5
 | 
   288   selector:add_where{'"login" = ?', login }
 | 
| 
bsw/jbe@5
 | 
   289   selector:optional_object_mode()
 | 
| 
bsw/jbe@5
 | 
   290   return selector:exec()
 | 
| 
bsw/jbe@5
 | 
   291 end
 | 
| 
bsw/jbe@5
 | 
   292 
 | 
| 
bsw/jbe@5
 | 
   293 function Member:by_name(name)
 | 
| 
bsw/jbe@5
 | 
   294   local selector = self:new_selector()
 | 
| 
bsw/jbe@5
 | 
   295   selector:add_where{'"name" = ?', name }
 | 
| 
bsw/jbe@5
 | 
   296   selector:optional_object_mode()
 | 
| 
bsw/jbe@5
 | 
   297   return selector:exec()
 | 
| 
bsw/jbe@5
 | 
   298 end
 | 
| 
bsw/jbe@5
 | 
   299 
 | 
| 
bsw@2
 | 
   300 function Member:get_search_selector(search_string)
 | 
| 
bsw/jbe@0
 | 
   301   return self:new_selector()
 | 
| 
bsw@2
 | 
   302     :add_field( {'"highlight"("member"."name", ?)', search_string }, "name_highlighted")
 | 
| 
bsw@2
 | 
   303     :add_where{ '"member"."text_search_data" @@ "text_search_query"(?)', search_string }
 | 
| 
bsw/jbe@0
 | 
   304     :add_where("active")
 | 
| 
bsw/jbe@0
 | 
   305 end
 | 
| 
bsw@2
 | 
   306 
 | 
| 
bsw/jbe@6
 | 
   307 function Member.object:set_notify_email(notify_email)
 | 
| 
bsw/jbe@6
 | 
   308   local expiry = db:query("SELECT now() + '7 days'::interval as expiry", "object").expiry
 | 
| 
bsw/jbe@6
 | 
   309   self.notify_email_unconfirmed = notify_email
 | 
| 
bsw/jbe@6
 | 
   310   self.notify_email_secret = multirand.string( 24, "23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" )
 | 
| 
bsw/jbe@6
 | 
   311   self.notify_email_secret_expiry = expiry
 | 
| 
bsw/jbe@6
 | 
   312   local content = slot.use_temporary(function()
 | 
| 
bsw/jbe@6
 | 
   313     slot.put(_"Hello " .. self.name .. ",\n\n")
 | 
| 
bsw/jbe@6
 | 
   314     slot.put(_"Please confirm your email address by clicking the following link:\n\n")
 | 
| 
bsw/jbe@6
 | 
   315     slot.put(config.absolute_base_url .. "index/confirm_notify_email.html?secret=" .. self.notify_email_secret .. "\n\n")
 | 
| 
bsw/jbe@6
 | 
   316     slot.put(_"If this link is not working, please open following url in your web browser:\n\n")
 | 
| 
bsw/jbe@6
 | 
   317     slot.put(config.absolute_base_url .. "index/confirm_notify_email.html\n\n")
 | 
| 
bsw/jbe@6
 | 
   318     slot.put(_"On that page please enter the confirmation code:\n\n")
 | 
| 
bsw/jbe@6
 | 
   319     slot.put(self.notify_email_secret .. "\n\n")
 | 
| 
bsw/jbe@6
 | 
   320   end)
 | 
| 
bsw/jbe@6
 | 
   321   local success = net.send_mail{
 | 
| 
bsw/jbe@6
 | 
   322     envelope_from = config.mail_envelope_from,
 | 
| 
bsw/jbe@6
 | 
   323     from          = config.mail_from,
 | 
| 
bsw/jbe@6
 | 
   324     reply_to      = config.mail_reply_to,
 | 
| 
bsw/jbe@6
 | 
   325     to            = self.notify_email_unconfirmed,
 | 
| 
bsw/jbe@6
 | 
   326     subject       = config.mail_subject_prefix .. _"Email confirmation request",
 | 
| 
bsw/jbe@6
 | 
   327     content_type  = "text/plain; charset=UTF-8",
 | 
| 
bsw/jbe@6
 | 
   328     content       = content
 | 
| 
bsw/jbe@6
 | 
   329   }
 | 
| 
bsw@75
 | 
   330   if success then
 | 
| 
bsw@75
 | 
   331     local lock_expiry = db:query("SELECT now() + '1 hour'::interval AS lock_expiry", "object").lock_expiry
 | 
| 
bsw@75
 | 
   332     self.notify_email_lock_expiry = lock_expiry
 | 
| 
bsw@75
 | 
   333   end
 | 
| 
bsw@75
 | 
   334   self:save()
 | 
| 
bsw/jbe@6
 | 
   335   return success
 | 
| 
bsw/jbe@6
 | 
   336 end
 | 
| 
bsw@11
 | 
   337 
 | 
| 
bsw/jbe@19
 | 
   338 function Member.object:get_setting(key)
 | 
| 
bsw@79
 | 
   339   return Setting:by_pk(self.id, key)
 | 
| 
bsw/jbe@19
 | 
   340 end
 | 
| 
bsw/jbe@19
 | 
   341 
 | 
| 
bsw/jbe@19
 | 
   342 function Member.object:get_setting_value(key)
 | 
| 
bsw@79
 | 
   343   local setting = Setting:by_pk(self.id, key)
 | 
| 
bsw/jbe@19
 | 
   344   if setting then
 | 
| 
bsw/jbe@19
 | 
   345     return setting.value
 | 
| 
bsw/jbe@19
 | 
   346   end
 | 
| 
bsw@11
 | 
   347 end
 | 
| 
bsw@11
 | 
   348 
 | 
| 
bsw@11
 | 
   349 function Member.object:set_setting(key, value)
 | 
| 
bsw/jbe@19
 | 
   350   local setting = self:get_setting(key)
 | 
| 
bsw/jbe@19
 | 
   351   if not setting then
 | 
| 
bsw/jbe@19
 | 
   352     setting = Setting:new()
 | 
| 
bsw@79
 | 
   353     setting.member_id = self.id
 | 
| 
bsw/jbe@19
 | 
   354     setting.key = key
 | 
| 
bsw/jbe@19
 | 
   355   end
 | 
| 
bsw/jbe@19
 | 
   356   setting.value = value
 | 
| 
bsw/jbe@19
 | 
   357   setting:save()
 | 
| 
bsw@11
 | 
   358 end
 | 
| 
bsw@11
 | 
   359 
 | 
| 
bsw@11
 | 
   360 function Member.object:get_setting_maps_by_key(key)
 | 
| 
bsw@11
 | 
   361   return SettingMap:new_selector()
 | 
| 
bsw@11
 | 
   362     :add_where{ "member_id = ?", self.id }
 | 
| 
bsw@11
 | 
   363     :add_where{ "key = ?", key }
 | 
| 
bsw@11
 | 
   364     :add_order_by("subkey")
 | 
| 
bsw@11
 | 
   365     :exec()
 | 
| 
bsw@11
 | 
   366 end
 | 
| 
bsw@11
 | 
   367 
 | 
| 
bsw@11
 | 
   368 function Member.object:get_setting_map_by_key_and_subkey(key, subkey)
 | 
| 
bsw@11
 | 
   369   return SettingMap:new_selector()
 | 
| 
bsw@11
 | 
   370     :add_where{ "member_id = ?", self.id }
 | 
| 
bsw@11
 | 
   371     :add_where{ "key = ?", key }
 | 
| 
bsw@11
 | 
   372     :add_where{ "subkey = ?", subkey }
 | 
| 
bsw@11
 | 
   373     :add_order_by("subkey")
 | 
| 
bsw@11
 | 
   374     :optional_object_mode()
 | 
| 
bsw@11
 | 
   375     :exec()
 | 
| 
bsw@11
 | 
   376 end
 | 
| 
bsw@11
 | 
   377 
 | 
| 
bsw@11
 | 
   378 function Member.object:set_setting_map(key, subkey, value)
 | 
| 
poelzi@144
 | 
   379   setting_map = self:get_setting_map_by_key_and_subkey(key, subkey)
 | 
| 
poelzi@144
 | 
   380   if not setting_map then
 | 
| 
poelzi@144
 | 
   381     setting_map = SettingMap:new()
 | 
| 
poelzi@144
 | 
   382     setting_map.member_id = self.id
 | 
| 
poelzi@144
 | 
   383     setting_map.key = key
 | 
| 
poelzi@144
 | 
   384     setting_map.subkey = subkey
 | 
| 
poelzi@144
 | 
   385   end
 | 
| 
poelzi@144
 | 
   386   setting_map.value = value
 | 
| 
poelzi@144
 | 
   387   setting_map:save()
 | 
| 
bsw@11
 | 
   388 end
 | 
| 
bsw@75
 | 
   389 
 | 
| 
bsw@75
 | 
   390 function Member.object_get:notify_email_locked()
 | 
| 
bsw@75
 | 
   391   return(
 | 
| 
bsw@75
 | 
   392     Member:new_selector()
 | 
| 
bsw@75
 | 
   393       :add_where{ "id = ?", app.session.member.id }
 | 
| 
bsw@75
 | 
   394       :add_where("notify_email_lock_expiry > now()")
 | 
| 
bsw@75
 | 
   395       :count() == 1
 | 
| 
bsw@75
 | 
   396   )
 | 
| 
poelzi@134
 | 
   397 end
 | 
| 
poelzi@134
 | 
   398 
 | 
| 
poelzi@134
 | 
   399 function Member.object:ui_field_text(args)
 | 
| 
poelzi@134
 | 
   400   args = args or {}
 | 
| 
poelzi@134
 | 
   401   if app.session.member_id or config.public_access == "pseudonym" then
 | 
| 
poelzi@134
 | 
   402     -- ugly workaround for getting html into a replaced string and to the user
 | 
| 
poelzi@134
 | 
   403     ui.container{label = args.label, label_attr={class="ui_field_label"}, content = function()
 | 
| 
poelzi@134
 | 
   404         slot.put(string.format('<span><a href="%s">%s</a></span>',
 | 
| 
poelzi@134
 | 
   405                                                 encode.url{
 | 
| 
poelzi@134
 | 
   406                                                   module    = "member",
 | 
| 
poelzi@134
 | 
   407                                                   view      = "show",
 | 
| 
poelzi@134
 | 
   408                                                   id        = self.id,
 | 
| 
poelzi@134
 | 
   409                                                 },
 | 
| 
poelzi@134
 | 
   410                                                 encode.html(self.name)))
 | 
| 
poelzi@134
 | 
   411       end
 | 
| 
poelzi@134
 | 
   412     }
 | 
| 
poelzi@134
 | 
   413   else
 | 
| 
poelzi@134
 | 
   414     ui.field.text{ label = args.label,      value = _"[not displayed public]" }
 | 
| 
poelzi@134
 | 
   415   end
 | 
| 
poelzi@134
 | 
   416 end
 |