#-#############################################
# Sub: Bulklister
# This processes new items from a given csv file.
# Copyright by: Dieter Werner
#-#############################################
sub proc_bulklister {
   my (
       $password, $cnt, $datuser, $datheader, $record,
       @data, @datheader, @record
   );
   local $_;
   
   $config{'csv'} = '\|';
   $config{'post_dir'} = 'autopost';
   $config{'post_dat'} = 'autopost.dat';
   
   check_dir("$config{'basepath'}$config{'post_dir'}");
   
   open BULK, "$config{'basepath'}$config{'post_dir'}/$config{'post_dat'}" or oops $!;    
   ($datuser, $datheader, @data) = <BULK>;    
   close BULK;
   
   chomp ($datuser, $datheader);
   
   $form{'FROMPREVIEW'} = 1;
   ($form{'ALIAS'}, $form{'PASSWORD'}) = split /$config{'csv'}/, $datuser;
       
   @datheader = split /$config{'csv'}/, $datheader;

       foreach $record (@data) {
           chomp $record;
           @record = split /$config{'csv'}/, $record;            
           $form{$_} = shift @record foreach @datheader;              
           oops('The category does not exist') unless $category{$form{'CATEGORY'}};            
           proc_new();
           $cnt++;
           undef @record;
       }
   
   delete $form{'FROMPREVIEW'};
   
   print qq|<br><br>\n<div align="center">$cnt items were posted successfully.<br><br></div>\n|;

} 

        'autopost'            =>  \&proc_bulklister,