view release on metacpan or  search on metacpan

lib/OurNet/BBS/MailBox/Board.pm  view on Meta::CPAN

sub refresh_meta {
    my $self = shift;

    return if $self->{folder};

    my $file = "$self->{bbsroot}/$self->{board}";

    $self->{folder} = $self->{mgr}->open(folder => $file);
    $self->{_hash}{title} = $self->{folder}->name;
    $self->{_hash}{id}    = $self->{folder}->filename;
    $self->{_hash}{bm}    = getpwuid((stat($file))[4])
	if $^O ne 'MSWin32';
}

1;