Update of /cvsroot/fink/pdb
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv28904
Modified Files:
create-finkdb.pl
Log Message:
check out the releases; also skip files wthout an $infofile (some do not show
up as virtual, but should)
Index: create-finkdb.pl
===================================================================
RCS file: /cvsroot/fink/pdb/create-finkdb.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- create-finkdb.pl 28 Nov 2007 03:25:40 -0000 1.6
+++ create-finkdb.pl 28 Nov 2007 03:50:15 -0000 1.7
@@ -143,7 +143,7 @@
next unless ($releases->{$release}->{'isactive'});
print "- checking out $release\n";
- #check_out_release($releases->{$release});
+ check_out_release($releases->{$release});
print "- indexing $release\n";
index_release_to_xml($releases->{$release});
@@ -249,6 +249,9 @@
# get info file
$infofile = $vo->get_info_filename();
+
+ next if (not defined $infofile or not -f $infofile);
+
if ($infofile) {
my $sb = stat($infofile);
#$infofilechanged = strftime "%Y-%m-%d %H:%M:%S",
localtime $sb->mtime;
@@ -412,7 +415,7 @@
print "- package
$xml->{'name'}->{'content'} is still valid ($infofile)\n" if ($trace);
} else {
print "- removing obsolete package
$xml->{'name'}->{'content'}\n" if ($debug);
- post_to_solr('<delete><query>doc_id:' .
$xml->{'doc_id'}->{'content'} . '</query></delete>');
+ post_to_solr('<delete><query>+doc_id:'
. $xml->{'doc_id'}->{'content'} . '</query></delete>');
unlink($file);
}
},
-------------------------------------------------------------------------
SF.Net email is sponsored by: The Future of Linux Business White Paper
from Novell. From the desktop to the data center, Linux is going
mainstream. Let it simplify your IT future.
http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
