diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-06 00:50:27 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-06 00:50:27 +0000 |
| commit | 93280fea38fe311792758ac25aff1dce1e43e884 (patch) | |
| tree | 047f91c72886f49229cff17c501e5e77ccbcfc3d /Echolot/Thesaurus.pm | |
| parent | 2db6a09c7c28d168724f17e24697f8e1dc40b496 (diff) | |
Added Thesaurus
Diffstat (limited to 'Echolot/Thesaurus.pm')
| -rw-r--r-- | Echolot/Thesaurus.pm | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/Echolot/Thesaurus.pm b/Echolot/Thesaurus.pm new file mode 100644 index 0000000..1e10e4c --- /dev/null +++ b/Echolot/Thesaurus.pm @@ -0,0 +1,94 @@ +package Echolot::Thesaurus; + +# (c) 2002 Peter Palfrader <peter@palfrader.org> +# $Id: Thesaurus.pm,v 1.1 2002/07/06 00:50:27 weasel Exp $ +# + +=pod + +=head1 Name + +Echolot::Thesaurus - build thesaurus pages + +=head1 DESCRIPTION + +This package provides necessary functions for the thesaurus. + +=cut + +use strict; +use warnings; +use Carp qw{cluck}; +use English; + + +sub build_thesaurus() { + return 1 unless Echolot::Config::get()->{'thesaurus'}; + + my $dir = Echolot::Config::get()->{'thesaurusdir'}; + opendir(DIR, $dir) or + cluck ("Cannot open '$dir': $!"), + return 0; + my @files = grep { ! /^\./ } readdir(DIR); + closedir(DIR); + + my $data; + for my $filename (@files) { + my ($id, $what) = $filename =~ /^(\d+)-(adminkey|conf|help|key|stats)$/; + next unless (defined $id && defined $what); + + my $remailer = Echolot::Globals::get()->{'storage'}->get_address_by_id($id); + next return 0 unless defined $remailer; + + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) + = stat($dir.'/'.$filename); + + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) + = gmtime($mtime); + + my $date = sprintf("%04d-%02d-%02d %02d:%02d", + $year+1900, $mon+1, $mday, + $hour, $min); + + + $data->{$remailer->{'address'}}->{$what} = { + 'href' => $filename, + 'date' => $date, + }; + }; + + + for my $addr (keys (%$data)) { + my $nick = Echolot::Globals::get()->{'storage'}->get_nick($addr); + $data->{$addr}->{'nick'} = defined $nick ? $nick : 'N/A'; + }; + + my $file = Echolot::Config::get()->{'thesaurusindexfile'}; + open (F, ">$file") or + cluck ("Cannot open '$file': $!"), + return 0; + print F '<html><head><title>Thesaurus</title></head><body><h1>Thesaurus</h1><table border=1>'."\n"; + print F "<tr><tr><th>nick</th><th>Address</th><th>conf</th><th>help</th><th>key</th><th>stats</th><th>adminkey</th></tr>\n"; + + for my $addr (sort { $data->{$a}->{'nick'} cmp $data->{$b}->{'nick'} } keys (%$data)) { + printf F "<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>\n", + $data->{$addr}->{'nick'}, + $addr, + defined ($data->{$addr}->{'conf'}) ? + sprintf('<a href="%s">%s</a>', $data->{$addr}->{'conf'}->{'href'}, $data->{$addr}->{'conf'}->{'date'}) : 'N/A', + defined ($data->{$addr}->{'help'}) ? + sprintf('<a href="%s">%s</a>', $data->{$addr}->{'help'}->{'href'}, $data->{$addr}->{'help'}->{'date'}) : 'N/A', + defined ($data->{$addr}->{'key'}) ? + sprintf('<a href="%s">%s</a>', $data->{$addr}->{'key'}->{'href'}, $data->{$addr}->{'key'}->{'date'}) : 'N/A', + defined ($data->{$addr}->{'stats'}) ? + sprintf('<a href="%s">%s</a>', $data->{$addr}->{'stats'}->{'href'}, $data->{$addr}->{'stats'}->{'date'}) : 'N/A', + defined ($data->{$addr}->{'adminkey'}) ? + sprintf('<a href="%s">%s</a>', $data->{$addr}->{'adminkey'}->{'href'}, $data->{$addr}->{'adminkey'}->{'date'}) : 'N/A'; + }; + print F '</table></body>'; + close (F); +}; + +1; +# vim: set ts=4 shiftwidth=4: |