[doldaconnect.git] / clients / gaim / mksrc

#!/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;
}
Commit	Line	Data
34ec1e2f FT	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	}