[Users] GetComponents script not working

[Steven R. Brandt]

Ah, so it's subversion that's hanging. GetComponents should have a print 
statement before calling svn in verbose mode.

Could you add a print statement before line 622 so we can see the svn 
command with the $svn and $url expanded? Also, what is your svn version?

--Steve

On 1/24/2022 9:57 AM, Konrad Topolski wrote:
> Thank you all for the responses.
>
> @Steven, yes, the usual help message is printed out
>
> @Roland, it works for my other machine, under Ubuntu 20.04 with 5.11 
> kernel, but the perl version I believe to be the same (perhaps the OS 
> details are not relevant here at all);
> I'm sending the log in the attachments.
> It seems that the script hangs up at this point:
>
> >> ./GetComponents:580:         $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"};
> >> ./GetComponents:583:         if ($ANONYMOUS_CHECKOUT) {
> >> ./GetComponents:584:             delete $rec{AUTH_URL};
> >> ./GetComponents:592:         my @checkouts = split( /\s+/m, 
> $rec{"CHECKOUT"} );
> >> ./GetComponents:593:         foreach my $checkout (@checkouts) {
> >> ./GetComponents:596:             my ( $dir1, $dir2 );
> >> ./GetComponents:597:             if ( $checkout =~ m!/! ) {
> >> ./GetComponents:598:                 ( $dir1, $dir2 ) = $checkout 
> =~ m!(.+)/(.+)!;
> >> ./GetComponents:603:             if ( defined( $rec{URL} ) ) {
> >> ./GetComponents:604:                 $rec{URL} = $rec{"URL_ORIG"};
> >> ./GetComponents:605:                 $rec{URL} =~ s!\$1!$dir1!;
> >> ./GetComponents:606:                 $rec{URL} =~ s!\$2!$dir2!;
> >> ./GetComponents:608:             if ( defined( $rec{AUTH_URL} ) ) {
> >> ./GetComponents:616:             if ( $rec{"TYPE"} eq "svn" ) {
> >> ./GetComponents:617:                 my $url = ($rec{"AUTH_URL"} or 
> $rec{"URL"});
> >> ./GetComponents:618:                 if ( $url =~ m!https://! ) {
> >> ./GetComponents:619:                     my $base = $url;
> >> ./GetComponents:620:                     $base =~ 
> s/(https\:\/\/[\w\.]+)\/(.*)$/$1/i;
> >> ./GetComponents:621:                     unless ( defined 
> $svn_servers{$base} ) {
> >> ./GetComponents:622:                         my $ret = `$svn 
> --non-interactive info $url 2>&1`;
>
> Best regards
> Konrad
>
>
>
> pon., 24 sty 2022 o 16:23 Steven R. Brandt <sbrandt at cct.lsu.edu> 
> napisał(a):
>
>     What change are you referring to? Thanks.
>
>
>     --Steve
>
>
>     On 1/24/2022 9:21 AM, Barkhouse, Wayne wrote:
>>     The directory structure on bitbucket.org <http://bitbucket.org>
>>     has changed. I ran into the same problem.
>>
>>     cheers,
>>     Wayne
>>
>>     ***************************************
>>     Dr. Wayne Barkhouse
>>     Professor
>>     Department of Physics and Astrophysics
>>     University of North Dakota
>>     Grand Forks, ND 58202-7129
>>
>>     Email: wayne.barkhouse at und.edu
>>     Phone: 701-777-3520
>>     FaX: 701-777-3523
>>     ***************************************
>>
>>     ------------------------------------------------------------------------
>>     *From:* users-bounces at einsteintoolkit.org
>>     <users-bounces at einsteintoolkit.org>
>>     <mailto:users-bounces at einsteintoolkit.org> on behalf of Roland
>>     Haas <rhaas at illinois.edu> <mailto:rhaas at illinois.edu>
>>     *Sent:* Monday, January 24, 2022 9:20 AM
>>     *To:* Konrad Topolski <k.topolski2 at student.uw.edu.pl>
>>     <mailto:k.topolski2 at student.uw.edu.pl>
>>     *Cc:* Einstein Toolkit Users <users at einsteintoolkit.org>
>>     <mailto:users at einsteintoolkit.org>
>>     *Subject:* Re: [Users] GetComponents script not working
>>     Hello Konrad,
>>
>>     Hmm, workedforme (not helpful I know), when I tested this last
>>     week on
>>     a Ubuntu 20.04 VM, which makes debugging this harder. No output
>>     at all
>>     is very strange. If you can try, does it work with any other OS?
>>
>>     Can you try thess command lines, which makes Perl enter Debug
>>     mode, and
>>     send the log file GetComponents.log that it produces, please?
>>
>>     export PERL5DB='sub DB::DB {my ($p, $f, $l) = caller;my $code =
>>     \@{"::_<$f"};print STDERR ">> $f:$l: $code->[$l]";}'
>>
>>     (all in one line)
>>
>>     and
>>
>>     /usr/bin/perl -d ./GetComponents --parallel
>>     https://bitbucket.org/einsteintoolkit/manifest/raw/ET_2021_11/einsteintoolkit.th
>>     2>&1 | tee GetComponents.log
>>
>>     (also a single line)
>>
>>     Yours,
>>     Roland
>>
>>     -- 
>>     My email is as private as my paper mail. I therefore support
>>     encrypting
>>     and signing email messages. Get my PGP key from http://pgp.mit.edu .
>>
>>     _______________________________________________
>>     Users mailing list
>>     Users at einsteintoolkit.org
>>     http://lists.einsteintoolkit.org/mailman/listinfo/users
>     _______________________________________________
>     Users mailing list
>     Users at einsteintoolkit.org
>     http://lists.einsteintoolkit.org/mailman/listinfo/users
>
>
> _______________________________________________
> Users mailing list
> Users at einsteintoolkit.org
> http://lists.einsteintoolkit.org/mailman/listinfo/users
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.einsteintoolkit.org/pipermail/users/attachments/20220124/83b0ab84/attachment.html