Helix SwarmHelix Swarm
Loading...

htmlFileView.cgi

  • //
  • guest/
  • mitch_stuart/
  • perforce/
  • utils/
  • p4db/
  • P4DB_2.01/
  • htmlFileView.cgi #1
  • View
  • Commits
  • Open Download .zip Download (3 KB) 
  1. #!/usr/bin/perl -w
  2. # -*- perl -*-
  3. use P4CGI ;
  4. use strict ;
  5. #
  6. #################################################################
  7. #  CONFIGURATION INFORMATION 
  8. #  All config info should be in P4CGI.pm
  9. #
  10. #################################################################
  11. #
  12. #  P4 "smart" HTML file viewer (maybe too smart....)
  13. #  View a HTML file
  14. #
  15. #################################################################
  16. use viewConfig ;
  17.  
  18. # Get type arg
  19. my $type = P4CGI::cgi()->param("TYPE") ;
  20. &P4CGI::bail("No file type specified") unless defined $type ;
  21.  
  22. my $err2null = &P4CGI::REDIRECT_ERROR_TO_NULL_DEVICE() ;
  23.  
  24.  
  25. if($type ne "ABOUT") {
  26.     my $content = "text/html"  ;
  27.     
  28.     # Get file spec argument
  29.     my $file = P4CGI::cgi()->param("FSPC") ;
  30.     &P4CGI::bail("No file specified") unless defined $file ;
  31.  
  32.     my $revision = P4CGI::cgi()->param("REV") ;
  33.     $revision = "#$revision" if defined $revision ;
  34.     $revision="" unless defined $revision ;
  35.  
  36.     my $filename=$file ;
  37.     $filename =~ s/^.*\///;
  38.     
  39.     print
  40. 	"Content-Type: $content\n",
  41. 	"Content-Disposition: filename=$filename\n",
  42. 	"\n" ;
  43.     
  44.     my $fileText ;
  45.     &P4CGI::p4call(\$fileText, "print -q \"$file$revision\"" );
  46.     my @file = split(/(<[^>]+>)/,$fileText) ;
  47.     my $l  ;
  48.     foreach $l (@file) {
  49. 	if($l =~ /^<(\w+)/) {
  50. 	    my $fld=uc($1) ;
  51. 	    my $prompt ;
  52. 	    $prompt = "href" if $fld eq "A" ;
  53. 	    $prompt = "src"  if $fld eq "FRAME" ;
  54. 	    $prompt = "src"  if $fld eq "IMG" ;
  55. 	    $prompt = "background" if $fld eq "BODY" ;
  56. 	    unless(defined $prompt) {
  57. 		print $l ;
  58. 		next ;
  59. 	    }
  60. 	    if ($l =~ /^(<.*$prompt=\")([^\"]+)(\".*)/i ) { #"
  61. 		my ($s,$url,$e) = ($1,$2,$3) ;
  62. 		if ($url =~ m|^\w+://| or 
  63. 		    $url =~ m|^/| or
  64. 		    $url =~ m|:\d+$|) {
  65. 		    print $l ; 
  66. 		    next ;
  67. 		} ;
  68. 		my $ext = "" ;
  69. 		my $anchor = "" ;
  70. 		if($url =~ /(.*)\#(.*)/) {
  71. 		    $url = $1 ;
  72. 		    $anchor = "#$2" ;
  73. 		}
  74. 		if($url =~ /.*\.(\w+)$/) {
  75. 		    $ext = uc($1) ;
  76. 		}
  77. 		my $dir = $file ;
  78. 		$dir =~ s|[^/]*$|| ;
  79. 		my $lnfile = &P4CGI::fixspaces("$dir$url") ;
  80. 		
  81. 		my @log ;
  82. 		&P4CGI::p4call(\@log, "filelog \"$dir$url\" $err2null" );
  83. 		if(@log == 0 or $log[1] =~ /delete on/) {
  84. 		    print $l ; 
  85. 		    next ;
  86. 		}
  87.                 
  88. 		if(exists $viewConfig::ExtensionToType{$ext}) {
  89. 		    my $type = $viewConfig::ExtensionToType{$ext} ;
  90. 		    my ($nurl,$desc,$content,$about) =
  91. 			@{$viewConfig::TypeData{$type}} ;
  92. 		    $url = "$nurl?FSPC=$lnfile&TYPE=$type$anchor" ;
  93. 		}
  94. 		else {
  95. 		    $url = "fileViewer.cgi" . "?FSPC=$lnfile" ;
  96. 		} 
  97. 		print "$s$url$e" ;
  98. 		next ;
  99. 	    }
  100. 	}
  101. 	print "$l" ;
  102.     } ;    
  103. } 
  104. else {
  105.     while(<DATA>) {
  106. 	print ;
  107.     } ;
  108. }
  109.  
  110. #
  111. # That's all folks
  112. #
  113. __END__
  114. Content-Type: text/html
  115.  
  116. <HTML><HEAD><TITLE>P4DB: About HTML Viewer</TITLE>
  117. </HEAD>
  118. <BODY BGCOLOR="#e0f0f0" VLINK="#663366" TEXT="#000000" LINK="#000099" ALINK="#993399">
  119. <table bgcolor="#FFFFFF" border=0 cellspacing=8>
  120. <tr>
  121. <th>Note about the HTML viewer</th>
  122. </tr>
  123. <tr>
  124. <td>
  125. The "smart" HTML viewer translate relative links to links to 
  126. files in the depot.
  127. </td>
  128. </tr>
  129. </table>
  130. </body>
  131. </html>
# Change User Description Committed
#1 3624 Mitch Stuart Branch //public/perforce/utils to //guest/mitch_stuart/perforce/utils 22 years ago
//guest/perforce_software/utils/p4db/P4DB_2.01/htmlFileView.cgi
#1 1884 rmg Update to the current (2.01) P4DB. 23 years ago