New version of Dicer available, this one actually works :) download & install.

A "new" program added for WFB players Roll Call is an excellent & free program for making & maintaining Army Lists written in Visual Basic (what carries slight consequences but, I'll be coming to that later in this text) unfortunately like almost every free program it's been discontinued but since author has been kind enough to publish it's source on his web page it gave many Visual Basic programmers opportunity to add new features, change it's appearance and correct some of it's bugs (which are inevitable in VB) so, I made my version with some new features and I hope somewhat better look and feel.

If you have any comments, suggestions or bug reports please feel free to mail me.

"

Program was dl.-ed #!/usr/local/bin/perl use CGI qw(:standard) ; ############################################ ## ## ## Schlabo's Scripts ## ## by Andreas Jakl ## ## (e-mail andreas@schlabo.com) ## ## ## ## version: 1.10 ## ## last modified: 07/07/00 ## ## copyright (c) 2000 ## ## ## ## latest version is available from ## ## http://www.schlabo.com/ ## ## ## ############################################ print "Content-Type: text/html\n\n"; require "http://cgi.tripod.com/milosj/cgi-bin/schlabo/config.pl"; require "http://cgi.tripod.com/milosj/cgi-bin/schlabo/config_dl.pl"; if ($uselocking eq "on") { use Fcntl ':flock'; # LOCK_* const } &check_referer; $query=$ENV{'QUERY_STRING'}; if (index($query, "---") > (-1)) { ($filename, $extension) = split(/---/, $query); chomp($filename); chomp($extension); $fullname = $filename.".".$extension; } else { $fullname = $query; } if ($query eq "") { print "[Error: No file or alias specified]"; exit; } if (-e "$server_path$d_data_file") { open(data,"<$server_path$d_data_file"); @tempdata = ; close(data); $aliascount=0; $max_num = @tempdata; for ($count=0;$count<$max_num;$count++) { $temp_data = @tempdata[$count]; chomp($temp_data); ($temp_alias,$temp_file,$temp_num) = split(/\|/,$temp_data); if ((index($temp_file,$fullname) >= 0) || (index($temp_alias,$fullname) >= 0)) { $aliascount += $temp_num; } } print $d_showdcmessagebefore; print $aliascount; print $d_showdcmessageafter; } else { print "[Error: Data-File not found]"; } sub check_referer { local($check_referer) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $referer (@referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) { $check_referer = 1; last; } } } else { $check_referer = 1; } if ($check_referer != 1) { print "[Error: Bad Referer]"; exit; } } sub lock { if ($uselocking eq "on") { open(LOCK, ">$server_path$d_lockfile") || &showerror("An error has occured. Please try again! (Error 100)"); flock(LOCK,LOCK_EX) || &showerror("An error has occured. Please try again! (Error 102)"); $locked = 1; } } sub unlock { if ($uselocking eq "on") { flock(LOCK,LOCK_UN) || {}; close(LOCK) || {}; $locked = 0; } } times.