#!/usr/bin/perl -w
use Getopt::Std;

my %opt;
getopts('d:', \%opt);

$DELAY_BOUND="[]";
$DELAY_BOUND="[0:".$opt{'d'}."]" if $opt{'d'};

foreach $prefix (split(' ', `ls *.dat|grep -o '^[0-9]\\+-..'|sort -u`)) {
    print "$prefix\n";
    open CMD, "| gnuplot | ps2pdf - ${prefix}.pdf";
    print CMD qq/
set term postscript color landscape
set xlabel "Response-Time [ms]"
set ylabel "Cumulative % of packets"
set key right bottom nobox
set style data linespoints
#set logscale x
set grid
# set size 1,0.8
# unset label
# set label "\${COMMAND}" noenhanced at graph 0,1.3
# set label "\${STREAMS}" noenhanced at graph 0,1.2 font "Helvetica,9"
/;
    print CMD "plot $DELAY_BOUND [0.01:100] ";
    @files=glob "${prefix}*.dat";
    @plots=map qq/"$_" using 1:2/, @files;
    print CMD join ',', @plots;
    close CMD;
}