scripts/maint/updateCopyright.pl

   1 #!/usr/bin/perl -i -w -p
   2
   3 @now = gmtime();
   4
   5 $NEWYEAR=$now[5]+1900;
   6
   7 s/Copyright([^-]*) (20[^-]*), The Tor Project/Copyright$1 $2-${NEWYEAR}, The Tor Project/;
   8
   9 s/Copyright(.*)-(20..), The Tor Project/Copyright$1-${NEWYEAR}, The Tor Project/;