clients/gaim/mksrc

   1 #!/usr/bin/perl -w
   2
   3 defined ($bn = $ARGV[0]) || die "no basename given";
   4
   5 while(<STDIN>) {
   6     s,G/PC,\u$bn,g;
   7     s,G/PU,\U$bn\E,g;
   8     s,G/P,$bn,g;
   9     print;
  10 }