Changeset 557 in ProjectBuilder
- Timestamp:
- Sep 24, 2008, 12:23:42 AM (16 years ago)
- Location:
- devel
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r556 r557 228 228 229 229 Announce the availability of the project through various means 230 231 =back 232 233 =item B<web2ssh> 234 235 Deliver the Web site content to the target server using ssh. 230 236 231 237 =back … … 444 450 # For announce only. Require avoids the systematic load of these modules 445 451 require DBI; 452 require DBD::SQLite; 446 453 447 454 pb_announce(); 448 455 } elsif ($action =~ /^web2ssh$/) { 449 456 require DBI; 457 require DBD::SQLite; 450 458 451 459 pb_cms2build("Web"); … … 462 470 my $pkg; 463 471 my @pkgs; 472 my $webdir; 473 474 my %pkgs; 475 my %pb; # Structure to store conf info 464 476 465 477 # If Website, then pkg is only the website 466 478 if ((defined $param) && ($param eq "Web")) { 467 my $webdir = pb_conf_get("webdir"); 468 @pkgs = ($webdir->{$ENV{'PBPROJ'}}); 479 ($webdir) = pb_conf_get("webdir"); 480 pb_log(2,"webdir: ".Dumper($webdir)."\n"); 481 $pkgs[0] = $webdir->{$ENV{'PBPROJ'}}; 469 482 $extpkgdir = $webdir; 470 pb_log(0,"Package s: ".join(',',@pkgs)."\n");483 pb_log(0,"Package: $pkgs[0]\n"); 471 484 } else { 472 485 $pkg = pb_cms_get_pkg($defpkgdir,$extpkgdir); 473 486 @pkgs = @$pkg; 474 487 } 475 476 my %pkgs;477 my %pb; # Structure to store conf info478 488 479 489 my ($scheme, $uri) = pb_cms_init($pbinit); … … 1356 1366 } 1357 1367 if ($v =~ /x86_64/) { 1358 $vmcmd = "$qemucmd64 -no-kqemu"; 1368 $vmcmd = "$qemucmd64"; 1369 # Not needed with latest versions of qemu it seems 1370 #$vmcmd = "$qemucmd64 -no-kqemu"; 1371 # This one may now be needed 1372 #$vmcmd = "$qemucmd64 -no-kvm"; 1359 1373 } else { 1360 1374 $vmcmd = "$qemucmd32";
Note:
See TracChangeset
for help on using the changeset viewer.