From: David Bremner <bremner@unb.ca>
Date: Fri, 26 Sep 2008 14:10:15 +0000 (-0300)
Subject: rename script
X-Git-Tag: 0.3~3
X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/commitdiff_plain/571e59dd4bd2280ee8323c974f233e770e8fc82c

rename script
---

diff --git a/filters/expand-iki-address.pl b/filters/expand-iki-address.pl
deleted file mode 100644
index 289aaf615..000000000
--- 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
index 000000000..289aaf615
--- /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);
+
+