jdtb.cgi #1

#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
#  CONFIGURATION INFORMATION 
#  All config info should be in P4CGI.pm
#
#################################################################
#
#  Java depot browser cgi
#
#################################################################


				# * Get path from argument
my $cmd = P4CGI::cgi()->param("CMD") ;

local *P4 ;

print
    "Content-type: text/plain\n" .
    "Pragma: no-cache\n" .
    "\n\n" ;

if($cmd eq "DIRSCAN") {
    my $fspc = P4CGI::cgi()->param("FSPC") ;
    my @dirs ;
    &P4CGI::p4call(\@dirs,"dirs $fspc 2>/dev/null") ;
    foreach (@dirs) {
	s/^.*\/// ;
	print "D \"$_\"\n" ;
    } ;
    my @files ;
    &P4CGI::p4call(\@files,"files $fspc 2>/dev/null") ;
    foreach (@files) {
	s/^.*\/(.*)\#(\d+) - (\w\w).*$/"$1" $2 $3/;
	print "F $_\n" ;
    } ;

}
if($cmd eq "FILES") {
    my $dir = P4CGI::cgi()->param("FSPC") ;
    &P4CGI::p4call(*P4,"files $dir 2>/dev/null") ;
    while(<P4>) {
	chomp ;
	s/^.*\/(.*)\#(\d+) - (\w\w).*$/"$1" $2 $3/;
	print "$_\n" ;
    } ;
    close *P4 ;
} ;

#
# That's it folks
#