/[svn2cvs]/trunk/svn2cvs.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/svn2cvs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 36 by dpavlin, Fri Sep 7 16:53:56 2007 UTC revision 37 by dpavlin, Fri Sep 7 17:16:48 2007 UTC
# Line 225  if (! $xml->{'logentry'}) { Line 225  if (! $xml->{'logentry'}) {
225          exit 0;          exit 0;
226  }  }
227    
 # my ($dir,$file) = dir_file($path);  
 sub dir_file($) {  
         my $path = shift;  
         if ($path !~ m,^(.*?/*)([^/]+)$,) {  
                 die "can't split '$path' to dir and file!";  
         } else {  
                 my ($d,$f) = ($1,$2);  
                 if ($d !~ m,/$, && $d ne "") {  
                         $d .= "/";  
                 }  
                 return ($d,$f);  
         }  
 }  
   
228  # return all files in CVS/Entries  # return all files in CVS/Entries
229  sub entries($) {  sub entries($) {
230          my $dir = shift;          my $dir = shift;
# Line 265  sub entries($) { Line 251  sub entries($) {
251  # check if file exists in CVS/Entries  # check if file exists in CVS/Entries
252  sub in_entries($) {  sub in_entries($) {
253          my $path = shift;          my $path = shift;
254          my ($dir,$file) = dir_file($path);          if ($path =~ m,^(.*?/*)([^/]+)$,) {
255          open(E, "$dir/CVS/Entries") || return 0;                  my ($dir,$file) = ($1,$2);
256          while(<E>) {                  if ($dir !~ m,/$, && $dir ne "") {
257                  return(1) if (m,^/$file/,);                          $dir .= "/";
258                    }
259    
260                    open(my $fh, "$dir/CVS/Entries") || return 0; #die "no entries file: $dir/CVS/Entries";
261                    while(<$fh>) {
262                            return 1 if (m{^/$file/});
263                    }
264                    close($fh);
265                    return 0;
266            } else {
267                    die "can't split '$path' to dir and file!";
268          }          }
         close(E);  
         return 0;  
269  }  }
270    
271  cd_tmp;  cd_tmp;
Legend:
Removed from v.36  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.26