Fresh Fish 4/FreshFish_May-June1994.bin/bbs/gnu/gzip-1.2.4-src.lha/src/amiga/gzip-1.2.4/sample/ztouch

Text File | 1994-02-23 | 374 b | 16 lines

#! /bin/perl
# Set the time stamp of a gzip'ed file from that stored in the file.
# usage: ztouch files...

foreach $file (@ARGV) {
    open (FILE, $file);
    read (FILE, $_, 8);
    ($magic, $method, $flags, $time) = unpack ("A2C2V", $_);
    if ($magic eq "\037\213") {
    utime ($time, $time, $file);
    }
    else {
    warn "$file is not compressed with gzip!\n";
    }
}