diff --git a/bilski-check.plx b/bilski-check.plx index ff497e5..4bf1f9e 100644 --- a/bilski-check.plx +++ b/bilski-check.plx @@ -1,4 +1,20 @@ #!/usr/bin/perl +# Copyright (C) 2010, Bradley M. Kuhn +# +# This program gives you software freedom; you can copy, modify, convey, +# and/or redistribute it under the terms of the GNU General Public License +# as published by the Free Software Foundation; either version 3 of the +# License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program in a file called 'GPLv3'. If not, write to the: +# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor +# Boston, MA 02110-1301, USA. use strict; use warnings; @@ -9,8 +25,12 @@ use URI::Fetch; my $SLEEP_VAL_SECONDS = 15; my @SCOTUS_URLS = ('http://www.supremecourt.gov/', 'http://www.supremecourt.gov/opinions/slipopinions.aspx'); -my $DATE_STR_TO_SEEK = '6/07/10'; -my $CASE_TO_SEEK = 'Krupski'; +# Test data: +#my $DATE_STR_TO_SEEK = '6/07/10'; +#my $CASE_TO_SEEK = 'Krupski'; + +my $DATE_STR_TO_SEEK = '6/14/10'; +my $CASE_TO_SEEK = 'Bilski'; if (@ARGV != 0) { print STDERR "Usage: $0\n";