liquid_feedback_frontend: 346eb72a2a6a model/member.lua

249 selector:join("privilege", "__model_member__privilege", { "member.id = __model_member__privilege.member_id AND __model_member__privilege.voting_right AND __model_member__privilege.unit_id = ?", args.voting_right_for_unit_id })

250 end

251 if args.order then

252 if args.order == "id" then

253 selector:add_order_by("id")

254 elseif args.order == "login" then

255 selector:add_order_by("login")

256 elseif args.order == "name" then

257 selector:add_order_by("name")

258 else

259 error("invalid order")

260 end

261 end

262 return selector

263 end

264

265 function Member.object:set_password(password)

266 local hash = os.crypt(

267 password,

268 "$1$" .. multirand.string(

269 8,

270 "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz./"

271 )

272 )

273 assert(hash, "os.crypt failed")

274 self.password = hash

275 end

276

277 function Member.object:check_password(password)

278 if type(password) == "string" and type(self.password) == "string" then

279 return os.crypt(password, self.password) == self.password

280 else

281 return false

282 end

283 end

284

285 function Member.object_get:published_contacts()

286 return Member:new_selector()

287 :join('"contact"', nil, '"contact"."other_member_id" = "member"."id"')

288 :add_where{ '"contact"."member_id" = ?', self.id }

289 :add_where("public")

290 :exec()

291 end

292

293 function Member:by_login_and_password(login, password)

294 local selector = self:new_selector()

295 selector:add_where{'"login" = ?', login }

296 selector:add_where('NOT "locked"')

297 selector:optional_object_mode()

298 local member = selector:exec()

299 if member and member:check_password(password) then

300 return member

301 else

302 return nil

303 end

304 end

305

306 function Member:by_login(login)

307 local selector = self:new_selector()

308 selector:add_where{'"login" = ?', login }

309 selector:optional_object_mode()

310 return selector:exec()

311 end

312

313 function Member:by_name(name)

314 local selector = self:new_selector()

315 selector:add_where{'"name" = ?', name }

316 selector:optional_object_mode()

317 return selector:exec()

318 end

319

320 function Member:get_search_selector(search_string)

321 return self:new_selector()

322 :add_field( {'"highlight"("member"."name", ?)', search_string }, "name_highlighted")

323 :add_where{ '"member"."text_search_data" @@ "text_search_query"(?)', search_string }

324 :add_where("activated NOTNULL AND active")

325 end

326

327 function Member.object:send_invitation(template_file, subject)

328 trace.disable()

329 self.invite_code = multirand.string( 24, "23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" )

330 self:save()

331

332 local subject = subject

333 local content

334

335 if template_file then

336 local fh = io.open(template_file, "r")

337 content = fh:read("*a")

338 content = (content:gsub("#{invite_code}", self.invite_code))

339 else

340 subject = config.mail_subject_prefix .. _"Invitation to LiquidFeedback"

341 content = slot.use_temporary(function()

342 slot.put(_"Hello\n\n")

343 slot.put(_"You are invited to LiquidFeedback. To register please click the following link:\n\n")

344 slot.put(request.get_absolute_baseurl() .. "index/register.html?invite=" .. self.invite_code .. "\n\n")

345 slot.put(_"If this link is not working, please open following url in your web browser:\n\n")

346 slot.put(request.get_absolute_baseurl() .. "index/register.html\n\n")

347 slot.put(_"On that page please enter the invite key:\n\n")

348 slot.put(self.invite_code .. "\n\n")

349 end)

350 end

351

352 local success = net.send_mail{

353 envelope_from = config.mail_envelope_from,

354 from = config.mail_from,

355 reply_to = config.mail_reply_to,

356 to = self.notify_email_unconfirmed or self.notify_email,

357 subject = subject,

358 content_type = "text/plain; charset=UTF-8",

359 content = content

360 }

361 return success

362 end

363

364 function Member.object:set_notify_email(notify_email)

365 trace.disable()

366 local expiry = db:query("SELECT now() + '7 days'::interval as expiry", "object").expiry

367 self.notify_email_unconfirmed = notify_email

368 self.notify_email_secret = multirand.string( 24, "23456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" )

369 self.notify_email_secret_expiry = expiry

370 local content = slot.use_temporary(function()

371 slot.put(_"Hello " .. self.name .. ",\n\n")

372 slot.put(_"Please confirm your email address by clicking the following link:\n\n")

373 slot.put(request.get_absolute_baseurl() .. "index/confirm_notify_email.html?secret=" .. self.notify_email_secret .. "\n\n")

374 slot.put(_"If this link is not working, please open following url in your web browser:\n\n")

375 slot.put(request.get_absolute_baseurl() .. "index/confirm_notify_email.html\n\n")

376 slot.put(_"On that page please enter the confirmation code:\n\n")

377 slot.put(self.notify_email_secret .. "\n\n")

378 end)

379 local success = net.send_mail{

380 envelope_from = config.mail_envelope_from,

381 from = config.mail_from,

382 reply_to = config.mail_reply_to,

383 to = self.notify_email_unconfirmed,

384 subject = config.mail_subject_prefix .. _"Email confirmation request",

385 content_type = "text/plain; charset=UTF-8",

386 content = content

387 }

388 if success then

389 local lock_expiry = db:query("SELECT now() + '1 hour'::interval AS lock_expiry", "object").lock_expiry

390 self.notify_email_lock_expiry = lock_expiry

391 end

392 self:save()

393 return success

394 end

395

396 function Member.object:get_setting(key)

397 return Setting:by_pk(self.id, key)

398 end

399

400 function Member.object:get_setting_value(key)

401 local setting = Setting:by_pk(self.id, key)

402 if setting then

403 return setting.value

404 end

405 end

406

407 function Member.object:set_setting(key, value)

408 local setting = self:get_setting(key)

409 if not setting then

410 setting = Setting:new()

411 setting.member_id = self.id

412 setting.key = key

413 end

414 setting.value = value

415 setting:save()

416 end

417

418 function Member.object:get_setting_maps_by_key(key)

419 return SettingMap:new_selector()

420 :add_where{ "member_id = ?", self.id }

421 :add_where{ "key = ?", key }

422 :add_order_by("subkey")

423 :exec()

424 end

425

426 function Member.object:get_setting_map_by_key_and_subkey(key, subkey)

427 return SettingMap:new_selector()

428 :add_where{ "member_id = ?", self.id }

429 :add_where{ "key = ?", key }

430 :add_where{ "subkey = ?", subkey }

431 :add_order_by("subkey")

432 :optional_object_mode()

433 :exec()

434 end

435

436 function Member.object:set_setting_map(key, subkey, value)

437 setting_map = self:get_setting_map_by_key_and_subkey(key, subkey)

438 if not setting_map then

439 setting_map = SettingMap:new()

440 setting_map.member_id = self.id

441 setting_map.key = key

442 setting_map.subkey = subkey

443 end

444 setting_map.value = value

445 setting_map:save()

446 end

447

448 function Member.object_get:notify_email_locked()

449 return(

450 Member:new_selector()

451 :add_where{ "id = ?", app.session.member.id }

452 :add_where("notify_email_lock_expiry > now()")

453 :count() == 1

454 )

455 end

456

457 function Member.object_get:units_with_voting_right()

458 return(Unit:new_selector()

459 :join("privilege", nil, { "privilege.unit_id = unit.id AND privilege.member_id = ? AND privilege.voting_right", self.id })

460 :exec()

461 )

462 end

463

464 function Member.object:ui_field_text(args)

465 args = args or {}

466 if app.session.member_id or config.public_access == "pseudonym" or config.public_access == "full" then

467 -- ugly workaround for getting html into a replaced string and to the user

468 ui.container{label = args.label, label_attr={class="ui_field_label"}, content = function()

469 slot.put(string.format('<span><a href="%s">%s</a></span>',

470 encode.url{

471 module = "member",

472 view = "show",

473 id = self.id,

474 },

475 encode.html(self.name)))

476 end

477 }

478 else

479 ui.field.text{ label = args.label, value = _"[not displayed public]" }

480 end

481 end

482

483 function Member.object:has_voting_right_for_unit_id(unit_id)

484 return (Privilege:new_selector()

485 :add_where{ "member_id = ?", self.id }

486 :add_where{ "unit_id = ?", unit_id }

487 :add_where("voting_right")

488 :optional_object_mode()

489 :for_share()

490 :exec()) and true or false

491 end

492

493 function Member.object:get_delegatee_member(unit_id, area_id, issue_id)

494 local selector = Member:new_selector()

495 if unit_id then

496 selector:join("delegation", nil, { "delegation.trustee_id = member.id AND delegation.scope = 'unit' AND delegation.unit_id = ? AND delegation.truster_id = ?", unit_id, self.id })

497 end

498 selector:optional_object_mode()

499 return selector:exec()

500 end