qaapi/qa/tests/node/vsys_launch.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 my $prefix;
   5
   6 if ($#ARGV>0) {
   7                 $prefix=$ARGV[0];
   8                 print "Setting prefix = $prefix\n";
   9 }
  10 else {
  11         $prefix="pl";
  12 }
  13
  14 # Setting temporarily for Thierry's test environment
  15 $prefix="ple";
  16
  17 my $slice="$prefix"."_netflow";
  18 my $slicedir="/vservers/$slice";
  19
  20 # Subtest #1 Create new vsys entry
  21 print "Creating entries...\t";
  22
  23 my $vsys_entry="#!/bin/bash\n\ncat /etc/passwd";
  24 my $vsys_entry_acl = "$slice";
  25
  26 open ACL,">/vsys/test.acl" || die ("Could not create acl for test entry.");
  27 print ACL $vsys_entry_acl;
  28 close ACL;
  29
  30 open FIL,">/vsys/test" || die ("Could not create test entry.");
  31 print FIL $vsys_entry;
  32 close $vsys_entry;
  33
  34 chmod 0755,"/vsys/test";
  35
  36 # Check if it has shown up
  37 sleep(2);
  38
  39 (-p "/vservers/$slice/vsys/test.in") || die ("in file didn't show up in the slice");
  40 (-p "/vservers/$slice/vsys/test.out") || die ("out file didn't show up in the slice");
  41
  42 # OK, SUBTEST #1 SUCCEEDED
  43 print "[SUCCESS] The new entried appeared OK\n";
  44
  45 # Subtest #2
  46
  47 print "Multiple-connection test...\t";
  48 mkdir ("/vservers/$slice/support");
  49 system("cp vsys_conctest /vservers/$slice/support");
  50 system("su -c '/support/vsys_conctest $slice' $slice -");
  51 ($? && die ("[FAILED] Multiple-connection test failed\n"));
  52
  53
  54 # OK, SUBTEST #2 SUCCEEDED
  55 print "[SUCCESS])\n";
  56
  57 # Subtest #3
  58 unlink "/vsys/test.acl";
  59 unlink "/vsys/test";
  60
  61 (-f "$slicedir/test.in" || -f "$slicedir/test.out") && die ("cleanup failed");
  62