Revert "Delete git-eb, it's obsolete"
[sunny256-utils.git] / sjekk_iso
blobc4d1c81ef79f60b8cacf8e7c23820d76116c8094
1 #!/usr/bin/env perl
3 # sjekk_iso
4 # File ID: c4313fee-5d43-11df-a93e-90e6ba3022ac
5 # Sjekker at en CD er brent riktig. Leser en fil på dette formatet:
6 # MD5 størrelse navn
8 use warnings;
10 while(<>) {
11 if (/^([0-9a-f]{16}\s+(\d+)\s+(.*)$/) {
12 print("\n");
13 my ($Md5, $Size, $Name) = ($1, $2, $3);
14 my $Result = `head -c $Size </dev/cdrom | md5sum`;
15 print("MD5 av $Name: $Result\n");
16 print("Skulle være : $Md5\n");
17 print((substr($Result, 0, 16) == substr($Md5, 0, 16)) ? "$Name: $Name: Feil i md5sum);
18 } else {
19 warn("$0: Linje $.: Feil format.\n");