pserver/init.cgi

   1 #!/usr/local/bin/perl
   2 # init.cgi
   3 # Create a new empty repository
   4
   5 require './pserver-lib.pl';
   6 $access{'init'} || &error($text{'init_ecannot'});
   7 &error_setup($text{'init_err'});
   8
   9 $cmd = "$cvs_path -d $config{'cvsroot'} init";
  10 $out = `$cmd 2>&1 </dev/null`;
  11 if ($?) {
  12         &error("<pre>$out</pre>");
  13         }
  14 &redirect("");
  15