Helix SwarmHelix Swarm

htmlFileView.cgi

  • //
  • guest/
  • fredric_fredricson/
  • P4DB/
  • main/
  • htmlFileView.cgi #4
  • 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. my $p4_depot=&P4CGI::CURR_DEPOT_NO() ;
  25.  
  26. if($type ne "ABOUT") {
  27.     my $content = "text/html"  ;
  28.     
  29.     # Get file spec argument
  30.     my $file = P4CGI::cgi()->param("FSPC") ;
  31.     &P4CGI::bail("No file specified") unless defined $file ;
  32.     $file = &P4CGI::htmlEncode($file) ;
  33.  
  34.     my $revision = P4CGI::cgi()->param("REV") ;
  35.     if (defined $revision) {
  36. 	$revision =~ s/^(\d+).*/$1/  ;
  37. 	$revision = "#$revision" ;
  38.     } ;
  39.     $revision="" unless defined $revision ;
  40.  
  41.     my $filename=$file ;
  42.     $filename =~ s/^.*\///;
  43.     
  44.     print
  45. 	"Content-Type: $content\n",
  46. 	"Content-Disposition: filename=$filename\n",
  47. 	"\n" ;
  48.     
  49.     my $fileText ;
  50.     &P4CGI::p4call(\$fileText, "print -q \"$file$revision\"" );
  51.     my @file = split(/(<[^>]+>)/,$fileText) ;
  52.     my $l  ;
  53.     foreach $l (@file) {
  54. 	if($l =~ /^<(\w+)/) {
  55. 	    my $fld=uc($1) ;
  56. 	    my $prompt ;
  57. 	    $prompt = "href" if $fld eq "LINK" ;
  58. 	    $prompt = "href" if $fld eq "A" ;
  59. 	    $prompt = "src"  if $fld eq "FRAME" ;
  60. 	    $prompt = "src"  if $fld eq "IMG" ;
  61. 	    $prompt = "background" if $fld eq "BODY" ;
  62. 	    unless(defined $prompt) {
  63. 		print $l ;
  64. 		next ;
  65. 	    }
  66. 	    if ($l =~ /^(<.*$prompt=\")([^\"]+)(\".*)/i ) { #"
  67. 		my ($s,$url,$e) = ($1,$2,$3) ;
  68. 		if ($url =~ m|^\w+://| or 
  69. 		    $url =~ m|^/| or
  70. 		    $url =~ m|:\d+$|) {
  71. 		    print $l ; 
  72. 		    next ;
  73. 		} ;
  74. 		my $ext = "" ;
  75. 		my $anchor = "" ;
  76. 		if($url =~ /(.*)\#(.*)/) {
  77. 		    $url = $1 ;
  78. 		    $anchor = "#$2" ;
  79. 		}
  80. 		if($url =~ /.*\.(\w+)$/) {
  81. 		    $ext = uc($1) ;
  82. 		}
  83. 		my $dir = $file ;
  84. 		$dir =~ s|[^/]*$|| ;
  85. 		my $lnfile = &P4CGI::urlEncode("$dir$url") ;
  86. 		
  87. 		my @log ;
  88. 		&P4CGI::p4call(\@log, "filelog \"$dir$url\" $err2null" );
  89. 		if(@log == 0 or $log[1] =~ /delete on/) {
  90. 		    print $l ; 
  91. 		    next ;
  92. 		}
  93.                 
  94. 		my $type = $viewConfig::ExtensionToType{$ext} ;
  95. 		$type = $viewConfig::SpecialExtensions{$ext} unless defined $type ;
  96. 		if(defined $type) {
  97. 		    my ($nurl,$desc,$content,$about) =
  98. 			@{$viewConfig::TypeData{$type}} ;
  99. 		    $url = "$nurl?DP=$p4_depot;FSPC=$lnfile;TYPE=$type$anchor" ;
  100. 		}
  101. 		else {
  102. 		    $url = "fileViewer.cgi" . "?DP=$p4_depot;FSPC=$lnfile" ;
  103. 		}
  104. 		print "$s$url$e" ;
  105. 		next ;
  106. 	    }
  107. 	}
  108. 	print "$l" ;
  109.     } ;    
  110. } 
  111. else {
  112.     while(<DATA>) {
  113. 	print ;
  114.     } ;
  115. }
  116.  
  117. #
  118. # That's all folks
  119. #
  120. __END__
  121. Content-Type: text/html
  122.  
  123. <HTML><HEAD><TITLE>P4DB: About HTML Viewer</TITLE>
  124. </HEAD>
  125. <BODY BGCOLOR="#e0f0f0" VLINK="#663366" TEXT="#000000" LINK="#000099" ALINK="#993399">
  126. <table bgcolor="#FFFFFF" border=0 cellspacing=8>
  127. <tr>
  128. <th>Note about the HTML viewer</th>
  129. </tr>
  130. <tr>
  131. <td>
  132. The "smart" HTML viewer translate relative links to links to 
  133. files in the depot.
  134. </td>
  135. </tr>
  136. </table>
  137. </body>
  138. </html>
# Change User Description Committed
#4 4306 Fredric Fredricson P4DB: Hardened P4DB against malicious parameters (cross site scripting),
performed some c...leanup and increased version to 3.1.1. «		 21 years ago
#3 4216 Fredric Fredricson P4DB: Another partial submit on my way to P4DB 3.1... 21 years ago
#2 2875 Fredric Fredricson P4DB 3.0 first beta... 22 years ago
#1 1638 Fredric Fredricson P4DB: Added all (I think) files for P4DB 23 years ago