export-test/index.cgi

   1 #!/usr/local/bin/perl
   2
   3 do 'export-test-lib.pl';
   4 $module_index_name = "Click me";
   5 &ui_print_header(undef, "Export Test", "");
   6
   7 print "First module $module_name<p>\n";
   8 &foreign_require("export-call");
   9 &export_call::print_stuff();
  10 print "Back in $module_name<p>\n";
  11
  12 print "Config directory $config_directory<p>\n";
  13
  14 print "This module from get_module_name is ",&get_module_name(),"<p>\n";
  15
  16 print "Foreign module is $export_call::module_name<p>\n";
  17
  18 print "Test of config = $config{'foo'}<p>\n";
  19 $config{'foo'} = int(rand()*1000000);
  20 &save_module_config();
  21
  22 %access = &get_module_acl();
  23 print "ACL test = $access{'smeg'}<p>\n";
  24
  25 print $text{'my_msg'},"<p>\n";
  26 print &text('my_subs', 'Jamie'),"<p>\n";
  27
  28 &export_call::print_text();
  29
  30 &export_call::die_now();
  31
  32 &ui_print_footer("/", $text{'index'});
  33