Subversion Repositories DevTools

Rev

Rev 1576 | Rev 1580 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1576 Rev 1578
Line 2204... Line 2204...
2204 
#       processing.
 2204 
#       processing.
2205 
#
 2205 
#
2206 
# Inputs:   $targetType         - Type of target ( provides source directory)
 2206 
# Inputs:   $targetType         - Type of target ( provides source directory)
2207 
#           $sfile              - Source file name, within source directory
 2207 
#           $sfile              - Source file name, within source directory
2208 
#           $targetTag          - Symbolic target dir
 2208 
#           $targetTag          - Symbolic target dir
- 
 
 2209 
#           $tfile              - Optional
2209 
#
 2210 
#
2210 
#
 2211 
#
2211 
# Note: This function will copy a single file
 2212 
# Note: This function will copy a single file
2212 
#
 2213 
#
2213 
#------------------------------------------------------------------------------
 2214 
#------------------------------------------------------------------------------
2214 
{
 2215 
{
2215 
    # correct number of parameters?
 2216 
    # correct number of parameters?
2216 
    if ( ($#_+1) != 3 )
 2217 
    if ( ($#_+1) < 3 || ($#_+1) > 4 )
2217 
    {
 2218 
    {
2218 
        Error("Incorrect number of params passed to " .
 2219 
        Error("Incorrect number of params passed to " .
2219 
              "installDpkgArchiveFile() function. " ,
 2220 
              "installDpkgArchiveFile() function. " ,
2220 
              "Check deploy config.");
 2221 
              "Check deploy config.");
2221 
    }
 2222 
    }
2222 
 
 2223 
 
2223 
    my ($targetType, $sfile, $targetTag) = @_;
 2224 
    my ($targetType, $sfile, $targetTag, $tfile) = @_;
2224 
 
 2225 
 
2225 
    # lets check to see if the target tag exists
 2226 
    # lets check to see if the target tag exists
2226 
    # if does not the process with log an error.
 2227 
    # if does not the process with log an error.
2227 
    #
 2228 
    #
2228 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 2229 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
2229 
 
 2230 
 
- 
 
 2231 
    #
- 
 
 2232 
    #   Set the name of the target file to that of the source file
- 
 
 2233 
    #   if the name is not provided by the user
- 
 
 2234 
    #
- 
 
 2235 
    $tfile = $sfile if ( !defined $tfile || $tfile eq "" );
- 
 
 2236 
 
2230 
 
 2237 
 
2231 
    # lets define the absolute location of the file
 2238 
    # lets define the absolute location of the file
2232 
    #
 2239 
    #
2233 
    my ($m_dstFileLocation) = "$targetValue/$sfile";
 2240 
    my ($m_dstFileLocation) = "$targetValue/$tfile";
2234 
    my ($m_srcFileLocation) = "";
 2241 
    my ($m_srcFileLocation) = "";
2235
2242
2236 
    if    ( "$targetType" eq "jar" )        { $m_srcFileLocation = "$DpkgJarDir/$sfile"; }
 2243 
    if    ( "$targetType" eq "jar" )        { $m_srcFileLocation = "$DpkgJarDir/$sfile"; }
2237 
    elsif ( "$targetType" eq "sar" )        { $m_srcFileLocation = "$DpkgSarDir/$sfile"; }
 2244 
    elsif ( "$targetType" eq "sar" )        { $m_srcFileLocation = "$DpkgSarDir/$sfile"; }
2238 
    elsif ( "$targetType" eq "include" )    { $m_srcFileLocation = "$DpkgIncludeDir/$sfile"; }
 2245 
    elsif ( "$targetType" eq "include" )    { $m_srcFileLocation = "$DpkgIncludeDir/$sfile"; }
Line 2286... Line 2293...
2286 
#
 2293 
#
2287 
#       If it fails to find the file it will report an error and terminates
 2294 
#       If it fails to find the file it will report an error and terminates
2288 
#       processing.
 2295 
#       processing.
2289 
#
 2296 
#
2290 
# Ugly trick:
 2297 
# Ugly trick:
2291 
#       This function tags a $$targetType argument which is used in constructing
 2298 
#       This function tags a $targetType argument which is used in constructing
2292 
#       the source directory path. ie: InterfaceDir/achtml/$targetType
 2299 
#       the source directory path. ie: InterfaceDir/achtml/$targetType
2293 
#
 2300 
#
2294 
#       Could provide as an option to installDpkgArchiveFile and re-use that
 2301 
#       Could provide as an option to installDpkgArchiveFile and re-use that
2295 
#       function
 2302 
#       function
2296 
#------------------------------------------------------------------------------
 2303 
#------------------------------------------------------------------------------
Line 2353... Line 2360...
2353 
#       If it fails to find the file it will report an error and terminates
 2360 
#       If it fails to find the file it will report an error and terminates
2354 
#       processing.
 2361 
#       processing.
2355 
#
 2362 
#
2356 
#------------------------------------------------------------------------------
 2363 
#------------------------------------------------------------------------------
2357 
{
 2364 
{
2358 
    # correct number of parameters?
 - 
 
2359 
    if ( ($#_+1) != 2 )
 - 
 
2360 
    {
 - 
 
2361 
        Error("Incorrect number of params passed to " .
 - 
 
2362 
              "installDpkgArchiveRptFile() function. " ,
 - 
 
2363 
              "Check deploy config.");
 - 
 
2364 
    }
 - 
 
2365 
 
 - 
 
2366 
    my ($sfile, $targetTag) = @_;
 - 
 
2367 
 
 - 
 
2368 
    # lets check to see if the target tag exists
 - 
 
2369 
    # if does not the process with log an error.
 - 
 
2370 
    #
 - 
 
2371 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2372
- 
 
2373
- 
 
2374 
    # for now lets call the generic funtion to move all items
 - 
 
2375 
    # in the associated dpkg_archive dir.
 2365 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2376 
    #
 2366 
    #
2377 
    installDpkgArchiveFile("rpt", $sfile, $targetTag);
 2367 
    installDpkgArchiveFile("rpt", @_);
2378 
 
 2368 
 
2379 
    return 1;
 2369 
    return 1;
2380 
}
 2370 
}
2381 
 
 2371 
 
2382 
 
 2372 
 
Line 2392... Line 2382...
2392 
#       If it fails to find the file it will report an error and terminates
 2382 
#       If it fails to find the file it will report an error and terminates
2393 
#       processing.
 2383 
#       processing.
2394 
#
 2384 
#
2395 
#------------------------------------------------------------------------------
 2385 
#------------------------------------------------------------------------------
2396 
{
 2386 
{
2397 
    # correct number of parameters?
 - 
 
2398 
    if ( ($#_+1) != 2 )
 - 
 
2399 
    {
 - 
 
2400 
        Error("Incorrect number of params passed to " .
 - 
 
2401 
              "installDpkgArchiveRoxFile() function. " ,
 - 
 
2402 
              "Check deploy config.");
 - 
 
2403 
    }
 - 
 
2404 
 
 - 
 
2405 
    my ($sfile, $targetTag) = @_;
 - 
 
2406 
 
 - 
 
2407 
    # lets check to see if the target tag exists
 - 
 
2408 
    # if does not the process with log an error.
 - 
 
2409 
    #
 - 
 
2410 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2411
- 
 
2412
- 
 
2413 
    # for now lets call the generic funtion to move all items
 - 
 
2414 
    # in the associated dpkg_archive dir.
 2387 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2415 
    #
 2388 
    #
2416 
    installDpkgArchiveFile("rox", $sfile, $targetTag);
 2389 
    installDpkgArchiveFile("rox", @_);
2417 
 
 2390 
 
2418 
    return 1;
 2391 
    return 1;
2419 
}
 2392 
}
2420 
 
 2393 
 
2421 
 
 2394 
 
Line 2431... Line 2404...
2431 
#       If it fails to find the file it will report an error and terminates
 2404 
#       If it fails to find the file it will report an error and terminates
2432 
#       processing.
 2405 
#       processing.
2433 
#
 2406 
#
2434 
#------------------------------------------------------------------------------
 2407 
#------------------------------------------------------------------------------
2435 
{
 2408 
{
2436 
    # correct number of parameters?
 - 
 
2437 
    if ( ($#_+1) != 2 )
 - 
 
2438 
    {
 - 
 
2439 
        Error("Incorrect number of params passed to " .
 - 
 
2440 
              "installDpkgArchiveDatFile() function. " ,
 - 
 
2441 
              "Check deploy config.");
 - 
 
2442 
    }
 - 
 
2443 
 
 - 
 
2444 
    my ($sfile, $targetTag) = @_;
 - 
 
2445 
 
 - 
 
2446 
    # lets check to see if the target tag exists
 - 
 
2447 
    # if does not the process with log an error.
 2409 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2448 
    #
 2410 
    #
2449 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2450
- 
 
2451
- 
 
2452 
    # for now lets call the generic funtion to move all items
 - 
 
2453 
    # in the associated dpkg_archive dir.
 - 
 
2454 
    #
 - 
 
2455 
    installDpkgArchiveFile("dat", $sfile, $targetTag);
 2411 
    installDpkgArchiveFile("dat", @_);
2456 
 
 2412 
 
2457 
    return 1;
 2413 
    return 1;
2458 
}
 2414 
}
2459 
 
 2415 
 
2460 
 
 2416 
 
Line 2470... Line 2426...
2470 
#       If it fails to find the file it will report an error and terminates
 2426 
#       If it fails to find the file it will report an error and terminates
2471 
#       processing.
 2427 
#       processing.
2472 
#
 2428 
#
2473 
#------------------------------------------------------------------------------
 2429 
#------------------------------------------------------------------------------
2474 
{
 2430 
{
2475 
    # correct number of parameters?
 - 
 
2476 
    if ( ($#_+1) != 2 )
 - 
 
2477 
    {
 - 
 
2478 
        Error("Incorrect number of params passed to " .
 - 
 
2479 
              "installDpkgArchiveThxFile() function. " ,
 - 
 
2480 
              "Check deploy config.");
 - 
 
2481 
    }
 - 
 
2482 
 
 - 
 
2483 
    my ($sfile, $targetTag) = @_;
 - 
 
2484 
 
 - 
 
2485 
    # lets check to see if the target tag exists
 - 
 
2486 
    # if does not the process with log an error.
 2431 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2487 
    #
 2432 
    #
2488 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2489
- 
 
2490
- 
 
2491 
    # for now lets call the generic funtion to move all items
 - 
 
2492 
    # in the associated dpkg_archive dir.
 - 
 
2493 
    #
 - 
 
2494 
    installDpkgArchiveFile("thx", $sfile, $targetTag);
 2433 
    installDpkgArchiveFile("thx", @_);
2495 
 
 2434 
 
2496 
    return 1;
 2435 
    return 1;
2497 
}
 2436 
}
2498 
 
 2437 
 
2499 
 
 2438 
 
Line 2509... Line 2448...
2509 
#       If it fails to find the file it will report an error and terminates
 2448 
#       If it fails to find the file it will report an error and terminates
2510 
#       processing.
 2449 
#       processing.
2511 
#
 2450 
#
2512 
#------------------------------------------------------------------------------
 2451 
#------------------------------------------------------------------------------
2513 
{
 2452 
{
2514 
    # correct number of parameters?
 - 
 
2515 
    if ( ($#_+1) != 2 )
 - 
 
2516 
    {
 - 
 
2517 
        Error("Incorrect number of params passed to " .
 - 
 
2518 
              "installDpkgArchiveMugFile() function. " ,
 - 
 
2519 
              "Check deploy config.");
 - 
 
2520 
    }
 - 
 
2521 
 
 - 
 
2522 
    my ($sfile, $targetTag) = @_;
 - 
 
2523 
 
 - 
 
2524 
    # lets check to see if the target tag exists
 - 
 
2525 
    # if does not the process with log an error.
 - 
 
2526 
    #
 - 
 
2527 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2528
- 
 
2529
- 
 
2530 
    # for now lets call the generic funtion to move all items
 - 
 
2531 
    # in the associated dpkg_archive dir.
 2453 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2532 
    #
 2454 
    #
2533 
    installDpkgArchiveFile("mug", $sfile, $targetTag);
 2455 
    installDpkgArchiveFile("mug", @_);
2534 
 
 2456 
 
2535 
    return 1;
 2457 
    return 1;
2536 
}
 2458 
}
2537 
 
 2459 
 
2538 
 
 2460 
 
Line 2548... Line 2470...
2548 
#       If it fails to find the file it will report an error and terminates
 2470 
#       If it fails to find the file it will report an error and terminates
2549 
#       processing.
 2471 
#       processing.
2550 
#
 2472 
#
2551 
#------------------------------------------------------------------------------
 2473 
#------------------------------------------------------------------------------
2552 
{
 2474 
{
2553 
    # correct number of parameters?
 - 
 
2554 
    if ( ($#_+1) != 2 )
 - 
 
2555 
    {
 - 
 
2556 
        Error("Incorrect number of params passed to " .
 - 
 
2557 
              "installDpkgArchiveInfoFilesFile() function. " ,
 - 
 
2558 
              "Check deploy config.");
 - 
 
2559 
    }
 - 
 
2560 
 
 - 
 
2561 
    my ($sfile, $targetTag) = @_;
 - 
 
2562 
 
 - 
 
2563 
    # lets check to see if the target tag exists
 - 
 
2564 
    # if does not the process with log an error.
 - 
 
2565 
    #
 - 
 
2566 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2567
- 
 
2568
- 
 
2569 
    # for now lets call the generic funtion to move all items
 - 
 
2570 
    # in the associated dpkg_archive dir.
 2475 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2571 
    #
 2476 
    #
2572 
    installDpkgArchiveFile("infofiles", $sfile, $targetTag);
 2477 
    installDpkgArchiveFile("infofiles", @_);
2573 
 
 2478 
 
2574 
    return 1;
 2479 
    return 1;
2575 
}
 2480 
}
2576 
 
 2481 
 
2577 
 
 2482 
 
Line 2587... Line 2492...
2587 
#       If it fails to find the file it will report an error and terminates
 2492 
#       If it fails to find the file it will report an error and terminates
2588 
#       processing.
 2493 
#       processing.
2589 
#
 2494 
#
2590 
#------------------------------------------------------------------------------
 2495 
#------------------------------------------------------------------------------
2591 
{
 2496 
{
2592 
    # correct number of parameters?
 - 
 
2593 
    if ( ($#_+1) != 2 )
 - 
 
2594 
    {
 - 
 
2595 
        Error("Incorrect number of params passed to " .
 - 
 
2596 
              "installDpkgArchiveSqlFile() function. " ,
 - 
 
2597 
              "Check deploy config.");
 - 
 
2598 
    }
 - 
 
2599 
 
 - 
 
2600 
    my ($sfile, $targetTag) = @_;
 - 
 
2601 
 
 - 
 
2602 
    # lets check to see if the target tag exists
 - 
 
2603 
    # if does not the process with log an error.
 2497 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2604 
    #
 2498 
    #
2605 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2606
- 
 
2607
- 
 
2608 
    # for now lets call the generic funtion to move all items
 - 
 
2609 
    # in the associated dpkg_archive dir.
 - 
 
2610 
    #
 - 
 
2611 
    installDpkgArchiveFile("sql", $sfile, $targetTag);
 2499 
    installDpkgArchiveFile("sql", @_);
2612 
 
 2500 
 
2613 
    return 1;
 2501 
    return 1;
2614 
}
 2502 
}
2615 
 
 2503 
 
2616 
 
 2504 
 
Line 2626... Line 2514...
2626 
#       If it fails to find the file it will report an error and terminates
 2514 
#       If it fails to find the file it will report an error and terminates
2627 
#       processing.
 2515 
#       processing.
2628 
#
 2516 
#
2629 
#------------------------------------------------------------------------------
 2517 
#------------------------------------------------------------------------------
2630 
{
 2518 
{
2631 
    # correct number of parameters?
 - 
 
2632 
    if ( ($#_+1) != 2 )
 - 
 
2633 
    {
 - 
 
2634 
        Error("Incorrect number of params passed to " .
 - 
 
2635 
              "installDpkgArchiveWarFile() function. " ,
 - 
 
2636 
              "Check deploy config.");
 - 
 
2637 
    }
 - 
 
2638 
 
 - 
 
2639 
    my ($sfile, $targetTag) = @_;
 - 
 
2640 
 
 - 
 
2641 
    # lets check to see if the target tag exists
 - 
 
2642 
    # if does not the process with log an error.
 - 
 
2643 
    #
 - 
 
2644 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2645
- 
 
2646
- 
 
2647 
    # for now lets call the generic funtion to move all items
 - 
 
2648 
    # in the associated dpkg_archive dir.
 2519 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2649 
    #
 2520 
    #
2650 
    installDpkgArchiveFile("war", $sfile, $targetTag);
 2521 
    installDpkgArchiveFile("war", @_);
2651 
 
 2522 
 
2652 
    return 1;
 2523 
    return 1;
2653 
}
 2524 
}
2654 
 
 2525 
 
2655 
 
 2526 
 
Line 2666... Line 2537...
2666 
#       If it fails to find the file it will report an error and terminates
 2537 
#       If it fails to find the file it will report an error and terminates
2667 
#       processing.
 2538 
#       processing.
2668 
#
 2539 
#
2669 
#------------------------------------------------------------------------------
 2540 
#------------------------------------------------------------------------------
2670 
{
 2541 
{
2671 
    # correct number of parameters?
 - 
 
2672 
    if ( ($#_+1) != 2 )
 - 
 
2673 
    {
 - 
 
2674 
        Error("Incorrect number of params passed to " .
 - 
 
2675 
              "installDpkgArchiveJarFile() function. " ,
 - 
 
2676 
              "Check deploy config.");
 - 
 
2677 
    }
 - 
 
2678 
 
 - 
 
2679 
    my ($sfile, $targetTag) = @_;
 - 
 
2680 
 
 - 
 
2681 
    # lets check to see if the target tag exists
 - 
 
2682 
    # if does not the process with log an error.
 2542 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2683 
    #
 2543 
    #
2684 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2685
- 
 
2686
- 
 
2687 
    # for now lets call the generic funtion to move all items
 - 
 
2688 
    # in the associated dpkg_archive dir.
 - 
 
2689 
    #
 - 
 
2690 
    installDpkgArchiveFile("jar", $sfile, $targetTag);
 2544 
    installDpkgArchiveFile("jar", @_);
2691 
 
 2545 
 
2692 
    return 1;
 2546 
    return 1;
2693 
}
 2547 
}
2694 
 
 2548 
 
2695 
 
 2549 
 
Line 2706... Line 2560...
2706 
#       If it fails to find the file it will report an error and terminates
 2560 
#       If it fails to find the file it will report an error and terminates
2707 
#       processing.
 2561 
#       processing.
2708 
#
 2562 
#
2709 
#------------------------------------------------------------------------------
 2563 
#------------------------------------------------------------------------------
2710 
{
 2564 
{
2711 
    # correct number of parameters?
 - 
 
2712 
    if ( ($#_+1) != 2 )
 - 
 
2713 
    {
 - 
 
2714 
        Error("Incorrect number of params passed to " .
 - 
 
2715 
              "installDpkgArchiveSarFile() function. " ,
 - 
 
2716 
              "Check deploy config.");
 - 
 
2717 
    }
 - 
 
2718 
 
 - 
 
2719 
    my ($sfile, $targetTag) = @_;
 - 
 
2720 
 
 - 
 
2721 
    # lets check to see if the target tag exists
 - 
 
2722 
    # if does not the process with log an error.
 - 
 
2723 
    #
 - 
 
2724 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2725
- 
 
2726
- 
 
2727 
    # for now lets call the generic funtion to move all items
 - 
 
2728 
    # in the associated dpkg_archive dir.
 2565 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2729 
    #
 2566 
    #
2730 
    installDpkgArchiveFile("sar", $sfile, $targetTag);
 2567 
    installDpkgArchiveFile("sar", @_);
2731 
 
 2568 
 
2732 
    return 1;
 2569 
    return 1;
2733 
}
 2570 
}
2734 
 
 2571 
 
2735 
 
 2572 
 
Line 2748... Line 2585...
2748 
#       If it fails to find the file it will report an error and terminates
 2585 
#       If it fails to find the file it will report an error and terminates
2749 
#       processing.
 2586 
#       processing.
2750 
#
 2587 
#
2751 
#------------------------------------------------------------------------------
 2588 
#------------------------------------------------------------------------------
2752 
{
 2589 
{
2753 
    # correct number of parameters?
 - 
 
2754 
    if ( ($#_+1) != 2 )
 - 
 
2755 
    {
 - 
 
2756 
        Error("Incorrect number of params passed to " .
 - 
 
2757 
              "installDpkgArchiveEtcFile() function. " ,
 - 
 
2758 
              "Check deploy config.");
 - 
 
2759 
    }
 - 
 
2760 
 
 - 
 
2761 
    my ($sfile, $targetTag) = @_;
 - 
 
2762 
 
 - 
 
2763 
    # lets check to see if the target tag exists
 - 
 
2764 
    # if does not the process with log an error.
 - 
 
2765 
    #
 - 
 
2766 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2767
- 
 
2768
- 
 
2769 
    # for now lets call the generic funtion to move all items
 - 
 
2770 
    # in the associated dpkg_archive dir.
 2590 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2771 
    #
 2591 
    #
2772 
    installDpkgArchiveFile("etc", $sfile, $targetTag);
 2592 
    installDpkgArchiveFile("etc", @_);
2773 
 
 2593 
 
2774 
    return 1;
 2594 
    return 1;
2775 
}
 2595 
}
2776 
 
 2596 
 
2777 
 
 2597 
 
Line 2787... Line 2607...
2787 
#       If it fails to find the file it will report an error and terminates
 2607 
#       If it fails to find the file it will report an error and terminates
2788 
#       processing.
 2608 
#       processing.
2789 
#
 2609 
#
2790 
#------------------------------------------------------------------------------
 2610 
#------------------------------------------------------------------------------
2791 
{
 2611 
{
2792 
    # correct number of parameters?
 - 
 
2793 
    if ( ($#_+1) != 2 )
 - 
 
2794 
    {
 - 
 
2795 
        Error("Incorrect number of params passed to " .
 - 
 
2796 
              "installDpkgArchiveScriptsFile() function. " ,
 - 
 
2797 
              "Check deploy config.");
 - 
 
2798 
    }
 - 
 
2799 
 
 - 
 
2800 
   my ($sfile, $targetTag) = @_;
 - 
 
2801 
 
 - 
 
2802 
    # lets check to see if the target tag exists
 - 
 
2803 
    # if does not the process with log an error.
 2612 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2804 
    #
 2613 
    #
2805 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2806
- 
 
2807
- 
 
2808 
    # for now lets call the generic funtion to move all items
 - 
 
2809 
    # in the associated dpkg_archive dir.
 - 
 
2810 
    #
 - 
 
2811 
    installDpkgArchiveFile("scripts", $sfile, $targetTag);
 2614 
    installDpkgArchiveFile("scripts", @_);
2812 
 
 2615 
 
2813 
    return 1;
 2616 
    return 1;
2814 
}
 2617 
}
2815 
 
 2618 
 
2816 
 
 2619 
 
Line 2827... Line 2630...
2827 
#       If it fails to find the file it will report an error and terminates
 2630 
#       If it fails to find the file it will report an error and terminates
2828 
#       processing.
 2631 
#       processing.
2829 
#
 2632 
#
2830 
#------------------------------------------------------------------------------
 2633 
#------------------------------------------------------------------------------
2831 
{
 2634 
{
2832 
    # correct number of parameters?
 - 
 
2833 
    if ( ($#_+1) != 2 )
 - 
 
2834 
    {
 - 
 
2835 
        Error("Incorrect number of params passed to " .
 - 
 
2836 
              "installDpkgArchiveIncludeFile() function. " ,
 - 
 
2837 
              "Check deploy config.");
 - 
 
2838 
    }
 - 
 
2839 
 
 - 
 
2840 
   my ($sfile, $targetTag) = @_;
 - 
 
2841 
 
 - 
 
2842 
    # lets check to see if the target tag exists
 - 
 
2843 
    # if does not the process with log an error.
 2635 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2844 
    #
 2636 
    #
2845 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2846
- 
 
2847
- 
 
2848 
    # for now lets call the generic funtion to move all items
 - 
 
2849 
    # in the associated dpkg_archive dir.
 - 
 
2850 
    #
 - 
 
2851 
    installDpkgArchiveFile("include", $sfile, $targetTag);
 2637 
    installDpkgArchiveFile("include", @_);
2852 
 
 2638 
 
2853 
    return 1;
 2639 
    return 1;
2854 
}
 2640 
}
2855 
 
 2641 
 
2856 
 
 2642 
 
Line 2867... Line 2653...
2867 
#       If it fails to find the file it will report an error and terminates
 2653 
#       If it fails to find the file it will report an error and terminates
2868 
#       processing.
 2654 
#       processing.
2869 
#
 2655 
#
2870 
#------------------------------------------------------------------------------
 2656 
#------------------------------------------------------------------------------
2871 
{
 2657 
{
2872 
    # correct number of parameters?
 - 
 
2873 
    if ( ($#_+1) != 2 )
 - 
 
2874 
    {
 - 
 
2875 
        Error("Incorrect number of params passed to " .
 - 
 
2876 
              "installDpkgArchiveDocFile() function. " ,
 - 
 
2877 
              "Check deploy config.");
 - 
 
2878 
    }
 - 
 
2879 
 
 - 
 
2880 
   my ($sfile, $targetTag) = @_;
 - 
 
2881 
 
 - 
 
2882 
    # lets check to see if the target tag exists
 - 
 
2883 
    # if does not the process with log an error.
 - 
 
2884 
    #
 - 
 
2885 
    my ($targetValue) = getTargetDstDirValue($targetTag, "A");
 - 
 
2886
- 
 
2887
- 
 
2888 
    # for now lets call the generic funtion to move all items
 - 
 
2889 
    # in the associated dpkg_archive dir.
 2658 
    # Use generic funtion to move all items in the associated dpkg_archive dir.
2890 
    #
 2659 
    #
2891 
    installDpkgArchiveFile("doc", $sfile, $targetTag);
 2660 
    installDpkgArchiveFile("doc", @_);
2892 
 
 2661 
 
2893 
    return 1;
 2662 
    return 1;
2894 
}
 2663 
}
2895 
 
 2664 
 
2896 
 
 2665