###############################################################
This Dynalist generator example is for a stock Everyauction auction script.
You can change it to match your script.
###############################################################

Step 1:Adjust and add these variables just below your basepath variable:
# Folder path to your dynalist folder
$config{'dynapath'} = '/home/site/www/dynalist/';
# Url of your auction
$config{'weburl'} = 'http://yoursite.com/cgi-bin/auction/auction.pl';

Step 2:You must manually create the dynalist folder and chmod to 777.
You may have to place 2 empty files in the dynalist folder and chmod 777
File 1:dynalist.txt
File 2:count.txt

Step 3:Now place this line in your footer
make_dynalist();
It will only run once every 12 hrs so dont worry about it running in the footer..

4:
Add ths sub to your auction.pl or auction.cgi
#####################
sub make_dynalist {
my ($key,$file);
my $time = (time);
my $siteurl = "$config{'weburl'}";
open FILE, "$config{'dynapath'}count.txt";
my ($lasttime) = <FILE>;
close FILE;
chomp ($lasttime);
	if (($time >= ($lasttime + 43200))) {
	open (FILE, "+>$config{'dynapath'}count.txt"); 
	print FILE "$time"; 
	close (FILE);
	open (DYNALIST, "+>$config{'dynapath'}dynalist.txt"); 
	print DYNALIST "BidHopper EA Dynalist at $config{'sitename'}<BR>\n"; 
	close (DYNALIST); 
		foreach $key (sort keys %category) { 
		opendir THEDIR, "$config{'basepath'}$key" || die "Unable to open directory: $!"; 
		my @allfiles = readdir THEDIR; 
		closedir THEDIR; 
			foreach $file (@allfiles) { 
				if (-T "$config{'basepath'}$key/$file") { 
				open THEFILE, "$config{'basepath'}$key/$file"; 
				my ($title, $reserve, $inc, $desc, $image, @bids) = <THEFILE>; 
				close THEFILE; 
				chomp($title, $reserve, $inc, $desc, $image, @bids); 
				my @firstbid = split(/\[\]/,$bids[0]);
				my @lastbid = split(/\[\]/,$bids[$#bids]); 
				$file =~ s/\.dat//; 
				my @closetime = localtime($file); 
				$closetime[4]++; 
				my ($alias, $email, $bid, $time, $add1, $add2, $add3, $oqty, $soldqty) = &read_bid($bids[0]); # read first bid 
				open (DYNALIST, ">>$config{'dynapath'}dynalist.txt");
				if (($lastbid[2]) && ($lastbid[2] > $firstbid[2])) {
				print DYNALIST "<type>auction<url>$siteurl\?category=$key\&item=$file<ttl>$title<price>$lastbid[2]<close>$closetime[4]/$closetime[3]<seller>$alias<br>\n"; 
				}else{
				print DYNALIST "<type>auction<url>$siteurl\?category=$key\&item=$file<ttl>$title<price>$firstbid[2]<close>$closetime[4]/$closetime[3]<seller>$alias<br>\n"; 
				}
				close (DYNALIST);
				} 
			}
		}
	}
}
###############################################################


This should produce a list like this:
###############################################################
BidHopper EA Dynalist at YOUR SITE NAME<br>
<type>auction<url>http://www.url.com/cgi-bin/auction.pl?category=dogs&item=1<ttl>Big Dog<price>20.00<close>4/25<seller>Johnboy<br>
<type>classified<url>http://www.url.com/cgi-bin/auction.pl?category=dogs&item=2<ttl>Small Dog<price>50.00<close>4/5<seller>Grubby1<br>
<type>classified<url>http://www.url.com/cgi-bin/auction.pl?category=cats&item=3<ttl>Black Cat<price>35.00<close>4/28<seller>Partsman<br>
###############################################################
END OF EVERYAUCTION EXAMPLE
###############################################################