utils/unit2lib.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Invocation
   4 #
   5 # unit2lib.pl units/admin/* > admin/lib.php
   6 #
   7
   8 use strict;
   9
  10 print "<?php \n\n";
  11
  12 foreach my $file (@ARGV) {
  13     my $fname = $file;
  14
  15     next if $fname =~ m/~$/;
  16
  17     $fname =~ s/\.php$//; # remove trailing .php
  18     $fname =~ s/^.+\///;  # remove everything till the last /
  19     $fname =~ s/^function_//;
  20
  21     print "function $fname () {\n\n";
  22     print <<'EOF';
  23
  24     // Elgg default globals
  25     global $function;
  26     global $log;
  27     global $actionlog;
  28     global $errorlog;
  29     global $messages;
  30     global $data;
  31 EOF
  32
  33     open F, "<$file"
  34         or die $!;
  35     while (<F>) {
  36         unless (m/^(<\?php|\?>)/) {
  37             print $_;
  38         }
  39     }
  40     close F;
  41     print "    return \$run_result;\n";
  42     print "}\n\n";
  43 }
  44
  45 print "\n\n?>";
  46
  47
  48