Parent Directory | Revision Log | Patch
revision 55 by dpavlin, Fri Jan 6 20:39:58 2006 UTC | revision 56 by dpavlin, Fri Jan 6 20:45:48 2006 UTC | |
---|---|---|
# | Line 1454 sub set_snippet_width { | Line 1454 sub set_snippet_width { |
1454 | } | } |
1455 | ||
1456 | ||
1457 | =head2 set_user | |
1458 | ||
1459 | Manage users of node | |
1460 | ||
1461 | $node->set_user( 'name', $mode ); | |
1462 | ||
1463 | C<$mode> can be one of: | |
1464 | ||
1465 | =over 4 | |
1466 | ||
1467 | =item 0 | |
1468 | ||
1469 | delete account | |
1470 | ||
1471 | =item 1 | |
1472 | ||
1473 | set administrative right for user | |
1474 | ||
1475 | =item 2 | |
1476 | ||
1477 | set user account as guest | |
1478 | ||
1479 | =back | |
1480 | ||
1481 | Return true on success, otherwise false. | |
1482 | ||
1483 | =cut | |
1484 | ||
1485 | sub set_user { | |
1486 | my $self = shift; | |
1487 | my ($name, $mode) = @_; | |
1488 | ||
1489 | return unless ($self->{url}); | |
1490 | croak "mode must be number, not '$mode'" unless ($mode =~ m/^\d+$/); | |
1491 | ||
1492 | $self->shuttle_url( $self->{url} . '/_set_user', | |
1493 | 'text/plain', | |
1494 | 'name=' . uri_escape($name) . '&mode=' . $mode, | |
1495 | undef | |
1496 | ) == 200; | |
1497 | } | |
1498 | ||
1499 | ||
1500 | =head1 PRIVATE METHODS | =head1 PRIVATE METHODS |
1501 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |