my $op = $S->cgi->param('op');
my $user = $S->cgi->param('user');
my $content;
if($S->{GID} ne 'Anonymous'){
my $subscriptions;
map {$subscriptions->{$_}=1;} split(/,/,$S->pref('diary_sub'));
if($op eq 'diary'){
if(exists $subscriptions->{$user}){
delete $subscriptions->{$user};
}else{$subscriptions->{$user}=1;}
$S->pref('diary_sub',join(',',keys %$subscriptions));
$S->{APACHE}->header_out('location',$S->{REFERER} \|\| "$S->{UI}->{VARS}->{rootdir}/section/Diary");
$S->{APACHE}->header_out('Connection','close');
$S->{APACHE}->status(301); $S->{HEADER_ONLY}=1;
} else{
my $text=($subscriptions->{$ARGS[0]})?'Unsubscribe':'Subscribe';
$content=qq{<font size="2">[</font><a href="|rootdir|/diary/$ARGS[0]"><font size="2">$text</font></a><font size="2">]</font>};
return{content=>$content};
}
}
