Clarified the dscp-tos documentation a bit.
[doldaconnect.git] / clients / gaim / mksrc
CommitLineData
34ec1e2f
FT
1#!/usr/bin/perl -w
2
3defined ($bn = $ARGV[0]) || die "no basename given";
4
5while(<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}