ryanbr/fanboy-adblock
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Dates now updated.

Browse Source
This commit is contained in:
Hubird au 2010-02-20 18:08:11 +11:00
parent 3e9f26bc51
commit e269f6be89
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
addChecksum-opera.pl
View File

@ -46,6 +46,19 @@ if ($checksum eq $oldchecksum)
exit 0;
}
# Update the date.
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year += 1900; # Year is years since 1900.
my $todaysdate = "$mday $months[$mon] $year";
$data =~ s/(^.*#.*Updated:\s*)(.*)\s*$/$1$todaysdate/gmi;
# Recalculate the checksum as we've altered the date.
$checksumData = $data;
$checksumData =~ s/\r//g;
$checksumData =~ s/\n+/\n/g;
$checksum = md5_base64($checksumData);
# Insert checksum into the file
$data =~ s/(\r?\n)/$1# Checksum: $checksum$1/;

13
addChecksum.pl
View File

@ -46,6 +46,19 @@ if ($checksum eq $oldchecksum)
exit 0;
}
# Update the date.
my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year += 1900; # Year is years since 1900.
my $todaysdate = "$mday $months[$mon] $year";
$data =~ s/(^.*!.*Updated:\s*)(.*)\s*$/$1$todaysdate/gmi;
# Recalculate the checksum as we've altered the date.
$checksumData = $data;
$checksumData =~ s/\r//g;
$checksumData =~ s/\n+/\n/g;
$checksum = md5_base64($checksumData);
# Insert checksum into the file
$data =~ s/(\r?\n)/$1! Checksum: $checksum$1/;