git.oblomov.eu Git - ikiwiki/blob - IkiWiki/UserInfo.pm

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use Storable;
   6
   7 package IkiWiki;
   8
   9 sub userinfo_retrieve () { #{{{
  10         my $userinfo=eval{ Storable::lock_retrieve("$config{wikistatedir}/userdb") };
  11         return $userinfo;
  12 } #}}}
  13
  14 sub userinfo_store ($) { #{{{
  15         my $userinfo=shift;
  16
  17         my $oldmask=umask(077);
  18         my $ret=Storable::lock_store($userinfo, "$config{wikistatedir}/userdb");
  19         umask($oldmask);
  20         return $ret;
  21 } #}}}
  22
  23 sub userinfo_get ($$) { #{{{
  24         my $user=shift;
  25         my $field=shift;
  26
  27         my $userinfo=userinfo_retrieve();
  28         if (! defined $userinfo ||
  29             ! exists $userinfo->{$user} || ! ref $userinfo->{$user} ||
  30             ! exists $userinfo->{$user}->{$field}) {
  31                 return "";
  32         }
  33         return $userinfo->{$user}->{$field};
  34 } #}}}
  35
  36 sub userinfo_set ($$$) { #{{{
  37         my $user=shift;
  38         my $field=shift;
  39         my $value=shift;
  40
  41         my $userinfo=userinfo_retrieve();
  42         if (! defined $userinfo ||
  43             ! exists $userinfo->{$user} || ! ref $userinfo->{$user}) {
  44                 return "";
  45         }
  46
  47         $userinfo->{$user}->{$field}=$value;
  48         return userinfo_store($userinfo);
  49 } #}}}
  50
  51 sub userinfo_setall ($$) { #{{{
  52         my $user=shift;
  53         my $info=shift;
  54
  55         my $userinfo=userinfo_retrieve();
  56         if (! defined $userinfo) {
  57                 $userinfo={};
  58         }
  59         $userinfo->{$user}=$info;
  60         return userinfo_store($userinfo);
  61 } #}}}
  62
  63 sub is_admin ($) { #{{{
  64         my $user_name=shift;
  65
  66         return grep { $_ eq $user_name } @{$config{adminuser}};
  67 } #}}}
  68
  69 sub commit_notify_list ($@) { #{{{
  70         my $committer=shift;
  71         my @pages=@_;
  72
  73         my @ret;
  74         my $userinfo=userinfo_retrieve();
  75         foreach my $user (keys %{$userinfo}) {
  76                 next if $user eq $committer;
  77                 if (exists $userinfo->{$user}->{subscriptions} &&
  78                     length $userinfo->{$user}->{subscriptions} &&
  79                     exists $userinfo->{$user}->{email} &&
  80                     length $userinfo->{$user}->{email} &&
  81                     grep { globlist_match($_, $userinfo->{$user}->{subscriptions}) } @pages) {
  82                         push @ret, $userinfo->{$user}->{email};
  83                 }
  84         }
  85         return @ret;
  86 } #}}}
  87
  88 1