Wiki Paster - Versionsgeschichte

Stella am 15. August 2009 um 10:11 Uhr

2009-08-15T10:11:01Z

Stella am 15. August 2009 um 10:10 Uhr

2009-08-15T10:10:43Z

Stella am 15. August 2009 um 10:05 Uhr

2009-08-15T10:05:06Z

Stella am 15. August 2009 um 10:02 Uhr

2009-08-15T10:02:49Z

Stella am 15. August 2009 um 10:02 Uhr

2009-08-15T10:02:10Z

Stella: Die Seite wurde neu angelegt: Das ist nur ein Test.

2009-08-15T09:55:39Z

Die Seite wurde neu angelegt: <source lang="text">Das ist nur ein Test.</source>

Neue Seite

← Nächstältere Version		Version vom 15. August 2009, 10:11 Uhr
Zeile 91:		Zeile 91:
	) or die;		) or die;
	</source>		</source>
		+
		+	[[Kategorie:Snippet]]

@@ Zeile 1: / Zeile 1: @@
 <source lang="perl">#! /usr/bin/perl -w
 use strict;
@@ Zeile 82: / Zeile 86: @@
 $mech->submit_form (
      form_name => 'editform',
-     fields => { wpTextbox1 => "<source lang=\"$filetype\">$content</source>",
+    # hmmm, we've got to hide the closing source-tag from the wiki itself *g*
      	wpMinoredit => $minor },
 ) or die;
 </source>

← Nächstältere Version		Version vom 15. August 2009, 10:05 Uhr
Zeile 1:		Zeile 1:
−	<source lang="~~text~~">~~Today is Boomtime~~, the ~~8th day~~ of ~~Bureaucracy~~ in ~~the YOLD 3175~~	+	<source lang="perl">#! /usr/bin/perl -w
		+	use strict;
		+	use LWP;
		+	use WWW::Mechanize;
		+	use POSIX qw/localtime/;
		+
		+	###############################################################################
		+	# User Configuration
		+
		+	my $site = "http://brokenpipe.de/index.php";
		+	my $login_site = "$site/Spezial:Anmelden";
		+	my $wp_username = "Stella";
		+	my $wp_password = "keineahnung";
		+
		+	###############################################################################
		+
		+	my $minor = "off";
		+	if(scalar(@ARGV) && $ARGV[0] eq '--minor') {
		+	$minor = "on";
		+	shift @ARGV
		+	}
		+
		+	if(scalar(@ARGV) != 2) {
		+	print STDERR "Usage: wiki-paste [--minor] PAGENAME FILETYPE\n\n";
		+	exit 1;
		+	}
		+
		+	my ($pagename, $filetype) = @ARGV;
		+	my $editurl = "$site?title=$pagename&action=edit";
		+
		+	my $content;
		+	while (<STDIN>) { $content .= $_ }
		+
		+	# Use Log::TraceMessages if installed.
		+	BEGIN {
		+	eval { require Log::TraceMessages };
		+	if ($@) {
		+	print "Log::TraceMessages not available\n";
		+	*t = sub {};
		+	*d = sub { '' };
		+	}
		+	else {
		+	print "Using Log::TraceMessages\n";
		+	$Log::TraceMessages::On = 1;
		+	*t = \&Log::TraceMessages::t;
		+	*d = \&Log::TraceMessages::d;
		+	}
		+	}
		+
		+	use LWP::UserAgent;
		+	my $ua = LWP::UserAgent->new;
		+	$ua->env_proxy;
		+
		+	my $mech = WWW::Mechanize->new();
		+	$mech->env_proxy;
		+
		+	# we'll be presented a 301-Redirect after issuing POST request.
		+	# WWW::Mechanize won't do what we'd expect, so just remove 'POST'
		+	# from the redirectable requests list ...
		+	@{ $mech->requests_redirectable } = ( "GET", "HEAD" );
		+
		+	$mech->get($login_site) or die;
		+
		+	t "trying to log in";
		+	$mech->submit_form (
		+	form_name => 'userlogin',
		+	fields => { wpName => $wp_username, wpPassword => $wp_password },
		+	) or die;
		+
		+	t "HTTP-Code returned on Login-POST: " . $mech->status();
		+
		+	t "Getting Edit-Page of $pagename ...";
		+	$mech->get($editurl) or die;
		+
		+	die "HTTP-request failed, stop"
		+	unless ($mech->success ());
		+
		+	die "seems like we failed to log in, there's no edit textbox"
		+	unless ($mech->content() =~ m/<textarea/);
		+
		+	t "Submitting content now...";
		+	$mech->submit_form (
		+	form_name => 'editform',
		+	fields => { wpTextbox1 => "<source lang=\"$filetype\">$content</source>",
		+	wpMinoredit => $minor },
		+	) or die;
	</source>		</source>

← Nächstältere Version		Version vom 15. August 2009, 10:02 Uhr
Zeile 1:		Zeile 1:
−	<source lang="text"></source>	+	<source lang="text">Today is Boomtime, the 8th day of Bureaucracy in the YOLD 3175
		+	</source>

← Nächstältere Version		Version vom 15. August 2009, 10:02 Uhr
Zeile 1:		Zeile 1:
−	<source lang="text">~~Das ist nur ein Test.~~</source>	+	<source lang="text"></source>