jinql/gfwlist
1
0
Fork 0
mirror of https://github.com/gfwlist/gfwlist.git synced 2025-12-13 13:54:02 +08:00
Code Issues Packages Projects Releases Wiki Activity

TWFjIGNvbXBsaWFudCBmb3Igc2VuZEdGV0xpc3Quc2gK

Browse Source
This commit is contained in:
911mxl
2010-04-18 16:54:59 +00:00
parent 6f3ddd0424
commit 8faa05263e
2 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
addChecksum.pl
View File

@@ -17,6 +17,9 @@
use strict;
use warnings;
use Digest::MD5 qw(md5_base64);
use File::stat;
use POSIX qw(locale_h);
use POSIX qw(strftime);
die "Usage: $^X $0 subscription.txt\n" unless @ARGV;
@@ -26,6 +29,11 @@ my $data = readFile($file);
# Remove already existing checksum
$data =~ s/^.*!\s*checksum[\s\-:]+([\w\+\/=]+).*\n//gmi;
# Update timestamp
setlocale(LC_TIME, "C");
my $timestamp = strftime("%a, %d %b %Y %H:%M:%S %z", localtime(stat($file)->mtime));
$data =~ s/^!\s*Last Modified:.*$/! Last Modified: $timestamp/mi;
# Calculate new checksum: remove all CR symbols and empty
# lines and get an MD5 checksum of the result (base64-encoded,
# without the trailing = characters).