[gray]#!/usr/bin/perl -w[/gray]
[navy]$minnumber[/navy][teal]=[/teal][purple]72689[/purple][teal];[/teal]
[navy]$maxnumber[/navy][teal]=[/teal][purple]72864[/purple][teal];[/teal]
[navy]$pdfdirectory[/navy][teal]=[/teal][green][i]'.'[/i][/green][teal];[/teal]
[navy]$fileprefix[/navy][teal]=[/teal][green][i]'TR-0433 '[/i][/green][teal];[/teal]
[navy]$filesuffix[/navy][teal]=[/teal][green][i]'.pdf'[/i][/green][teal];[/teal]
[b]if[/b] [teal]([/teal][navy]$ENV[/navy][teal]{[/teal][green][i]'QUERY_STRING'[/i][/green][teal]}[/teal][teal]=~[/teal][green][i]/number=([[:digit:]]{5})/[/i][/green][teal])[/teal] [teal]{[/teal] [navy]$number[/navy][teal]=[/teal][navy]$1[/navy] [teal]}[/teal] [b]else[/b] [teal]{[/teal] [navy]$number[/navy][teal]=[/teal][green][i]''[/i][/green] [teal]}[/teal]
[navy]$name[/navy][teal]=[/teal][green][i]"$pdfdirectory/$fileprefix$number$filesuffix"[/i][/green][teal];[/teal]
[b]if[/b] [teal](![/teal] [navy]$number[/navy] [teal]||[/teal] [navy]$number[/navy][teal]<[/teal][navy]$minnumber[/navy] [teal]||[/teal] [navy]$number[/navy][teal]>[/teal][navy]$maxnumber[/navy] [teal]||[/teal] [teal]![/teal] [teal]-[/teal]f [navy]$name[/navy][teal])[/teal] [teal]{[/teal]
[b]print[/b] [green][i]"Content-type: text/plain\r\n\r\n"[/i][/green][teal];[/teal]
[b]print[/b] [green][i]'Invalid file number requested'[/i][/green][teal];[/teal]
[b]exit[/b][teal];[/teal]
[teal]}[/teal]
[b]print[/b] [green][i]"Content-type: application/octet-stream\r
Content-disposition: attachment; filename=\"[navy]$fileprefix$number$filesuffix[/navy]\"\r
\r\n"[/i][/green][teal];[/teal]
[b]open[/b] FIL[teal],[/teal][green][i]"<$name"[/i][/green][teal];[/teal]
[b]print[/b] [b]while[/b] [teal]([/teal][green][i]<FIL>[/i][/green][teal]);[/teal]
[b]close[/b] FIL[teal];[/teal]