package download;

header( "Content-type: application/x-something" );
header( "Content-Disposition: attachment; filename=$type.txt" );
header( "Content-Description: INTERSHOP Generated Data" );

require 5.001;
require Exporter;

@ISA    = qw(Exporter);
@EXPORT = qw(Checking);
use SharedLib::Script::API;

my $total, $sensible, $model,$ctr, $tb, $nl, $sql;
my @
$ctr = 1;
$tb = "\t";
$nl = "\r\n";
$str = "";


DBConnect();
DBDoSQL("SELECT * FROM PTU");

while (($total,$sensible,$model) = DBNextRow)
{
	$str = $ctr .= $tb .= $total .= $tb .= $sensible .= $tb .= $model .= $nl;
	AddContent("$str");
	$ctr = $ctr + 1;
}

1;