Specifications

LISTING 28.2 Continued
}
//all other actions require user to be logged in
if(check_logged_in())
{
switch ( $action )
{
case ‘account-settings’ :
{
display_account_form($normal_user, $admin_user, get_email(),
get_real_name(get_email()), get_mimetype(get_email()));
break;
}
case ‘show-other-lists’ :
{
display_items(“Unsubscribed Lists”,
get_unsubscribed_lists(get_email()), ‘information’,
‘show-archive’, ‘subscribe’);
break;
}
case ‘subscribe’ :
{
subscribe(get_email(), $id);
display_items(“Subscribed Lists”, get_subscribed_lists(get_email()),
‘information’, ‘show-archive’, ‘unsubscribe’);
break;
}
case ‘unsubscribe’ :
{
unsubscribe(get_email(), $id);
display_items(“Subscribed Lists”, get_subscribed_lists(get_email()),
‘information’, ‘show-archive’, ‘unsubscribe’);
break;
}
case ‘’:
case ‘show-my-lists’ :
{
display_items(“Subscribed Lists”, get_subscribed_lists(get_email()),
‘information’, ‘show-archive’, ‘unsubscribe’);
break;
}
case ‘change-password’ :
{
display_password_form();
break;
}
Building a Mailing List Manager
C
HAPTER 28
28
BUILDING A
MAILING LIST
MANAGER
667
34 7842 CH28 3/6/01 3:46 PM Page 667