File: gbrowse_get_sessionid.pl

package info (click to toggle)
gbrowse 2.54%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 12,724 kB
  • ctags: 4,370
  • sloc: perl: 48,499; sh: 164; sql: 62; makefile: 39; ansic: 27
file content (18 lines) | stat: -rwxr-xr-x 437 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $gbrowse = shift or die "usage: $0 <gbrowse_url>";

my $agent    = LWP::UserAgent->new;
$agent->cookie_jar({file=>"$ENV{HOME}/.gbrowse_session",
		    autosave=>1
		   });
my $response = $agent->head($gbrowse);
die $response->status_line unless $response->is_success;

my $cookie = $response->header('Set-cookie');
my ($id)   = $cookie =~ /gbrowse_sess=([a-f0-9]+)/;
print $id,"\n";