#!/usr/bin/perl -w
# --------------------------------------
# ml: link to Debian JP mailing list
# Version: 1.1
# Author: Kenshi Muto <kmuto@debian.org>
# Update:
#     - 2016/11/01 Nobuhiro Iwamatsu <iwamatsu@debian.or.jp>
#       Update to mailman.
# --------------------------------------

package ml;

use strict;

my $VERSION = '1.0';
sub start { 1; }

sub story {
  my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;
  $$body_ref =~ s/(?:ML):([^:]+:\d+)/to_link($1)/ge;
  1;
}

sub to_link {
  my($link) = shift;
  my($name, $no) = split(/:/, $link, 2);
  $name =~ s/d\-users/debian-users/;
  $name =~ s/d\-u/debian-users/;
  $name =~ s/d\-doc/debian-doc/;
  $name =~ s/d\-devel/debian-devel/;
  $name =~ s/d\-dev/debian-devel/;
  $name =~ s/d\-d/debian-devel/;
  $name =~ s/d\-wwww/debian-www/;
  $name =~ s/d\-w/debian-www/;
  $name =~ s/d\-announce/debian-announce/;
  $name =~ s/d\-a/debian-announce/;

  "[<a href=\"http://lists.debug.debian.or.jp/mailman/listinfo/$name:$no\">$name:$no</a>]";
}