Debbugs::User(3pm) User Contributed Perl Documentation Debbugs::User(3pm)

Debbugs::User -- User settings

use Debbugs::User qw(is_valid_user read_usertags write_usertags);

Debbugs::User::is_valid_user($userid);

$u = Debbugs::User::open($userid); $u = Debbugs::User::open(user => $userid, locked => 0);

$u = Debbugs::User::open(user => $userid, locked => 1); $u->write();

$u->{"tags"} $u->{"categories"} $u->{"is_locked"} $u->{"name"}

read_usertags(\%ut, $userid); write_usertags(\%ut, $userid);

Usertags are in a file which has (roughly) RFC822 format, with stanzas separated by newlines. For example:

 Tag: search
 Bugs: 73671, 392392
 
 Value: priority
 Bug-73671: 5
 Bug-73487: 2
 
 Value: bugzilla
 Bug-72341: http://bugzilla/2039471
 Bug-1022: http://bugzilla/230941
 
 Category: normal
 Cat1: status
 Cat2: debbugs.tasks
 
 Category: debbugs.tasks
 Hidden: yes
 Cat1: debbugs.tasks
 Cat1Options:
  tag=quick
  tag=medium
  tag=arch
  tag=not-for-me

:all -- all functions that can be exported

     my $filename = usertag_file_from_email($email)

Turns an email into the filename where the usertag can be located.

     my $user = Debbugs::User->new('foo@bar.com',$lock);

Reads the user file associated with 'foo@bar.com' and returns a Debbugs::User object.

     read_usertags($usertags,$email)


     write_usertags($usertags,$email);

Gets a lock on the usertags, applies the usertags passed, and writes them out.

     my @stanza = _read_stanza($fh);

Reads a single stanza from a filehandle and returns it

     _wrap_to_length

Wraps a line to a specific length by splitting at commas

2020-04-07 perl v5.30.0