Menu ▾ ▴

[8ceddc]: / make_html.pl  Maximize  Restore  History

Download this file

129 lines (119 with data), 3.4 kB 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
#!/usr/bin/perl

use strict;

use XML::Simple;



print "<!DOCTYPE html>

<html>

    <style>    

table, th, td {

    border: 1px solid black;

}

    </style>

<body>\n";





while( <> ){

    if( /^<report>/ ){

        next;

    }

    if( /^ {4}<(.*)>/ ){

        process_table();

    }

}



sub process_table

{

    my ( $table_name ) = ( /<(.*)>/ );

    print "<h1>$table_name</h1>\n";

    print "<table>\n";

    $_ = <>;

    if( ! /<header>/ ){

        die "<header> entry expected";

    }

    print "<tr>\n";

    $_ = <>;

    while( !/<\/header/ ){

        my ( $col_name ) = ( /<(.*)\/>/ );

        print "<th>$col_name</th>\n";

        $_ = <>;

    }

    print "</tr>\n";

    $_ = <>;

    if( !/<data>/ ){

        die "<data> entry expected";

    }

    $_ = <>;

    while( !/^ {8}<\/data>/ ){

        if( /^ {12}<equal>/ ){

            $_ = <>;

            print "<tr>\n";

            while( !/^ {12}<\/equal>/ ){

                my ( $val ) = ( /^ {16}<.+?>(.+?)<\/.+?>/ );

                print "<td>" . remove_cdata($val) . "</td>\n";

                $_ = <>;

            }

            print "</tr>\n";

            $_ = <>;

        }elsif( /^ {12}<additional>/ ){

            $_ = <>;

            print "<tr style=\"background-color:green\">\n";

            while( !/^ {12}<\/additional>/ ){

                my ( $val ) = ( /^ {16}<.+?>(.+?)<\/.+?>/ );

                print "<td><ins>" . remove_cdata( $val ) . "</ins></td>\n";

                $_ = <>;

            }

            print "</tr>\n";

            $_ = <>;

        }elsif( /^ {12}<missing>/ ){

            $_ = <>;

            print "<tr style=\"background-color:red\">\n";

            while( !/^ {12}<\/missing>/ ){

                my ( $val ) = ( /^ {16}<.+?>(.+?)<\/.+?>/ );

                print "<td><del>" . remove_cdata( $val ). "</del></td>\n";

                $_ = <>;

            }

            print "</tr>\n";

            $_ = <>;

        }elsif( /^ {12}<different>/ ){

            $_ = <>;

            print "<tr style=\"background-color:yellow\">\n";

            while( !/^ {12}<\/different>/ ){

                my ( $val ) = ( /^ {16}<.+?>(.*?)<\/.+?>/ );

                if( not defined $val ){

                    $_ = <>;

                    if( !/^ {20}<old_value>/ ){

                        die "Old value expected";

                    }

                    my ( $o_val ) = ( /^ {20}<old_value>(.*?)<\/old_value>/ );

                    $_ = <>;

                    if( !/^ {20}<new_value>/ ){

                        die "New value expected";

                    }

                    my ( $n_val ) = ( /^ {20}<new_value>(.*?)<\/new_value>/ );

                    print "<td><del>" . remove_cdata( $o_val ). "</del><ins>" 

                                   . remove_cdata( $n_val ). "</ins></td>\n";

                    $_ = <>;

                    $_ = <>;

                }else{

                    print "<td>" . remove_cdata( $val ) . "</td>\n";

                    $_ = <>;

                }

            }

            print "</tr>\n";

            $_ = <>;

        }else{

            $_ = <>;

        }

    }

    $_ = <>;

    print "</table>\n";

}



sub remove_cdata

{

    my $val = shift;

    if( $val =~ /^<!\[CDATA\[/ ){

        $val =~ s/^<!\[CDATA\[//;

        $val =~ s/\]\]>$//;

    }

    $val =~ s/&/&amp;/sg;

    $val =~ s/</&lt;/sg;

    $val =~ s/>/&gt;/sg;

    $val =~ s/"/&quot;/sg;



    return $val;

}
MongoDB Logo MongoDB