%= header('Map tables') %> <% #one unless ( $cgi->param('magic') ) { #oops, silly #my $fh = $cgi->upload('csvfile'); ##warn $cgi; ##warn $fh; # #use Archive::Tar; #$tar = Archive::Tar->new(); #$tar->create_archive($fh); #or die $tar->error; #haha for now my @files = qw( authserv credtype dunprev invoice pmtdet product taxplan ccdet customer genlog ledger pops pubvars cchist discplan glacct origco prodcat recur users credcode dundet invline payment prodclas repforms webserv ); %>