Test http pl: Revision history

From Federal Burro of Information
Jump to navigationJump to search

Diff selection: Mark the radio buttons of the revisions to compare and hit enter or the button at the bottom.
Legend: (cur) = difference with latest revision, (prev) = difference with preceding revision, m = minor edit.

26 February 2023

  • curprev 18:3718:37, 26 February 2023David talk contribs 1,037 bytes +1,037 Created page with " test_http.pl <pre> #!/usr/bin/perl -w # $Author: staradm $ # $Date: 2006/03/28 14:07:00 $ # $Id: test_http.pl,v 1.3 2006/03/28 14:07:00 staradm Exp $ # $Name: $ # $Revision: 1.3 $ # $State: Exp $ use strict; require HTTP::Request; require LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->credentials( '192.168.1.30:443', 'Restricted Files', 'staradm' => 'XXX' ); my ( $sec, $min, $hour, $day, $month, $year ) = ( localtime ) [ 0, 1, 2, 3, 4, 5 ]; # my..."