Downloads are temporarily unavailable.

I am curently re-writing my download app. I originally wrote it in Perl almost 7 years ago, and is about 120 lines of code. I think it's about time for an overhaul!

So if this page looks really funky, please forgive the mess.

SaMS v0.9.0

Download:
SaMS-0.9.0.zip [#!/usr/bin/perl -w #downloads.cgi # outputs a list of files in the current directory and # displays the text of an associated text file # #setup environment use CGI::Pretty; use POSIX qw(strftime); use Data::Dumper; #the file which holds the data my $countsFile="counts"; my $filedir='files/'; my @t=split('/',$ENV{'REQUEST_URI'});pop(@t); my $fileDirURI='http://'.$ENV{'SERVER_NAME'}.join('/',@t ); #init cgi object to get environment variables my $q=new CGI::Pretty; my $self=$q->self_url; #read all the counts in as a hash my %counts; if (open (CNT, $countsFile)){ foreach $l (){ my ($name,$num)=split /=/,$l; $counts{$name}=$num; } close CNT; } if ($q->param('count')){ print $q->header(); print "Number of downloads since March 15 2004: ",$counts{$q->param('count')}; } if ($q->param('dl')){ $counts{$q->param('dl')}++; if (open (CNT, ">$countsFile")){ foreach $key (keys(%counts)){ print CNT $key."=".$counts{$key}."\n" if ($counts{$key}); } close CNT; }else{$err.="[Can't open counter for writing!]";} #print $q->header(); #print "$fileDirURI/$filedir".$q->param('dl'); print $q->redirect( -uri => "$fileDirURI/$filedir".$q->param('dl') ); } sub printCount{ my ($dlFile)=@_; $counts{$dlFile}++; if (open (CNT, ">$countsFile")){ foreach $key (keys(%counts)){ print CNT $key."=".$counts{$key}."\n" if ($counts{$key}); } close CNT; }else{$err.=" Can\'t open counterFile: $countsFile for writing!]";} print "Number of downloads since March 15 2004: ",$counts{$dlFile}; } ]

Direct Downloads:

Download:

Testing Area: