Category Archives: Murmuring

Just Murmuring :)

Computer, Murmuring, Network

自動轉貼圖片

1 Comment

用 Perl 寫了一支小程式，用 WWW::Mechanize 把某個 url 抓下來再貼到 ImageVenue 上：

#!/usr/bin/perl

use File::Basename;
use Getopt::Std;
use WWW::Mechanize;
use strict;

my %opt;
getopts('dp:', \%opt);

my $debug = 0;
$debug = 1 if (defined($opt{'d'}));

my $proxy;
if (defined($opt{'p'}))
{
  $proxy = $opt{'p'};
}
elsif (defined($ENV{'http_proxy'}))
{
  $proxy = $ENV{'http_proxy'};
}

my $url = shift() or die();

chdir('/tmp');
&main();

sub main
{
  my $outfile = sprintf('%s', basename($url));
  print('* Filename: ', $outfile, "\n");

  # Get
  my $agent = WWW::Mechanize->new();
  $agent->proxy($proxy) if ($proxy ne '');
  $agent->get($url);

  my $content = $agent->content();

  open(O, '> ' . $outfile);
  print(O $content);
  close(O);

  print('* Filesize: ', length($content), "\n");

  # then upload
  $agent->get('http://www.imagevenue.com/');
  $agent->form_number(1);
  $agent->field('file1', $outfile);
  $agent->submit();

  print($agent->content()) if ($debug);

  # tell me the url
  $agent->form_name('form8');
  my $imgurl = $agent->value('select');
  chomp($imgurl);
  $imgurl =~ s/\s+//g;

  print('* Output URL: ', $imgurl, "\n");

  # delete temp file
  unlink($outfile);
}
Browser, Computer, Murmuring, Network, Security

IE 7.0

大家本來就預期 Microsoft 會在今年的 RSA Conference 2005 上發表一些東西，只是沒想到今天早上在 randomlog 看到的新聞會是這個：

At RSA Conference 2005, Microsoft Chairman and Chief Software Architect Bill Gates announces Internet Explorer 7.0, designed to add new levels of security to Windows XP Service Pack 2. Feb. 15, 2005, San Francisco.

在這邊有 Microsoft 網站上的說明：Gates Highlights Progress on Security, Outlines Next Steps for Continued Innovation，在 MozillaZine 上也有一些消息：Microsoft Internet Explorer 7.0 Beta Due This Summer。

另外，IE 7.0 將主力放在 Windows XP 及 Longhorn 上，Windows 2000 不在正式 support (但是依據文章內容，會佔 5% 的比率？)，而 Windows 95/98/ME 則是完全不支援。