#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
# CONFIGURATION INFORMATION
# All config info should be in P4CGI.pm
#
#################################################################
#
# P4 file download
# Download a file
#
#################################################################
# Get file spec argument
my $file = P4CGI::cgi()->param("FSPC") ;
&P4CGI::bail("No file specified") unless defined $file ;
my $filename = $file ;
$filename =~ s/.*\/// ;
my $revision = P4CGI::cgi()->param("REV") ;
&P4CGI::bail("No revision specified") unless defined $revision ;
local *P4 ;
&P4CGI::p4call( *P4, "print -q \"$file#$revision\"" );
$file = join('',<P4>) ;
close P4 ;
my $len = length($file) ;
print
"Content-type: application/octet-stream\n",
"Content-Disposition: attachment;filename=$filename;size=$len\n",
"Content-Description: Download file:$filename Rev:$revision\n",
"\n" ;
print $file ;
#
# That's all folks
#
# |
Change |
User |
Description |
Committed |
|
#1
|
3624 |
Mitch Stuart |
Branch //public/perforce/utils to //guest/mitch_stuart/perforce/utils |
|
|
//guest/perforce_software/utils/p4db/P4DB_2.01/fileDownLoad.cgi |
#1
|
1884 |
rmg |
Update to the current (2.01) P4DB. |
|
|