diff options
Diffstat (limited to 'BCD/Web.pm')
| -rw-r--r-- | BCD/Web.pm | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -1,13 +1,12 @@ package BCD::Web; use strict; -use BCD::Media qw($rpmcheck_list_pkg $file_rpmcheck_log); use BCD::Genisoimage qw($isoname); use URPM; use File::Slurp; use MDK::Common; -use BCD::Common qw(:DEFAULT $isoconf $isodir $wd $arch $version $based_on $repo $THEME $name $conf_file $date $urpmqlogs); +use BCD::Common qw(:DEFAULT $isoconf $isodir $wd $arch $version $based_on $repo $THEME $name $conf_file $date $urpmqlogs $rpmcheck_list_pkg $file_rpmcheck_log $smartcheck_list_pkg $file_smartcheck_log); our @ISA = qw(Exporter); our @EXPORT = qw(main_html); @@ -20,7 +19,7 @@ my $index = $isoconf->{nameid} . '-' . $isoconf->{mediainfo}{version} . '-' . $i my $public_html = "~/public_html"; my $webdir = "$public_html/$isoname-$date"; -map { !-d "$webdir/$_" and system("mkdir -p $webdir/$_"); } qw(log rpmcheck input iso); +map { !-d "$webdir/$_" and system("mkdir -p $webdir/$_") } qw(log rpmcheck input iso); sub main_html { #next_build_info; @@ -44,7 +43,7 @@ sub show_general_info { my $date_repo; if (-f "$repo/$based_on/$arch/VERSION") { $date_repo = read_file("$repo/$based_on/$arch/VERSION"); - } else { $date_repo = "UNKNOW date"; print "You should check that a VERSION file is present"; } + } else { $date_repo = "UNKNOW date"; print "You should check that a VERSION file is present" } open my $B, ">$index"; print $B "<HTML> <HEAD> @@ -141,7 +140,7 @@ Pubkey: $media->{pubkey} my $short_name = basename($files->{file}); print $B "<li><a href='input/$short_name'>$short_name</a></li>\n"; system("cp -af $files->{file} $webdir/input/"); - } else { print $B "<li><b>$files->{file} not present</b></li>"; } + } else { print $B "<li><b>$files->{file} not present</b></li>" } } print $B "</ul>\n"; @@ -153,7 +152,7 @@ Pubkey: $media->{pubkey} my $short_name = basename($files->{file}); print $B "<li><a href='input/$short_name'>$short_name</a></li>\n"; system("cp -af $files->{file} $webdir/input/"); - } else { print $B "</li><b>$files->{file} not present</b></li>"; } + } else { print $B "</li><b>$files->{file} not present</b></li>" } } print $B "</ul>\n"; close $B; |