Jolt Country

Code: Select all

#!/usr/bin/perl
# Snarf all the CGWs from the archive on Filefront
$YEAR=1981;
$MONTH=11;

for &#40;$ISSUE = 1; $ISSUE < 101; $ISSUE++&#41; &#123;
    if &#40;&#40;$ISSUE == 21&#41; or &#40;$ISSUE == 23&#41;&#41; &#123; $MONTH += 1; &#125;
    if &#40;$ISSUE < 25&#41; &#123;
        # First 24 did not have an underscore between the two month numbers
        if &#40;$MONTH <9> 9&#41; &#123;$m = $MONTH . $MONTH+1;&#125;
        $name = $YEAR . "_" . $m . "_issue" . $ISSUE . ".pdf";
    &#125; else &#123;
        # 25 - 100 do contain an underscore, and there are several double
        #  months
        $d = 0;
        if &#40;&#40;$ISSUE == 25&#41; or &#40;$ISSUE == 29&#41; or &#40;$ISSUE == 31&#41; or
            &#40;$ISSUE == 34&#41; or &#40;$ISSUE == 38&#41; or &#40;$ISSUE == 39&#41; or 
            &#40;$ISSUE == 73&#41;&#41; &#123;
            $d = 1;
        &#125;
        if &#40;$d&#41; &#123;
            if &#40;$MONTH <9> 9&#41; &#123;
                $m = $MONTH . "_" . &#40;$MONTH + 1&#41;;
            &#125;
            $MONTH++;
        &#125; else &#123;
            $m = $MONTH;
            if &#40;$MONTH < 10&#41; &#123;
                $m = "0" .$MONTH;
            &#125;
        &#125;
    &#125;
    $name = $YEAR . "_" . $m . "_issue" . $ISSUE . ".pdf";
    system&#40;"wget http&#58;//static.filefront.com/cgw/$name"&#41; 
        unless &#40;-e $name&#41;;
    $MONTH++;
    if &#40;$ISSUE <25> 12&#41; &#123;
        $MONTH = $MONTH - 12;
        $YEAR++;
    &#125;
&#125;

# Special issues of Computer Gaming Forum &#40;1987&#41;
for &#40;$MONTH = 1; $MONTH < 3 ; $MONTH++&#41; &#123;
    system&#40;"wget http&#58;//static.filefront.com/cgw/1987_SPECIAL_CGF%20$MONTH.pdf"&#41;
        unless &#40;-e $name&#41;;
&#125;