1 files changed, 20 insertions, 0 deletions
diff --git a/3rdparty/openpgm-svn-r1085/pgm/htdocs/convert_to_macro.pl b/3rdparty/openpgm-svn-r1085/pgm/htdocs/convert_to_macro.pl
new file mode 100755
index 0000000..bea44af
--- /dev/null
+++ b/3rdparty/openpgm-svn-r1085/pgm/htdocs/convert_to_macro.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use File::Basename;
+
+die "usage: $0 [text file]\n" unless ($ARGV[0]);
+open(MOO, $ARGV[0]) or die "cannot open $ARGV[0]: $!";
+my $all = do { local $/; <MOO> };
+close(MOO);
+$all =~ s/"/\\"/g;
+$all =~ s/\n/\\n/mg;
+$all =~ s/\r/\\r/mg;
+
+my $var = uc (basename($ARGV[0]));
+$var =~ s/\s+/_/g;
+$var =~ s/\./_/g;
+
+print<<MOO;
+#define WWW_$var	"$all"
+MOO