home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / Chip_2004-04_cd1.bin / opsys / macos / safari / safari.dmg / Safari_1.2.pkg / Contents / Resources / preflight < prev    next >
Text File  |  2003-12-11  |  330b  |  16 lines
  1. #!/usr/bin/perl
  2.  
  3. $0 =~ m/.*\/(.*)$/;
  4. my $stage = $1;
  5. my $actionsDir = $ARGV[0] . "/Contents/Resources/" . $stage . "_actions/";
  6.  
  7. my $actionResult = 0;
  8.  
  9. foreach my $action (`/bin/ls \"$actionsDir\"`) {
  10.     chomp($action);
  11.     system($actionsDir . $action, $ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]);
  12.     $actionResult = ($? << 8);
  13. }
  14.  
  15. exit(0);
  16.