html/whatpm/cvscommit.sh

#!/bin/sh
find -name ChangeLog | xargs cvs diff | grep "^\+" | sed -e "s/^\+//; s/^\+\+ .\//++ whatpm\//" > .cvslog.tmp
## TODO: Don't use -I here
perl \
    -I/home/wakaba/work/manakai2/lib/ \
    mkcommitfeed.pl --file-name whatpm-commit.en.atom.u8 \
    --feed-url http://suika.fam.cx/www/markup/html/whatpm/whatpm-commit \
    --feed-title "Whatpm ChangeLog diffs" \
    --feed-lang en \
    --feed-related-url "http://suika.fam.cx/www/markup/html/whatpm/readme" \
    --feed-license-url "http://suika.fam.cx/www/markup/html/whatpm/readme#license" \
    --feed-rights "This feed is free software; you can redistribute it and/or modify it under the same terms as Perl itself." \
    < .cvslog.tmp
cvs commit -F .cvslog.tmp $1 $2 $3 $4 $5 $6 $7 $8 $9 
rm .cvslog.tmp

## $Date: 2008/10/21 05:17:48 $
## License: Public Domain
1	wakaba	1.1	#!/bin/sh
2			find -name ChangeLog \| xargs cvs diff \| grep "^\+" \| sed -e "s/^\+//; s/^\+\+ .\//++ whatpm\//" > .cvslog.tmp
3	wakaba	1.3	## TODO: Don't use -I here
4			perl \
5			-I/home/wakaba/work/manakai2/lib/ \
6			mkcommitfeed.pl --file-name whatpm-commit.en.atom.u8 \
7	wakaba	1.2	--feed-url http://suika.fam.cx/www/markup/html/whatpm/whatpm-commit \
8	wakaba	1.4	--feed-title "Whatpm ChangeLog diffs" \
9	wakaba	1.2	--feed-lang en \
10	wakaba	1.4	--feed-related-url "http://suika.fam.cx/www/markup/html/whatpm/readme" \
11			--feed-license-url "http://suika.fam.cx/www/markup/html/whatpm/readme#license" \
12			--feed-rights "This feed is free software; you can redistribute it and/or modify it under the same terms as Perl itself." \
13	wakaba	1.2	< .cvslog.tmp
14	wakaba	1.5	cvs commit -F .cvslog.tmp $1 $2 $3 $4 $5 $6 $7 $8 $9
15	wakaba	1.1	rm .cvslog.tmp
16
17	wakaba	1.5	## $Date: 2008/10/21 05:17:48 $
18	wakaba	1.1	## License: Public Domain