bless $self, $class;
$self->{filename} = _file_from_email($self->{email});
- if (not -r $p) {
- return bless $user, "Debbugs::User";
+ if (not -r $self->{filename}) {
+ return $self;
}
- my $uf = IO::File->new($p,'r')
- or die "Unable to open file $p for reading: $!";
+ my $uf = IO::File->new($self->{filename},'r')
+ or die "Unable to open file $self->{filename} for reading: $!";
if ($need_lock) {
flock($uf, LOCK_EX);
- $user->{"locked"} = $uf;
+ $self->{"locked"} = $uf;
}
while(1) {
sub write {
my $self = shift;
- my $uf;
+
my $ut = $self->{"tags"};
my $p = $self->{"filename"};
sub read_usertags {
my ($usertags,$email) = @_;
- carp "read_usertags is deprecated";
+# carp "read_usertags is deprecated";
my $user = get_user($email);
- for my $t (keys %{$user->{"tags"}}) {
- $ut->{$t} = [] unless defined $ut->{$t};
- push @{$ut->{$t}}, @{$user->{"tags"}->{$t}};
+ for my $tag (keys %{$user->{"tags"}}) {
+ $usertags->{$tag} = [] unless defined $usertags->{$tag};
+ push @{$usertags->{$tag}}, @{$user->{"tags"}->{$tag}};
}
return $usertags;
}
sub write_usertags {
my ($usertags,$email) = @_;
- carp "write_usertags is deprecated";
+# carp "write_usertags is deprecated";
my $user = Debbugs::User->new($email,1); # locked
- $user->{"tags"} = { %{$ut} };
+ $user->{"tags"} = { %{$usertags} };
$user->write();
}
sub _wrap_to_length {
my ($content,$line_length) = @_;
- my $current_line_length;
+ my $current_line_length = 0;
my $result = "";
while ($content =~ m/^([^,]*,\s*)(.*)$/ || $content =~ m/^([^,]+)()$/) {
my $current_word = $1;
1;
__END__
-# -*- cperl-set-style: PerlStyle -*-