Changeset 488 in genapp


Ignore:
Timestamp:
May 17, 2015, 2:58:27 PM (7 years ago)
Author:
ehb
Message:
 
Files:
2 added
1 deleted
4 edited

Legend:

Unmodified
Added
Removed
  • bin/genapp.pl

    r472 r488  
    119119        my $output  = $$use{ "output" };
    120120        my $setexec = $$use{ "setexecutable" };
     121        my $clobber = $$use{ "clobber" };
    121122        my $inputs  = $$use{ "inputs" };
    122123        my $minify  = $$use{ "minify" };
     
    154155            print "output will be set executable\n";
    155156        }
     157        if ( $clobber ) {
     158            print "output will be overwritten - used for system modules also menu accessible\n";
     159        }
    156160
    157161        if ( !$freq )
     
    195199        }
    196200
    197 
    198201        if ( $freq eq 'config:modules:id' )
    199202        {
    200203            $rplc_menu = start_json( $config, $ref_menu );
     204            my $mod  = $$rplc_menu{ 'menu:modules:id' };
     205            print "mod = $mod\n";
     206            my $mod_f = $module_to_file{ $mod };
     207            print "mod_f = $mod_f\n";
     208# this should probably be loaded once in check_files()
     209            $mod_json = get_file_json( $mod_f );
     210            $rplc_mod = start_json( $mod_json, $ref_mod );
     211        }
     212
     213        if ( $freq eq 'configbase:modules:id' )
     214        {
     215            $rplc_menu = start_json( $configbase, $ref_menu );
    201216            my $mod  = $$rplc_menu{ 'menu:modules:id' };
    202217            print "mod = $mod\n";
     
    234249                    print "processing: $k $v\n" if $debug_main;
    235250                    my $use_input = $k;
    236                     if ( $freq =~ /^(menu|config):modules:id$/ )
     251                    if ( $freq =~ /^(menu|config|configbase):modules:id$/ )
    237252                    {
    238253# this should probably be loaded once in check_files()
     
    491506                        } while( $rplc_menu2 = next_json( $ref_menu2, $v ) );
    492507                    } else {
    493                         if ( $v =~ /^(menu|config):modules:id$/ )
     508                        if ( $v =~ /^(menu|config|configbase):modules:id$/ )
    494509                        {
    495510                            print "hello menu:modules:id\n" if $debug_main;
     
    578593                                }
    579594                            }
    580                             if ( $freq =~ /^(menu|config):modules:id$/ )
     595                            if ( $freq =~ /^(menu|config|configbase):modules:id$/ )
    581596                            {
    582597                                $rplc_mod = start_json( $mod_json, $ref_mod );
     
    693708                $use_output =~ s/__${k}__/${v}/g;
    694709            }
    695             if ( $freq =~ /^((menu|config):modules:id|menu:id)$/ )
     710            if ( $freq =~ /^((menu|config|configbase):modules:id|menu:id)$/ )
    696711            {
    697712                print '-'x40 . "\n" if $debug_srplc;
     
    704719                }
    705720
    706                 if ( $freq =~ /^(menu|config):modules:id$/ )
     721                if ( $freq =~ /^(menu|config|configbase):modules:id$/ )
    707722                {
    708723                    while ( my ( $k, $v ) = each $rplc_mod )
     
    718733
    719734            my $fo = "output/$l/$use_output";
    720             $error .= "duplicate output for $fo\n" if $created{ $fo }++;
     735            $error .= "duplicate output for $fo\n" if $created{ $fo }++ && !$clobber;
    721736            mkdir_for_file( $fo );
    722737            my $fh;
     
    778793                print `mv $fn $fd\n`;
    779794            }
    780             if ( $freq eq 'config:modules:id' )
     795            if ( $freq eq 'config:modules:id' ||
     796                 $freq eq 'configbase:modules:id' )
    781797            {
    782798                $rplc_menu = next_json( $ref_menu, 'menu:modules:id' );
     
    784800                $rplc_menu = next_json( $ref_menu, $freq ) if $freq =~ /^(menu:modules:id|menu:id)$/;
    785801            }
    786         } while ( $freq =~ /^((menu|config):modules:id|menu:id)$/ && $rplc_menu );
     802        } while ( $freq =~ /^((menu|config|configbase):modules:id|menu:id)$/ && $rplc_menu );
    787803    } # end for assembly step
    788804    # copy over icons
  • etc/perl/genapp_util.pl

    r419 r488  
    676676    undef $menu;
    677677    undef $config;
     678    undef $configbase;
    678679    undef $directives;
    679680    undef %rpls;
     
    685686
    686687    my @req = (
    687         'directives.json',
    688         'menu.json',
    689         'config.json'
     688        'directives.json'
     689        ,'menu.json'
     690        ,'config.json'
     691        ,'configbase.json'
    690692    );
    691693
     
    789791        {
    790792            $config = $json;
     793        }
     794
     795        if ( $f eq 'configbase.json' ||
     796             $f eq "$gap/modules/configbase.json" )
     797        {
     798            $configbase = $json;
    791799        }
    792800    }
  • languages/html5.json

    r486 r488  
    8282                   }
    8383                   ,{
     84                    "frequency"  : "configbase:modules:id",
     85                    "clobber"    : "true",
     86                    "output"     : "ajax/__menu:id__/__menu:modules:id__.php",
     87                    "inputs"     : [
     88                                    { "base.php" : "once" }
     89                                   ]
     90                   }
     91                   ,{
    8492                    "frequency"  : "once",
    8593                    "output"     : "ajax/mail.php",
  • modules/config.json

    r353 r488  
    3535                          "label" : "files"
    3636                         }
    37                         ,{
    38                           "id"    : "sys_file_manager",
    39                           "label" : "File manager"
    40                          }
     37#                        ,{
     38#                          "id"    : "sys_file_manager",
     39#                          "label" : "File manager"
     40#                         }
    4141                        ,{
    4242                          "id"    : "sys_job_manager",
Note: See TracChangeset for help on using the changeset viewer.