Author: locilka Date: Tue Apr 14 17:41:34 2009 New Revision: 56780 URL: http://svn.opensuse.org/viewcvs/yast?rev=56780&view=rev Log: Again, the behavior for building documentation from Perl modules has changed... Modified: trunk/doc/perlmodules/perl_doc.sh trunk/doc/perlmodules/pod2xml.pl Modified: trunk/doc/perlmodules/perl_doc.sh URL: http://svn.opensuse.org/viewcvs/yast/trunk/doc/perlmodules/perl_doc.sh?rev=56780&r1=56779&r2=56780&view=diff ============================================================================== --- trunk/doc/perlmodules/perl_doc.sh (original) +++ trunk/doc/perlmodules/perl_doc.sh Tue Apr 14 17:41:34 2009 @@ -2,6 +2,7 @@ STYLESHEET_CSS="../style/default.css" +echo "Calling ./pod2xml.pl ${1}/usr/share/YaST2/modules/*.pm ${1}/usr/share/YaST2/modules/YaPI/*.pm > index.xml" ./pod2xml.pl $1/usr/share/YaST2/modules/*.pm $1/usr/share/YaST2/modules/YaPI/*.pm > index.xml /bin/mkdir -p ./html/ Modified: trunk/doc/perlmodules/pod2xml.pl URL: http://svn.opensuse.org/viewcvs/yast/trunk/doc/perlmodules/pod2xml.pl?rev=56780&r1=56779&r2=56780&view=diff ============================================================================== --- trunk/doc/perlmodules/pod2xml.pl (original) +++ trunk/doc/perlmodules/pod2xml.pl Tue Apr 14 17:41:34 2009 @@ -28,7 +28,12 @@ my $XML_CONTENT = ''; foreach my $file (@ARGV) { - ParseFile($file) if CheckFile($file); + if (CheckFile ($file)) { + warn "Parsing file ".$file."\n"; + ParseFile ($file); + } else { + warn "Cannot use file: ".$file."\n"; + } } $DOCUMENT = @@ -43,7 +48,9 @@ # ---------------------------------------------------------------------------- # sub CheckBehavior { - my @packages_needed = ('perl-XML-Generator', 'perl-Pod-Escapes'); + # doesn't seem to be needed anymore... + #my @packages_needed = ('perl-XML-Generator', 'perl-Pod-Escapes'); + my @packages_needed = (); foreach my $package_needed (@packages_needed) { my $check_lib = `rpm -q $package_needed`; chop ($check_lib); @@ -55,26 +62,28 @@ return 0; } } + + return 1; } sub CheckFile { my $file = shift || do { - warn "File not defined"; + warn "File not defined\n"; return 0; }; ### File-existency if (! -e $file) { - warn "File $file does not exist"; + warn "File $file does not exist\n"; return 0; } ### File-type if (! -f $file) { - warn "File $file is not a 'file'"; + warn "File $file is not a 'file'\n"; return 0; } ### File-readability if (! -r $file) { - warn "File $file cannot be read"; + warn "File $file cannot be read\n"; } return 1; @@ -94,6 +103,8 @@ if (! -s 'conversion_output.xml') { warn "Zero size output for file '$file'"; return 0; + } else { + warn "File conversion_output.xml has ".(-s 'conversion_output.xml')." bytes\n"; } my $module_doc = `$xslt_conversion`; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org