Clarified the dscp-tos documentation a bit.
[doldaconnect.git] / 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 }