Sponsored Content
Homework and Emergencies Emergency UNIX and Linux Support Perl - Retrieving and Printing Security Token Post 302542575 by AndrewTwain on Thursday 28th of July 2011 03:52:40 AM
Old 07-28-2011
Yes, this is resolved. Silly mistake on my behalf. However a question I do have is there a way to show you have JS(javascript) enabled within perl?
 

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl printing error

Hi Scripting Gurus, I am new bee in perl, and trying to write a script which must print the free disk space availability of C and E drives. Please advice. Here is the script snippet and expected output: #!/usr/bin/perl use CGI qw/:html3 :standard/; $spaceuselog =... (4 Replies)
Discussion started by: ccsaviour
4 Replies

2. Shell Programming and Scripting

Need help in printing a sql query in perl

Hi All, I have the following sql query select abcd from udbadm.log where xyz='1'. I have 16k queries similar to this with different values for xyz. I want to print the values of 'abcd' for each row. I have the following perl code, but not sure how i can print that particular... (1 Reply)
Discussion started by: userscript
1 Replies

3. Shell Programming and Scripting

[Perl] Printing - Scalars

Hey Guys, I have some weird problem with printing scalars ... When I'm executing script both are printing in terminal ... But only one is printed to the file ? I don't know whats going on .. :) Btw .. I'm noobie :) took me lots of time to put this simple script together :) Thank you... (3 Replies)
Discussion started by: NDxiak
3 Replies

4. Shell Programming and Scripting

Printing between 2 matches with Perl

Can we please modify this perl one-liner to print lines between pattern1 and pattern2 in a file? Currently it prints lines till pattern2. (4 Replies)
Discussion started by: anand_bh
4 Replies

5. Shell Programming and Scripting

Q:Perl Extracting & Printing Security Token

I have a script which is supposed to log in to my vB account and print my security token, however doesn't seem to work globally. The logging in works perfectly just will not retrieve and print the security token for every forum I log in to. Code Below: #!/usr/bin/perl use LWP::UserAgent; ... (8 Replies)
Discussion started by: AndrewTwain
8 Replies

6. Shell Programming and Scripting

Perl: selective printing of lines

Hi, I have a file with lines like this. 2 7 18 ggcgt anna 2 7 18 hhchc sam 3 7 18 hhdjcc ross 4 7 18 hhcjd jenny 0 8 21 jjdhs sam 3 8 21 kkok bush 2 9 24 kosss BrenhamIf the values of the second column are equal, print only those lines with the least first column value. So in... (5 Replies)
Discussion started by: polsum
5 Replies

7. Shell Programming and Scripting

help with perl database printing

Hey guys i am using perl and trying to pull a list of books from a database and then populate the list in a separate TT2 file. When the list is generated there should be 39 book names. When I do the foreach statement in my tt2 below, the first statement gives me 39 Array(random number) and the... (1 Reply)
Discussion started by: Joey12
1 Replies

8. Forum Support Area for Unregistered Users & Account Problems

Security Token

I got this message while submitting a reply to a thread. I could submitt the replies till yesterday but today it shows me the following message "Your submission could not be processed because a security token was missing." What should I do to resolve this? (1 Reply)
Discussion started by: Akang
1 Replies
Plack::Middleware::Deflater(3pm)			User Contributed Perl Documentation			  Plack::Middleware::Deflater(3pm)

NAME
Plack::Middleware::Deflater - Compress response body with Gzip or Deflate SYNOPSIS
use Plack::Builder; builder { enable sub { my $app = shift; sub { my $env = shift; my $ua = $env->{HTTP_USER_AGENT} || ''; # Netscape has some problem $env->{"psgix.compress-only-text/html"} = 1 if $ua =~ m!^Mozilla/4!; # Netscape 4.06-4.08 have some more problems $env->{"psgix.no-compress"} = 1 if $ua =~ m!^Mozilla/4.0[678]!; # MSIE (7|8) masquerades as Netscape, but it is fine if ( $ua =~ m!MSIE (?:7|8)! ) { $env->{"psgix.no-compress"} = 0; $env->{"psgix.compress-only-text/html"} = 0; } $app->($env); } }; enable "Deflater", content_type => ['text/css','text/html','text/javascript','application/javascript'], vary_user_agent => 1; sub { [200,['Content-Type','text/html'],["OK"]] } }; DESCRIPTION
Plack::Middleware::Deflater is a middleware to encode your response body in gzip or deflate, based on "Accept-Encoding" HTTP request header. It would save the bandwidth a little bit but should increase the Plack server load, so ideally you should handle this on the frontend reverse proxy servers. This middleware removes "Content-Length" and streams encoded content, which means the server should support HTTP/1.1 chunked response or downgrade to HTTP/1.0 and closes the connection. CONFIGURATIONS
content_type content_type => 'text/html', content_type => [ 'text/html', 'text/css', 'text/javascript', 'application/javascript', 'application/x-javascript' ] Content-Type header to apply deflater. if content-type is not defined, Deflater will try to deflate all contents. vary_user_agent vary_user_agent => 1 Add "User-Agent" to Vary header. ENVIRONMENT VALUE
psgix.no-compress Do not apply deflater psgix.compress-only-text/html Apply deflater only if content_type is "text/html" LICENSE
This software is licensed under the same terms as Perl itself. AUTHOR
Tatsuhiko Miyagawa SEE ALSO
Plack, <http://httpd.apache.org/docs/2.2/en/mod/mod_deflate.html> perl v5.14.2 2012-06-18 Plack::Middleware::Deflater(3pm)
All times are GMT -4. The time now is 07:39 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy