- $list = new MMList(S::v('uid'), S::v('password'));
- $ret = $list->create_list($this->liste, $this->desc, $this->advertise,
+ global $globals;
+
+ if ($this->asso == "alias") {
+ $new = $this->liste . '@' . $this->domain;
+ XDB::query('INSERT INTO x4dat.virtual (alias,type) VALUES({?}, "user")', $new);
+ foreach ($this->members as $member) {
+ $res = XDB::query(
+ "SELECT a.alias, b.alias
+ FROM x4dat.aliases AS a
+ LEFT JOIN x4dat.aliases AS b ON (a.id=b.id AND b.type = 'a_vie')
+ WHERE a.alias={?} AND a.type!='homonyme'", $member);
+ list($alias, $blias) = $res->fetchOneRow();
+ $alias = empty($blias) ? $alias : $blias;
+ XDB::query(
+ "INSERT INTO x4dat.virtual_redirect (vid,redirect)
+ SELECT vid, {?}
+ FROM x4dat.virtual
+ WHERE alias={?}", $alias . "@" . $globals->mail->domain, $new);
+ }
+ return 1;
+ }
+
+ $list = new MMList(S::v('uid'), S::v('password'), $this->domain);
+ $ret = $list->create_list($this->liste, utf8_decode($this->desc), $this->advertise,