#!/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 | 5093 | Hari Krishna Dara |
Populating perforce branch. I will be adding p4admin files to it. |
||
//guest/perforce_software/utils/p4db/P4DB_2.01/fileDownLoad.cgi | |||||
#1 | 1884 | rmg | Update to the current (2.01) P4DB. |