home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / pub / skeptic / bibliography / admin / tar.cgi < prev   
Text File  |  2009-08-26  |  552b  |  27 lines
  1. #!/usr/bin/perl
  2.  
  3. # $rcs = ' $Id: tar.cgi,v 1.2 1998/06/20 04:00:04 fitz Exp $ ' ;
  4.  
  5. unshift(@INC, "../lib");
  6.  
  7. require 'config.pl';
  8.  
  9. chdir($bib::base_dir) || &error("Cannot chdir to $bib::base_dir");
  10.  
  11. $cmd = "/bin/tar cf - . | /bin/gzip -c";
  12. open(CMD, "$cmd |") || &error("Cannot exec command '$cmd'");
  13.  
  14. print "Content-type: application/x-tar\n",
  15.   "Content-encoding: application/x-gzip\n",
  16.   "URI: http://www.csicop.org/bibliography/admin/bib.tar.gz\n",
  17.   "\n";
  18.  
  19. print <CMD>;
  20. close CMD;
  21. exit 0;
  22.  
  23. sub error
  24. {
  25.     print "Content-type: text/html\n\n@_";
  26. }
  27.