#!/usr/bin/perl -w # -------------------------------------- # ml: link to Debian JP mailing list # Version: 1.1 # Author: Kenshi Muto # Update: # - 2016/11/01 Nobuhiro Iwamatsu # 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/; "[$name:$no]"; }