#!/usr/bin/perl

# Count the number of times people download papers
# and in what format
# Author: Ian Hickman

use strict;

my ($cps, $cpdf, $csource, $chtml, $cftp, $cdvi)=(0, 0, 0, 0, 0, 0);
my @field;

while( <STDIN> ){
  # remove newline
  chomp( $_ );

  # if in a session
  if( $_ ne "" ){
    @field=split;
    if( $field[6]=~/\d{7}/ && $field[6]=~/html/ ){
      #print"@field\n";
      $chtml++;
    } elsif( $field[6]=~/\d{7}/ && $field[6]=~/ps/ ){
      #print"@field\n";
      $cps++;
    } elsif( $field[6]=~/\d{7}/ && $field[6]=~/pdf/ ){
      #print"@field\n";
      $cpdf++;
    } elsif( $field[6]=~/\d{7}/ && $field[6]=~/e-print/ ){
      #print"@field\n";
      $csource++;
    } elsif( $field[6]=~/\d{7}/ && $field[6]=~/ftp/ ){
      #print"@field\n";
      $cftp++;
    } elsif( $field[6]=~/\d{7}/ && $field[6]=~/dvi/ ){
      #print"@field\n";
      $cdvi++;
    }
  }
}

my $total;

print "Number of ps downloads: $cps\n";
print "Number of pdf downloads: $cpdf\n";
print "Number of source downloads: $csource\n";
print "Number of html downloads: $chtml\n";
print "Number of Tex downloads: $cftp\n";
print "Number of dvi downloads: $cdvi\n";
$total=$cps+$cpdf+$csource+$chtml+$cftp+$cdvi;
print "Total Number of downloads: $total\n";