Update of /cvsroot/leaf/src/bering-uclibc/buildtool/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12736
Modified Files:
genpage.pl
Log Message:
Made sure that the package size is rounded correctly and that it is not
displayed as "0 k"
Minor fixes
Index: genpage.pl
===================================================================
RCS file: /cvsroot/leaf/src/bering-uclibc/buildtool/tools/genpage.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** genpage.pl 23 Mar 2005 20:48:16 -0000 1.29
--- genpage.pl 13 Apr 2006 17:06:48 -0000 1.30
***************
*** 547,551 ****
'nogrouping',
'changelog=s',
! 'config=s',
) or die $Usage;
--- 547,551 ----
'nogrouping',
'changelog=s',
! 'configfile=s',
) or die $Usage;
***************
*** 561,565 ****
my $configFile = 'packages.conf';
! $configFile=$options->{'config'} if exists($options->{'config'}) ;
my $changelogFile = undef;
--- 561,565 ----
my $configFile = 'packages.conf';
! $configFile=$options->{'configfile'} if exists($options->{'configfile'}) ;
my $changelogFile = undef;
***************
*** 684,688 ****
print STDERR "Fetching file-list and CVS info: \n" if $verbose;
! getLrpList($p_h_noversion_config->{'source'}, $p_h_files,
"NOVERSION",$p_h_noversion_config->{'source'});
getLrpList($p_h_template->{'source'}, $p_h_files,
"VERSION",$p_h_template->{'source'});
--- 684,690 ----
print STDERR "Fetching file-list and CVS info: \n" if $verbose;
! if (exists($options->{'mergenoversion'})) {
! getLrpList($p_h_noversion_config->{'source'}, $p_h_files,
"NOVERSION",$p_h_noversion_config->{'source'});
! }
getLrpList($p_h_template->{'source'}, $p_h_files,
"VERSION",$p_h_template->{'source'});
***************
*** 776,781 ****
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) =
stat($filepath);
! $size = sprintf("%d", $size/1024);
!
my $command = "tar xvfz $filepath -C $tempDir 2>&1 > /dev/null ";
--- 778,784 ----
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) =
stat($filepath);
! # make sure we don't prink a size of 0
! $size=1024 if ($size<1024);
! $size = sprintf("%d", ($size+512)/1024);
my $command = "tar xvfz $filepath -C $tempDir 2>&1 > /dev/null ";
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
leaf-cvs-commits mailing list
leaf-cvs-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/leaf-cvs-commits
