rename script

diff --git a/filters/expand-iki-address.pl b/filters/expand-iki-address.pl
deleted file mode 100644 (file)
index 289aaf6..0000000
--- a/filters/expand-iki-address.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-use Mail::Internet;
-use Convert::YText 'decode_ytext';
-
-my $prefix="-comment-";
-my $mail = Mail::Internet->new([<>]);
-
-my $to = $mail->get('To:');
-
-if ($to =~ m/$prefix([A-Za-z0-9\.\+\=\-_\~]+)\@/){
-    my $key=$1;
-    my $page=decode_ytext($key);
-    $mail->replace('X-IkiWiki-Page:',$page);
-}
-
-$mail->print(\*STDOUT);
-
-

diff --git a/filters/iki-address-test.pl b/filters/iki-address-test.pl
new file mode 100644 (file)
index 0000000..289aaf6
--- /dev/null
+++ b/filters/iki-address-test.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use Mail::Internet;
+use Convert::YText 'decode_ytext';
+
+my $prefix="-comment-";
+my $mail = Mail::Internet->new([<>]);
+
+my $to = $mail->get('To:');
+
+if ($to =~ m/$prefix([A-Za-z0-9\.\+\=\-_\~]+)\@/){
+    my $key=$1;
+    my $page=decode_ytext($key);
+    $mail->replace('X-IkiWiki-Page:',$page);
+}
+
+$mail->print(\*STDOUT);
+
+