liquid_feedback_frontend: 29683c7c7926 model/member.lua

253 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 })

254 end

255 if args.order then

256 if args.order == "id" then

257 selector:add_order_by("id")

258 elseif args.order == "login" then

259 selector:add_order_by("login")

260 elseif args.order == "name" then

261 selector:add_order_by("name")

262 else

263 error("invalid order")

264 end

265 end

266 return selector

267 end

268

269 function Member.object:set_password(password)

270 local hash = os.crypt(

271 password,

272 "$1$" .. multirand.string(

273 8,

274 "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz./"

275 )

276 )

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

278 self.password = hash

279 end

280

281 function Member.object:check_password(password)

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

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

284 else

285 return false

286 end

287 end

288

289 function Member.object_get:published_contacts()

290 return Member:new_selector()

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

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

293 :add_where("public")

294 :exec()

295 end

296

297 function Member:by_login_and_password(login, password)

298 local selector = self:new_selector()

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

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

301 selector:optional_object_mode()

302 local member = selector:exec()

303 if member and member:check_password(password) then

304 return member

305 else

306 return nil

307 end

308 end

309

310 function Member:by_login(login)

311 local selector = self:new_selector()

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

313 selector:optional_object_mode()

314 return selector:exec()

315 end

316

317 function Member:by_name(name)

318 local selector = self:new_selector()

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

320 selector:optional_object_mode()

321 return selector:exec()

322 end

323

324 function Member:get_search_selector(search_string)

325 return self:new_selector()

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

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

328 :add_where("activated NOTNULL AND active")

329 end

330

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

332 trace.disable()

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

334 self:save()

335

336 local subject = subject

337 local content

338

339 if template_file then

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

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

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

343 else

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

345 content = slot.use_temporary(function()

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

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

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

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

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

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

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

353 end)

354 end

355

356 local success = net.send_mail{

357 envelope_from = config.mail_envelope_from,

358 from = config.mail_from,

359 reply_to = config.mail_reply_to,

360 to = self.notify_email_unconfirmed or self.notify_email,

361 subject = subject,

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

363 content = content

364 }

365 return success

366 end

367

368 function Member.object:set_notify_email(notify_email)

369 trace.disable()

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

371 self.notify_email_unconfirmed = notify_email

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

373 self.notify_email_secret_expiry = expiry

374 local content = slot.use_temporary(function()

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

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

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

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

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

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

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

382 end)

383 local success = net.send_mail{

384 envelope_from = config.mail_envelope_from,

385 from = config.mail_from,

386 reply_to = config.mail_reply_to,

387 to = self.notify_email_unconfirmed,

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

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

390 content = content

391 }

392 if success then

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

394 self.notify_email_lock_expiry = lock_expiry

395 end

396 self:save()

397 return success

398 end

399

400 function Member.object:get_setting(key)

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

402 end

403

404 function Member.object:get_setting_value(key)

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

406 if setting then

407 return setting.value

408 end

409 end

410

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

412 local setting = self:get_setting(key)

413 if not setting then

414 setting = Setting:new()

415 setting.member_id = self.id

416 setting.key = key

417 end

418 setting.value = value

419 setting:save()

420 end

421

422 function Member.object:get_setting_maps_by_key(key)

423 return SettingMap:new_selector()

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

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

426 :add_order_by("subkey")

427 :exec()

428 end

429

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

431 return SettingMap:new_selector()

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

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

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

435 :add_order_by("subkey")

436 :optional_object_mode()

437 :exec()

438 end

439

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

441 setting_map = self:get_setting_map_by_key_and_subkey(key, subkey)

442 if not setting_map then

443 setting_map = SettingMap:new()

444 setting_map.member_id = self.id

445 setting_map.key = key

446 setting_map.subkey = subkey

447 end

448 setting_map.value = value

449 setting_map:save()

450 end

451

452 function Member.object_get:notify_email_locked()

453 return(

454 Member:new_selector()

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

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

457 :count() == 1

458 )

459 end

460

461 function Member.object_get:units_with_voting_right()

462 return(Unit:new_selector()

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

464 :exec()

465 )

466 end

467

468 function Member.object:ui_field_text(args)

469 args = args or {}

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

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

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

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

474 encode.url{

475 module = "member",

476 view = "show",

477 id = self.id,

478 },

479 encode.html(self.name)))

480 end

481 }

482 else

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

484 end

485 end

486

487 function Member.object:has_voting_right_for_unit_id(unit_id)

488 return (Privilege:new_selector()

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

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

491 :add_where("voting_right")

492 :optional_object_mode()

493 :for_share()

494 :exec()) and true or false

495 end