2002/ws/desc/tools setup-namespaces,1.2,1.3

Update of /sources/public/2002/ws/desc/tools
In directory hutz:/tmp/cvs-serv18019

Modified Files:
	setup-namespaces 
Log Message:
Worky


Index: setup-namespaces
===================================================================
RCS file: /sources/public/2002/ws/desc/tools/setup-namespaces,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** setup-namespaces	27 Jul 2004 20:18:27 -0000	1.2
--- setup-namespaces	28 Jul 2004 08:19:36 -0000	1.3
***************
*** 1,5 ****
  #!/usr/bin/perl
  #
! # @@@ not working yet
  
  use strict;
--- 1,5 ----
  #!/usr/bin/perl
  #
! # Script to make installation of files in date space easy when publishing
  
  use strict;
***************
*** 11,17 ****
  }
  
! #my $WWW = $ENV{WWW};
! # @@@@
! my $WWW = '/tmp/WWW';
  my ($PUBDIR, $DOC, $Y, $M, $D) = @ARGV;
  my $TARGET = "$WWW/$Y/$M/wsdl";
--- 11,15 ----
  }
  
! my $WWW = $ENV{WWW};
  my ($PUBDIR, $DOC, $Y, $M, $D) = @ARGV;
  my $TARGET = "$WWW/$Y/$M/wsdl";
***************
*** 22,25 ****
--- 20,35 ----
  }
  
+ sub getTitle() {
+     my $f = "$PUBDIR/Overview.html";
+     my $parser = new XML::DOM::Parser;
+     my $doc = $parser->parsefile($f);
+     my $t = $doc->getElementsByTagName('title')->item(0)->getFirstChild()->getNodeValue() || die "$!";
+     $t =~ s/\n/ /;
+     $t =~ s/ +/ /;
+     return $t;
+ }
+ 
+ my $TITLE = &getTitle();
+ 
  ###########################################################################
  
***************
*** 51,79 ****
  }
  
- sub getTitle() {
-     # Not worky yet
-     my $wsdl20 = 'wsdl20.xml';
-     my $parser = new XML::DOM::Parser;
-     my $doc = $parser->parsefile($wsdl20);
-     my $e;
-     if ($ID eq 'PART1') {
- 	$e = 'part1.title';
-     }
-     elsif ($ID eq 'PART2') {
- 	$e = 'part2.title';
-     }
-     elsif ($ID eq 'PART3') {
- 	$e = 'part3.title';
-     }
-     use Data::Dumper;
-     $doc->getEntity('entities');
-     return $doc->getEntity($e);
- }
- 
- print &getTitle()."\n";
- exit;
- # @@@
- 
- 
  my $htaccessTemplate = "# .htaccess created by setup-namespaces; edit carefully
  RewriteEngine On
--- 61,64 ----
***************
*** 195,200 ****
      <p>
        For a complete definition of the patterns, refer to <a
!       href='http://www.w3.org/TR/@TRLOC@/'>Web
!       Services Description Language (WSDL) Version 2.0 Part 2</a>
      specification.
      </p>
--- 180,184 ----
      <p>
        For a complete definition of the patterns, refer to <a
!       href='http://www.w3.org/TR/@TRLOC@/'>@TITLE@</a>
      specification.
      </p>
***************
*** 205,208 ****
--- 189,193 ----
      my $c = $patternsTemplate;
      $c =~ s|\@TRLOC\@|$TRLOC|g;
+     $c =~ s|\@TITLE\@|$TITLE|g;
      $c .= $signatureTemplate;
      my $f;
***************
*** 240,245 ****
      <p>
        For a complete definition of the @NAME@ Style, refer to <a
!       href='http://www.w3.org/TR/@TRLOC@/'>Web Services
!       Description Language (WSDL) Version 2.0 @@@</a>
        specification.
      </p>
--- 225,229 ----
      <p>
        For a complete definition of the @NAME@ Style, refer to <a
!       href='http://www.w3.org/TR/@TRLOC@/'>@TITLE@</a>
        specification.
      </p>
***************
*** 252,255 ****
--- 236,240 ----
      $c =~ s|\@NAME\@|$name|g;
      $c =~ s|\@TRLOC\@|$TRLOC|g;
+     $c =~ s|\@TITLE\@|$TITLE|g;
      $c .= $signatureTemplate;
      my $f;

Received on Wednesday, 28 July 2004 04:31:21 UTC