Ported the Gaim plugin to Pidgin.

[doldaconnect.git] / clients / gaim / mksrc

diff --git a/clients/gaim/mksrc b/clients/gaim/mksrc
new file mode 100755 (executable)
index 0000000..fc986cd
--- /dev/null
+++ b/clients/gaim/mksrc
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+
+defined ($bn = $ARGV[0]) || die "no basename given";
+
+while(<STDIN>) {
+    s,G/PC,\u$bn,g;
+    s,G/PU,\U$bn\E,g;
+    s,G/P,$bn,g;
+    print;
+}