/[pub]/suikawiki/script/bin/mkplugin2.pl
Suika

Diff of /suikawiki/script/bin/mkplugin2.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by wakaba, Wed Nov 26 09:11:01 2003 UTC revision 1.7 by wakaba, Thu Nov 27 05:50:02 2003 UTC
# Line 88  sub line ($;%) { Line 88  sub line ($;%) {
88                             $Info->{Name},                             $Info->{Name},
89                             $opt{realfile};                             $opt{realfile};
90      } else {      } else {
91        $opt{file} = sprintf '(WikiPlugin module %s, block %s)',        $opt{file} = sprintf '(WikiPlugin module source %s, block %s)',
92                             $Info->{Name},                             $Info->{source_file},
93                             $opt{node_path};                             $opt{node_path};
94      }      }
95    }    }
# Line 104  my $meta = $plugins->get_attribute ('Plu Line 104  my $meta = $plugins->get_attribute ('Plu
104            or die "$0: Required 'Plugin' section not found";            or die "$0: Required 'Plugin' section not found";
105  my %Info = (provide => {},  my %Info = (provide => {},
106              Name => n11n $meta->get_attribute ('Name')->value);              Name => n11n $meta->get_attribute ('Name')->value);
107    $Info{source_file} = $srcfile;
108  $Info{name_literal} = literal $Info{Name};  $Info{name_literal} = literal $Info{Name};
109  my @date = gmtime;  my @date = gmtime;
110  $Info{LastModified} = sprintf '%04d-%02d-%02dT%02d:%02d:%02d+00:00',  $Info{LastModified} = sprintf '%04d-%02d-%02dT%02d:%02d:%02d+00:00',
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24