/[suikacvs]/messaging/manakai/bin/daf.pl
Suika

Diff of /messaging/manakai/bin/daf.pl

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

revision 1.10 by wakaba, Mon Apr 3 12:53:22 2006 UTC revision 1.11 by wakaba, Tue Apr 4 14:30:29 2006 UTC
# Line 34  GetOptions ( Line 34  GetOptions (
34    'debug' => \$Opt{debug},    'debug' => \$Opt{debug},
35    'dis-file-suffix=s' => \$Opt{dis_suffix},    'dis-file-suffix=s' => \$Opt{dis_suffix},
36    'daem-file-suffix=s' => \$Opt{daem_suffix},    'daem-file-suffix=s' => \$Opt{daem_suffix},
37      'dafs-file-suffix=s' => \$Opt{dafs_suffix},
38    'dafx-file-suffix=s' => \$Opt{dafx_suffix},    'dafx-file-suffix=s' => \$Opt{dafx_suffix},
39    'help' => \$Opt{help},    'help' => \$Opt{help},
40    'search-path|I=s' => sub {    'search-path|I=s' => sub {
# Line 82  $Opt{no_undef_check} = defined $Opt{no_u Line 83  $Opt{no_undef_check} = defined $Opt{no_u
83  $Opt{dis_suffix} = '.dis' unless defined $Opt{dis_suffix};  $Opt{dis_suffix} = '.dis' unless defined $Opt{dis_suffix};
84  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};
85  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};
86    $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};
87  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};
88  require Error;  require Error;
89  $Error::Debug = 1 if $Opt{debug};  $Error::Debug = 1 if $Opt{debug};
# Line 543  sub daf_db_module_resolver ($$$) { Line 545  sub daf_db_module_resolver ($$$) {
545    my ($db, $mod, $type) = @_;    my ($db, $mod, $type) = @_;
546    my $ns = $mod->namespace_uri;    my $ns = $mod->namespace_uri;
547    my $ln = $mod->local_name;    my $ln = $mod->local_name;
548    my $suffix = $type eq ExpandedURI q<dp:ModuleIndexFile>    my $suffix = {
549                   ? $Opt{dafx_suffix} : $Opt{daem_suffix};      ExpandedURI q<dp:ModuleIndexFile> => $Opt{dafx_suffix},
550        ExpandedURI q<dp:ModuleResourceFile> => $Opt{daem_suffix},
551        ExpandedURI q<dp:ModuleNodeStorageFile> => $Opt{dafs_suffix},
552      }->{$type} or die "Unsupported type: <$type>";
553    verbose_msg qq<Database module <$ns$ln> is requested>;    verbose_msg qq<Database module <$ns$ln> is requested>;
554    my $name = dac_search_file_path_stem ($ns, $ln, $suffix);    my $name = dac_search_file_path_stem ($ns, $ln, $suffix);
555    if (defined $name) {    if (defined $name) {
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24