From 3993735cee22e733a18144e01e74238cfcd0ea9a Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sun, 29 Feb 2004 14:38:54 +0000 Subject: [PATCH] somebody put this back into the distribution, i removed it again --- lib/WebGUI/Operation/Account.pm | 653 -------------------------------- 1 file changed, 653 deletions(-) delete mode 100644 lib/WebGUI/Operation/Account.pm diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm deleted file mode 100644 index 2b7b4cce7..000000000 --- a/lib/WebGUI/Operation/Account.pm +++ /dev/null @@ -1,653 +0,0 @@ -package WebGUI::Operation::Account; - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2003 Plain Black LLC. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use Exporter; -use strict qw(vars subs); -use URI; -use WebGUI::DateTime; -use WebGUI::ErrorHandler; -use WebGUI::FormProcessor; -use WebGUI::HTMLForm; -use WebGUI::International; -use WebGUI::Macro; -use WebGUI::Mail; -use WebGUI::MessageLog; -use WebGUI::Paginator; -use WebGUI::Privilege; -use WebGUI::Session; -use WebGUI::SQL; -use WebGUI::URL; -use WebGUI::User; -use WebGUI::Utility; -use WebGUI::Authentication; - -our @ISA = qw(Exporter); -our @EXPORT = qw(&www_viewMessageLogMessage &www_viewThreadSubscriptions &www_viewMessageLog &www_viewProfile &www_editProfile &www_editProfileSave &www_createAccount &www_deactivateAccount &www_deactivateAccountConfirm &www_displayAccount &www_displayLogin &www_login &www_logout &www_recoverPassword &www_recoverPasswordFinish &www_createAccountSave &www_updateAccount); - -#------------------------------------------------------------------- -sub _accountOptions { - my ($output); - $output = '
'; - return $output; -} - -#------------------------------------------------------------------- -sub _checkForDuplicateUsername { - my $username = $_[0]; - my ($otherUser) = WebGUI::SQL->quickArray("select count(*) from users where username=".quote($username)); - if ($otherUser) { - return '
  • '.WebGUI::International::get(77).' "'.$username.'too", "'.$username.'2", ' - .'"'.$username.'_'.WebGUI::DateTime::epochToHuman(time(),"%y").'"'; - } else { - return ""; - } -} - -#------------------------------------------------------------------- -sub _logLogin { - WebGUI::SQL->write("insert into userLoginLog values ('$_[0]','$_[1]',".time().",". - quote($session{env}{REMOTE_ADDR}).",".quote($session{env}{HTTP_USER_AGENT}).")"); -} - -#------------------------------------------------------------------- -sub _validateProfileData { - my (%data, $error, $a, %field); - tie %field, 'Tie::CPHash'; - $a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory - where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId - and userProfileCategory.editable=1 and userProfileField.editable=1 - order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber"); - while (%field = $a->hash) { - $data{$field{fieldName}} = WebGUI::FormProcessor::process($field{fieldName},$field{dataType}); - if ($field{required} && $data{$field{fieldName}} eq "") { - $error .= '
  • '; - $error .= eval $field{fieldLabel}; - $error .= ' '.WebGUI::International::get(451); - } - } - $a->finish; - return (\%data, $error); -} - - -#------------------------------------------------------------------- -sub www_createAccount { - my ($output, %language, @array, - $previousCategory, $category, $f, $a, %data, $default, $label, $values, $method); - tie %data, 'Tie::CPHash'; - if ($session{user}{userId} != 1) { - $output .= www_displayAccount(); - } elsif (!$session{setting}{anonymousRegistration}) { - $output .= www_displayLogin(); - } else { - $output .= '

    '.WebGUI::International::get(54).'

    '; - - $f = WebGUI::HTMLForm->new(); - $f->hidden("op","createAccountSave"); - $f->raw(WebGUI::Authentication::registrationForm()); - $a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory - where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId - order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber"); - while(%data = $a->hash) { - if ($data{required}) { - $category = eval $data{categoryName}; - if ($category ne $previousCategory) { - #$f->raw(''.$category.''); - } - $values = eval $data{dataValues}; - $method = $data{dataType}; - $label = eval $data{fieldLabel}; - if ($method eq "selectList") { - # note: this big if statement doesn't look elegant, but doing regular - # ORs caused problems with the array reference. - if ($session{form}{$data{fieldName}}) { - $default = [$session{form}{$data{fieldName}}]; - } elsif ($session{user}{$data{fieldName}}) { - $default = [$session{user}{$data{fieldName}}]; - } else { - $default = eval $data{dataDefault}; - } - $f->select( - -name=>$data{fieldName}, - -options=>$values, - -label=>$label, - -value=>$default - ); - } else { - if ($session{form}{$data{fieldName}}) { - $default = $session{form}{$data{fieldName}}; - } elsif (exists $session{user}{$data{fieldName}}) { - $default = $session{user}{$data{fieldName}}; - } else { - $default = eval $data{dataDefault}; - } - $f->$method( - -name=>$data{fieldName}, - -label=>$label, - -value=>$default - ); - } - $previousCategory = $category; - } - } - $a->finish; - $f->submit; - $output .= $f->print; - $output .= '
    '; - } - return $output; -} - -#------------------------------------------------------------------- -sub www_createAccountSave { - my ($profile, $u, $username, $uri, $temp, $ldap, $port, %args, $search, $cmd, - $connectDN, $auth, $output, $error, $uid, $encryptedPassword, $fieldName); - return www_displayAccount() if ($session{user}{userId} != 1); - ($username, $error) = WebGUI::Authentication::registrationFormValidate(); - ($profile, $temp) = _validateProfileData(); - $error .= $temp; - $error .= _checkForDuplicateUsername($username); - if ($error eq "") { - $u = WebGUI::User->new("new"); - $u->username($username); - $u->authMethod($session{setting}{authMethod}); - $u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma}); - foreach $fieldName (keys %{$profile}) { - $u->profileField($fieldName,${$profile}{$fieldName}); - } - WebGUI::Authentication::registrationFormSave($u->userId); - WebGUI::Session::convertVisitorToUser($session{var}{sessionId},$u->userId); - _logLogin($u->userId,"success"); - system(WebGUI::Macro::process($session{setting}{runOnRegistration})) if ($session{setting}{runOnRegistration} ne ""); - WebGUI::MessageLog::addInternationalizedEntry('',$session{setting}{onNewUserAlertGroup},'',536) if ($session{setting}{alertOnNewUser}); - } else { - $output = "

    ".WebGUI::International::get(70)."

    ".$error.www_createAccount(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_deactivateAccount { - my ($output); - if ($session{user}{userId} == 1) { - $output = www_displayLogin(); - } elsif ($session{user}{userId} < 26) { - $output = WebGUI::Privilege::vitalComponent(); - } elsif ($session{setting}{selfDeactivation}) { - $output = '

    '.WebGUI::International::get(42).'

    '; - $output .= WebGUI::International::get(60).'

    '; - $output .= '

    '. - WebGUI::International::get(44).''; - $output .= '    '.WebGUI::International::get(45).'
    '; - } else { - $output = WebGUI::Privilege::adminOnly(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_deactivateAccountConfirm { - my ($u); - if ($session{user}{userId} < 26) { - return WebGUI::Privilege::vitalComponent(); - } elsif ($session{setting}{selfDeactivation}) { - $u = WebGUI::User->new($session{user}{userId}); - $u->status("Selfdestructed"); - WebGUI::Session::end($session{var}{sessionId}); - WebGUI::Session::start(1); - } - return www_displayLogin(); -} - -#------------------------------------------------------------------- -sub www_displayAccount { - my ($output, %hash, @array, $f); - if ($session{user}{userId} != 1) { - $output = '

    '.WebGUI::International::get(61).'

    '; - my $form = WebGUI::Authentication::userForm(); - unless (defined $form) { - $output .= WebGUI::International::get(856); - } else { - $f = WebGUI::HTMLForm->new; - $f->hidden("op","updateAccount"); - $f->readOnly($session{user}{karma},WebGUI::International::get(537)) if ($session{setting}{useKarma}); - $f->raw($form); - $f->submit; - $output .= $f->print; - } - $output .= _accountOptions(); - } else { - $output .= www_displayLogin(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_displayLogin { - my ($output, $f); - if ($session{user}{userId} != 1) { - $output .= www_displayAccount(); - } else { - $output .= '

    '.WebGUI::International::get(66).'

    '; - $f = WebGUI::HTMLForm->new; - if ($session{setting}{encryptLogin}) { - $f->{_header} =~ s/http:/https:/; - } - $f->hidden("op","login"); - $f->text("username",WebGUI::International::get(50)); - $f->password("identifier",WebGUI::International::get(51)); - $f->submit(WebGUI::International::get(52)); - $output .= $f->print; - $output .= '
    '; - } - return $output; -} - -#------------------------------------------------------------------- -sub www_editProfile { - my ($output, $f, $a, %data, $method, $values, $category, $label, $default, $previousCategory, $subtext); - if ($session{user}{userId} != 1) { - tie %data, 'Tie::CPHash'; - $output .= '

    '.WebGUI::International::get(338).'

    '; - $f = WebGUI::HTMLForm->new; - $f->hidden("op","editProfileSave"); - $f->hidden("uid",$session{user}{userId}); - $a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory - where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId - and userProfileCategory.editable=1 and userProfileField.editable=1 - order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber"); - while(%data = $a->hash) { - $category = eval $data{categoryName}; - if ($category ne $previousCategory) { - $f->raw(''.$category.''); - } - $values = eval $data{dataValues}; - $method = $data{dataType}; - $label = eval $data{fieldLabel}; - if ($data{required}) { - $subtext = "*"; - } else { - $subtext = ""; - } - if ($method eq "selectList") { - # note: this big if statement doesn't look elegant, but doing regular - # ORs caused problems with the array reference. - if ($session{form}{$data{fieldName}}) { - $default = [$session{form}{$data{fieldName}}]; - } elsif ($session{user}{$data{fieldName}}) { - $default = [$session{user}{$data{fieldName}}]; - } else { - $default = eval $data{dataDefault}; - } - $f->select( - -name=>$data{fieldName}, - -options=>$values, - -label=>$label, - -value=>$default, - -subtext=>$subtext - ); - } else { - if ($session{form}{$data{fieldName}}) { - $default = $session{form}{$data{fieldName}}; - } elsif (exists $session{user}{$data{fieldName}}) { - $default = $session{user}{$data{fieldName}}; - } else { - $default = eval $data{dataDefault}; - } - $f->$method( - -name=>$data{fieldName}, - -label=>$label, - -value=>$default, - -subtext=>$subtext - ); - } - $previousCategory = $category; - } - $a->finish; - $f->submit; - $output .= $f->print; - $output .= _accountOptions(); - } else { - $output .= www_displayLogin(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_editProfileSave { - my ($profile, $fieldName, $error, $u); - if ($session{user}{userId} != 1) { - ($profile, $error) = _validateProfileData(); - if ($error eq "") { - $u = WebGUI::User->new($session{user}{userId}); - foreach $fieldName (keys %{$profile}) { - $u->profileField($fieldName,${$profile}{$fieldName}); - } - return www_displayAccount(); - } else { - return ''.www_editProfile(); - } - } else { - return www_displayLogin(); - } -} - -#------------------------------------------------------------------- -sub www_login { - my ($cmd, $uid, $success, $u); - - ($uid) = WebGUI::SQL->quickArray("select userId from users where username=".quote($session{form}{username})); - - if ($uid) { - $u = WebGUI::User->new($uid); - if ($u->status eq 'Active') { - $success = WebGUI::Authentication::authenticate($uid,$session{form}{identifier},$u->authMethod); - } else { - $success = WebGUI::International::get(820); - } - } else { - $success = WebGUI::International::get(68); - } - - if ($success == 1) { - WebGUI::Session::convertVisitorToUser($session{var}{sessionId},$uid); - $u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma}); - _logLogin($uid,"success"); - return ""; - } else { - _logLogin($uid, "failure"); - WebGUI::ErrorHandler::security("login to account ".$session{form}{username}." with invalid information."); - return "

    ".WebGUI::International::get(70)."

    ".$success.www_displayLogin(); - } -} - -#------------------------------------------------------------------- -sub www_logout { - WebGUI::Session::end($session{var}{sessionId}); - WebGUI::Session::start(1); - return ""; -} - -#------------------------------------------------------------------- -sub www_recoverPassword { - my ($output, $f); - if ($session{user}{userId} != 1) { - $output .= www_displayAccount(); - } else { - $output .= '

    '.WebGUI::International::get(71).'

    '; - $f = WebGUI::HTMLForm->new; - $f->hidden("op","recoverPasswordFinish"); - $f->email("email",WebGUI::International::get(56)); - $f->submit(WebGUI::International::get(72)); - $output .= $f->print; - $output .= '
    '; - } - return $output; -} - -#------------------------------------------------------------------- -sub www_recoverPasswordFinish { - my ($sth, $username, $encryptedPassword, $userId, $password, $flag, $message, $output); - if ($session{form}{email} eq "") { - return ''.www_recoverPassword() - } - $sth = WebGUI::SQL->read("select users.username, users.userId from users, userProfileData - where users.userId=userProfileData.userId and userProfileData.fieldName='email' - and fieldData=".quote($session{form}{email})); - while (($username,$userId) = $sth->array) { - foreach (0,1,2,3,4,5) { - $password .= chr(ord('A') + randint(32)); - } - $encryptedPassword = Digest::MD5::md5_base64($password); - WebGUI::Authentication::saveParams($userId,"WebGUI",{identifier=>$encryptedPassword}); - $flag = 1; - $message = $session{setting}{recoverPasswordEmail}; - $message .= "\n".WebGUI::International::get(50).": ".$username."\n"; - $message .= WebGUI::International::get(51).": ".$password."\n"; - WebGUI::Mail::send($session{form}{email},WebGUI::International::get(74),$message); - } - $sth->finish(); - if ($flag) { - $output = ''; - $output .= www_displayLogin(); - } else { - $output = ''; - $output .= www_recoverPassword(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_updateAccount { - my ($output, $username, $error, $encryptedPassword, $passwordStatement, $u); - if ($session{user}{userId} != 1) { - ($username, $error) = WebGUI::Authentication::userFormValidate(); - $error .= _checkForDuplicateUsername($username); - if ($error eq "") { - $u = WebGUI::User->new($session{user}{userId}); - $u->username($username); - WebGUI::Authentication::userFormSave(); - $output .= '
  • '.WebGUI::International::get(81).'

    '; - WebGUI::Session::refreshUserInfo($u->userId); - } else { - $output = $error; - } - $output .= www_displayAccount(); - } else { - $output .= www_displayLogin(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_viewMessageLog { - my (%status, @data, $output, $sth, @row, $i, $p); - if (WebGUI::Privilege::isInGroup(2,$session{user}{userId})) { - %status = (notice=>WebGUI::International::get(551),pending=>WebGUI::International::get(552),completed=>WebGUI::International::get(350)); - $output = '

    '.WebGUI::International::get(159).'

    '; - $sth = WebGUI::SQL->read("select messageLogId,subject,url,dateOfEntry,status from messageLog where userId=$session{user}{userId} order by dateOfEntry desc"); - while (@data = $sth->array) { - $row[$i] = ''; - $row[$i] .= ''.$data[1].''; - $row[$i] .= ''; - if ($data[2] ne "") { - $data[2] = WebGUI::URL::append($data[2],'mlog='.$data[0]); - $row[$i] .= ''; - } - $row[$i] .= $status{$data[4]}; - if ($data[2] ne "") { - $row[$i] .= ''; - } - $row[$i] .= ''.epochToHuman($data[3]).''; - $i++; - } - $sth->finish; - $p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewMessageLog')); - $p->setDataByArrayRef(\@row); - $output .= ''; - $output .= ' - - '; - if ($p->getPage($session{form}{pn}) eq "") { - $output .= ''; - } else { - $output .= $p->getPage($session{form}{pn}); - } - $output .= '
    '.WebGUI::International::get(351).''.WebGUI::International::get(553).''.WebGUI::International::get(352).'
    '.WebGUI::International::get(353).'
    '; - $output .= $p->getBarSimple($session{form}{pn}); - $output .= _accountOptions(); - } else { - $output = WebGUI::Privilege::insufficient(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_viewMessageLogMessage { - my (%status, %data, $output, $sth, @row, $i, $p); - tie %data, 'Tie::CPHash'; - if (WebGUI::Privilege::isInGroup(2,$session{user}{userId})) { - %status = (notice=>WebGUI::International::get(551),pending=>WebGUI::International::get(552),completed=>WebGUI::International::get(350)); - $output = '

    '.WebGUI::International::get(159).'

    '; - %data = WebGUI::SQL->quickHash("select * from messageLog where messageLogId=$session{form}{mlog} and userId=$session{user}{userId}"); - $output .= ''.$data{subject}.'
    '; - $output .= epochToHuman($data{dateOfEntry}).'
    '; - if ($data{url} ne "" && $data{status} eq 'pending') { - $data{url} = WebGUI::URL::append($data{url},'mlog='.$data{messageLogId}); - $output .= ''; - } - $output .= $status{$data{status}}.'
    '; - if ($data{url} ne "") { - $output .= '    '; - } - unless ($data{message} =~ /\/ig || $data{message} =~ /\/ig || $data{message} =~ /\/ig) { - $data{message} =~ s/\n/\/g; - } - $output .= '
    '.$data{message}.'

    '; - if ($data{url} ne "" && $data{status} eq 'pending') { - $output .= ''.WebGUI::International::get(554).' · '; - } - $output .= ''.WebGUI::International::get(354).'

    '; - $output .= _accountOptions(); - } else { - $output = WebGUI::Privilege::insufficient(); - } - return $output; -} - -#------------------------------------------------------------------- -sub www_viewProfile { - my ($a, %data, $category, $label, $value, $previousCategory, $output, $u, %gender); - %gender = ('neuter'=>WebGUI::International::get(403),'male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340)); - $u = WebGUI::User->new($session{form}{uid}); - my $header = '

    '.WebGUI::International::get(347).' '.$u->username.'

    '; - if ($u->username eq "") { - return WebGUI::Privilege::notMember(); - } elsif ($u->profileField("publicProfile") < 1) { - return $header.WebGUI::International::get(862); - } elsif (WebGUI::Privilege::isInGroup(2)) { - $output = $header; - $output .= ''; - $a = WebGUI::SQL->read("select * from userProfileField,userProfileCategory - where userProfileField.profileCategoryId=userProfileCategory.profileCategoryId - and userProfileCategory.visible=1 and userProfileField.visible=1 - order by userProfileCategory.sequenceNumber,userProfileField.sequenceNumber"); - while (%data = $a->hash) { - $category = eval $data{categoryName}; - if ($category ne $previousCategory) { - $output .= ''; - } - $label = eval $data{fieldLabel}; - if ($data{dataValues}) { - $value = eval $data{dataValues}; - $value = ${$value}{$u->profileField($data{fieldName})}; - } else { - $value = $u->profileField($data{fieldName}); - } - if ($data{dataType} eq "date") { - $value = WebGUI::DateTime::epochToHuman($value,"%z"); - } - unless ($data{fieldName} eq "email" and $u->profileField("publicEmail") < 1) { - $output .= ''; - } - $previousCategory = $category; - } - $a->finish; - $output .= '
    '.$category.'
    '.$label.''.$value.'
    '; - if ($session{user}{userId} == $session{form}{uid}) { - $output .= _accountOptions(); - } - return $output; - } else { - return WebGUI::Privilege::insufficient(); - } -} - - -#------------------------------------------------------------------- -sub www_viewThreadSubscriptions { - WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(2)); - my ($data, $output, $list); - $output = '

    '.WebGUI::International::get(877).'

    '; - my $sth = WebGUI::SQL->read("select b.subject,b.messageId,b.wobjectId,b.subId,d.urlizedTitle - from discussionSubscription a left join discussion b on (a.threadId=b.rid and b.pid=0) - left join wobject c on (b.wobjectId=c.wobjectId) left join page d on (c.pageId=d.pageId) - where a.userId=$session{user}{userId}"); - while ($data = $sth->hashRef) { - $list .= '
  • '.$data->{subject}.''; - } - $sth->finish; - if ($list eq "") { - $output .= WebGUI::International::get(878); - } else { - $output .= '
    '; - } - $output .= _accountOptions(); - return $output; -} - - -1; -