Tfe

Old stuff/Perl/svn/tfe/trunk/gtkrss/test.pl

#!/usr/bin/perl -w
use Data::Dumper;
use Parser;


my $parser = new Parser;
$parser->set_data_dir("data");
$parser->set_feeds_dir("feeds");
$parser->set_save_old(11);
$parser->set_config_file("config");


$parser->start_parse;


$parser->get_files("config");
$parser->update_parse;
$parser->update_file;

$parser->get_files("config");
$parser->update_parse;
$parser->update_file;


#$parser->generate_c_texte;
#print "\n UPDATE PARSE ! :\n";



#my $feeds = $parser->feeds();

#my @c_texte = $parser->generate_c_texte();


#$parser->update_file;



#$parser->read_all();
#$parser->update_file();



my %feeds = %{$parser->feeds()};
print Dumper(%feeds);