Ubuntu中文论坛

代码： 全选

***   HTTP::Message content must be bytes at /usr/share/perl5/HTTP/Request/Common.pm line 91

代码： 全选

#!/usr/bin/perl

use utf8;	# 文件路径才可以使用中文。
use Gtk2 -init;
use Gtk2::GladeXML;
use File::Basename qw/basename dirname/;
#----------------------------------
$user="eexp";	#改自己的昵称
%web=(
	"http://www.cjb.net/"=>{"image"=>"____"},
	"http://kimag.es/"=>{"userfile1"=>"____"},
	"http://imagebin.org/index.php?page=add"=>{"nickname"=>$user,"image"=>"____","disclaimer_agree"=>"Y"},
	"http://paste.ubuntu.org.cn/"=>{"poster"=>$user,"screenshot"=>"____","code2"=>join("\n",`xsel -o`)},	#submit名不对
#        "http://tinypic.com/"=>{"the_file"=>$ARGV[0]},	#Error GETing http://tinypic.com/ 需要图片校验 nnnnnd
#        "http://uploadpie.com/"=>{"uploadedfile"=>$ARGV[0]},	#需要读取结果网页，估计还要模拟同一浏览器
#        "http://imgur.com/"=>{'file[]'=>$ARGV[0]},	#无法提交
	);
#----------------------------------
chdir dirname (-l $0?readlink $0:$0);
$path=`pwd`; chomp $path;
$app="paste_img";
my $gui = Gtk2::GladeXML->new("$app.glade");
$gui->signal_autoconnect_from_package('main');
#----------------------------------
$select="imagebin";
$box2 = $gui->get_widget('vbox2');
$button = Gtk2::RadioButton->new(undef, "null");
@group = $button->get_group;
foreach (keys %web){
s'http://'';s'/.*'';
$button = Gtk2::RadioButton->new_with_label(@group, "$_");
$button->signal_connect('toggled'=>\&radio_clicked);
$button->set_active(TRUE) if /$select/;
$box2->pack_start($button, TRUE, TRUE, 0);
$button->show;
}
#----------------------------------
$gui->get_widget(filechooserbutton2)->set_filename("$app.png");
$gui->get_widget('preview')->drag_dest_set('all', ["link","ask"], {target=>'STRING', flags=>['other-app','other-widget'], info=>0});
Gtk2->main;

#========================子程序============================
sub on_preview_drag_data_received{
        my ($tolist, $context, $x, $y, $data, $info, $time, $fromlist) = @_;
	$_=$data->get_text(); 
#        s'^file://'';
#        $gui->get_widget(filechooserbutton2)->set_filename($_);
#        $gui->get_widget('preview')->set_from_file($_);
	$context->finish(1, 0, $time);
	return 0;
}
#----------------------------------
sub radio_clicked{
$_=shift;
$select=$_->get_label;
}
#----------------------------------
sub on_mainwindow_destroy{
Gtk2->main_quit;
}
#----------------------------------
sub on_filechooserbutton2_selection_changed{
$gui->get_widget('preview')->set_from_file($gui->get_widget('filechooserbutton2')->get_filename());
}
#----------------------------------
sub info{
$_=shift;
$pp="$path/$app.png";	# 傻notify要全路径的图片，还不如stock图标。
$bus->Notify("paste-img", 0, $pp, '贴图', "$_", [], { }, -1);
print "=>\t$_\n";
$gui->get_widget('statusbar1')->push(0,"$_");
}
#----------------------------------
sub on_bpaste_clicked{
use WWW::Mechanize;
use Net::DBus; 
use Encode;

$bus = Net::DBus->session->get_service('org.freedesktop.Notifications')
->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
my $add;
foreach (keys %web){$add=$_,last if /$select/;}
if(!$add){info("无效网站地址 $add($select)");exit;}
print "\e[31;42m$select\e[0m => $add\n";

$pic=$gui->get_widget(filechooserbutton2)->get_filename();
#$pic='/home/eexp/下载/26.png';
#$pic=$ARGV[0];
$pic=encode("utf8",$pic);
%h=%{$web{$add}};
foreach (keys %h){ $h{$_}=$pic,last if $h{$_}=~/____/; }
while(my($k,$v)=each %h){print "$k => .$v.\n";}

my $mech = WWW::Mechanize->new();
$mech->get($add);
if($add!~/ubuntu/) {$mech -> submit_form(with_fields=>\%h);}
else{$mech -> submit_form(with_fields=>\%h,button=>"paste");}
#======================
if ($mech->success()) {
	my $rr=$mech->uri();
	info("贴图地址: $rr");
	`echo $rr|xsel -i`;
} else {
	info("贴图失败: ".$mech->status());
}
#======================
}