Update of /cvsroot/fink/pdb
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv32675
Modified Files:
create-finkdb.pl
Log Message:
info -> xml
Index: create-finkdb.pl
===================================================================
RCS file: /cvsroot/fink/pdb/create-finkdb.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- create-finkdb.pl 27 Nov 2007 04:34:58 -0000 1.2
+++ create-finkdb.pl 27 Nov 2007 05:07:09 -0000 1.3
@@ -65,7 +65,7 @@
use vars qw(
$debug
- $infodir
+ $xmldir
$tempdir
$trace
$wanthelp
@@ -82,14 +82,14 @@
$trace = 0;
$iconv = Text::Iconv->new("UTF-8", "UTF-8");
$tempdir = $topdir . '/work';
-$infodir = $tempdir . '/infofiles';
+$xmldir = $tempdir . '/xml';
$last_updated = time;
# process command-line
GetOptions(
'help' => \$wanthelp,
- 'infodir=s' => \$infodir,
- 'tempdir=s' => \$tempdir,
+ 'xmldir=s' => \$xmldir,
+ 'tempdir=s' => \$tempdir,
'debug' => \$debug,
'trace' => \$trace,
) or &die_with_usage;
@@ -315,10 +315,10 @@
print " - ", package_id($package_info), "\n" if ($debug);
- my $infopath = get_infopath($release);
- mkpath($infopath);
+ my $xmlpath = get_xmlpath($release);
+ mkpath($xmlpath);
- my $outputfile = $infopath . '/' . package_id($package_info) .
'.xml';
+ my $outputfile = $xmlpath . '/' . package_id($package_info) .
'.xml';
my $output = IO::File->new('>' . $outputfile);
my $writer = XML::Writer->new(OUTPUT => $output);
@@ -356,9 +356,9 @@
}
# get the info file path for a given release
-sub get_infopath {
+sub get_xmlpath {
my $release = shift;
- return $infodir . '/' . $release->{'id'};
+ return $xmldir . '/' . $release->{'id'};
}
# get the basepath for a given release
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
