normal用户同一时间只能有一个登录session，如何实现多个登录？

最新推荐文章于 2022-02-23 22:03:57 发布

russle

最新推荐文章于 2022-02-23 22:03:57 发布

阅读量1.1k

点赞数

分类专栏： Rational 产品使用文章标签： session token class getter setter 脚本

本文链接：https://blog.csdn.net/russle/article/details/7162005

版权

Rational 产品使用专栏收录该内容

15 篇文章 0 订阅

订阅专栏

声明：本博客只代表作者本人，不代表作者所在公司和组织等。如因此采用本博客内容造成的损失和不便，本博客概不负责。如需相应service请联系对应厂商

1，下载client

2，编写脚本

脚本A（foreverToken.pl）

-----------------

#!/usr/bin/perl -w
use BuildForge::Services;

        $conn = new BuildForge::Services::Connection('localhost');
        $token = $conn->authUser('yq','qq');
       print "token: $token \n";
       #$conn->authToken($token);

        # Getting existing projects
        $project = BuildForge::Services::DBO::Project->findByName($conn, 'proj1');

        # Getter / setter functions
        $id = $project->getProjectId();
        $name = $project->getName();
        $class = $project->getBuildClass();
        $env = $project->getEnvironmentId();

        print "Name: $name \n";
        print "ID: $id \n";
        print "Class: $class \n";
        print "Env ID: $env \n";

        #wait for a very long, the other script can use the same session.
       my $verbose = 99999999;
        my $idx = 0;
      while ($idx<$verbose) {
         sleep 20;
         $idx =$idx+1;
   warn "index: $idx\n";
       }

        $conn->logout;
        $conn->close;

脚本B（shareToken.pl）

-------------------------

#!/usr/bin/perl -w
use BuildForge::Services;

$conn = new BuildForge::Services::Connection('localhost');
#$token = $conn->authUser('yq','qq');

        #get the token after the scriptA is executed
       $conn->authToken('77baef380c571000ca2b83f44d314d31');

        # Getting existing projects
        $project = BuildForge::Services::DBO::Project->findByName($conn, 'proj2share');

        # Getter / setter functions
        $id = $project->getProjectId();
        $name = $project->getName();
        $class = $project->getBuildClass();
        $env = $project->getEnvironmentId();

        print "Name: $name \n";
        print "ID: $id \n";
        print "Class: $class \n";
        print "Env ID: $env \n";


        #don't logout or close, for myabe other scripts are using this session at the same time
       print "exit";