export-call/export-call-lib.pl

   1 # Test for a foreign module call
   2
   3 use WebminCore;
   4 &init_config();
   5
   6 sub print_stuff
   7 {
   8 print "Hello world from $module_name<p>\n";
   9 }
  10
  11 sub die_now
  12 {
  13 print "About to exit ..<br>\n";
  14 exit(1);
  15 print "After exit!<p>\n";
  16 }
  17
  18 sub print_text
  19 {
  20 print $text{'my_msg'},"<p>\n";
  21
  22 print &text('my_subs', 'Joe'),"<p>\n";
  23 }
  24
  25 1;
  26