diff --git a/bin/generate_redmine_page.pl b/bin/generate_redmine_page.pl index 2526c99..2d43243 100755 --- a/bin/generate_redmine_page.pl +++ b/bin/generate_redmine_page.pl @@ -219,63 +219,50 @@ if ( "$sls_files" ne "0" ){ if ( $dumpforredmine ){ print "$redmine_header\n"; } - print "$javascript\n"; - print "\n"; - print "\n"; - print ""; - print "\n"; - print "\n"; + # print "$javascript\n"; + # print "
#
Hostname
\n"; + print "|# "; + print "|Hostname "; my $td=1; foreach my $entry (sort(@wanted)){ - my $width=''; - if ("$entry" =~ m/responsible/){ - $width="width='150px'"; - } - if ("$entry" =~ m/virt_cluster/){ - $width="width='50px'"; - } - $td++; - print "\n"; + print "|$entry "; } - print "\n"; - print "\n"; + print "|\n"; + print "|---:|--- "; + foreach my $entry (sort(@wanted)){ + print "|--- "; + } + print "|\n"; for my $file (sort (@$sls_files)){ - my $bgcolor="bgcolor='$td_color_odd'"; - if ($i % 2){ - $bgcolor="bgcolor='$td_color_even'"; - } - print ""; my $hostname=basename("$file",'.sls'); $hostname=~ s/_/./g; - print "\n"; + print "|$i |$hostname "; my $yaml = YAML::Tiny->read("$pillar_id_path/$file"); my $grains=$yaml->[0]; # print Data::Dumper->Dump([$grains])."\n"; foreach my $entry (sort(@wanted)){ - print "\n"; } - print "\n"; + print "|\n"; $i++; } - print "
$entry
$i

$hostname

"; + print "|"; if (defined($grains->{'grains'}->{$entry})){ my $type=reftype $grains->{'grains'}->{$entry}; if (defined($type) && "$type" eq 'ARRAY'){ if (@{$grains->{'grains'}->{$entry}} > 0){ - print "
    \n"; foreach my $string (sort(@{$grains->{'grains'}->{$entry}})){ if ("$string" =~ m/^http.*/){ - print "
  • $string
  • "; + print "[$string]($string) "; } else { if ("$entry" eq "partners"){ - print "
  • $string
  • \n"; + print "[$string](#$string) "; } elsif ("$entry" eq "responsible"){ - print "
  • $string
  • \n"; + print "[$string]($freeipa_user_url/$string) "; } else { - print "
  • $string
  • \n"; + print "$string "; } } } - print "
\n"; } } else { @@ -285,12 +272,10 @@ if ( "$sls_files" ne "0" ){ else { print " "; } - print "
\n"; } print "$footer";