solenv/bin/deliver.pl

173     my ($dependent, $common, $from, $to, $file_list);
178     ($from, $to) = split(' ', $dependent);
179     print "copy dependent: from: $from, to: $to\n" if $is_debug;
180     glob_and_copy($from, $to, $touch);
187             ($from, $to) = split(' ', $common);
188             print "copy common: from: $from, to: $to\n" if $is_debug;
189             glob_and_copy($from, $to, $touch);
215     my ($from, $to);
219     ($from, $to) = split(' ', $line);
221     push( @addincpath_list, @{glob_line($from, $to)});
341     ($from, $to) = split(' ',$line);
342     my $fullfrom = $from;
343     if ( dirname($from) eq dirname($to) ) {
344         $from = basename($from);
346     elsif ( dirname($from) eq '.' ) {
354     print "symlink: $from, to: $to\n" if $is_debug;
363             print "SYMLINK $from -> $to\n";
374         print "SYMLIB: $from -> $to\n" if $opt_verbose;
375         if ( !symlink("$from", "$to") ) {
376             print_error("can't symlink $from -> $to: $!",0);
380             push_on_loglist("LINK", "$from", "$to") if $opt_log;
387     my ($from, $to);
392     ($from, $to) = split(' ', $line);
393     print "touch: $from, to: $to\n" if $is_debug;
394     glob_and_copy($from, $to, $touch);
649     my $from = shift;
655     if ( ! ( $from && $to ) ) {
656         print_warning("Error in d.lst? source: '$from' destination: '$to'");
666     if ( $from =~ /[\*\?\[\]]/ ) {
669         my @file_list = glob($from);
681         if (-d $to && -f $from) {
682             my $filename = File::Basename::basename($from);
686         push(@globbed_files, [$from, $to]);
691         if (( $from !~ /\Q$outtree\E/ ) && ( $from !~ /\Q$commonouttree\E/ )) {
692             print_warning("'$from' does not match any file") if ( $#globbed_files == -1 );
701     my $from = shift;
705     my @copy_files = @{glob_line($from, $to)};
777     my $from = shift;
783     print "testing $from, $to\n" if $is_debug;
785     push_on_loglist("COPY", "$from", "$to") if $opt_log;
786     return 0 unless ($from_stat_ref = is_newer($from, $to, $touch));
797         if( link($from, $to) ){
798             print "LINK: $from -> $to\n" if $opt_verbose;
804        print "TOUCH: $from -> $to\n" if $opt_verbose;
807        print "COPY: $from -> $to\n" if $opt_verbose;
817     if (($strip ne '') && (defined $ENV{PROEXT}) && (is_unstripped($from))) {
818         $rc = strip_target($from, $temp_file);
820         $rc = copy($from, $temp_file);
823         if ( is_newer($temp_file, $from, 0) ) {
827                                Check file permissions of '$from'.",0);
855                 system("macosx-create-bundle", "$to=$from.app") if ( -d "$from.app" );
868         print_error("can't copy $from: $!",0);
881         my $from = shift;
886         @from_stat = stat($from.$maybedot);
890             if ( $from !~ /$outtree/ ) {
891                 if ( $from !~ /$commonouttree/ ) {
892                     print_warning("'$from' does not exist") unless -e _;
1077     my $from = shift;
1083     push_on_loglist("ADDINCPATH", "$from", "$to") if $opt_log;
1092     if ( $from_stat_ref = is_newer($from, $to) ) {
1093         print "ADDINCPATH: $from -> $to\n" if $opt_verbose;
1099         open(FROM, "<$from");
1359             my ($from, $to) = split(' ', $path);
1362             if ( $from =~ /[\*\?\[\]]/ ) {