S2 Patch Assist Script

[jeshyr]

Right before my brain got refried by this stupid disease I was working on a script to turn the theme layers copied from DW itself into the right format to paste into the s2 code in the sourcecode. I was doing it as I learned how so it's only been tested on about 5 different situations at the moment and I'm quite sure it doesn't do everything so check all output please!!

And yes, my brain got fried (again) by this stupid disability so I'm on indefinite leave from developing for the mean time - and VERY disappointed about it.

At the moment you want to pipe the theme layer through STDIN to the script, so something like

$ ./newtheme.pl NewThemeName Rising "Tabula Rasa" yes < ~/file-with-theme-layer.txt

it will tell you what file it writes the output to, it will be something in $LJHOME/temp/

Script

#!/usr/bin/perl # # my ( $theme_human, $author_name, $layout_human, $is_nonfree ) = @ARGV; sub diehelp { warn "Syntax: newtheme ThemeName AuthorName LayoutName IsNonfree"; exit; } if ( !$theme_human ) { warn "No theme name provided."; diehelp; } if ( !$layout_human ) { warn "No layout name provided."; diehelp; } ( $layout_name = lc ( $layout_human ) ) =~ s/\s//g; ( $theme_name = lc ( $theme_human ) ) =~ s/\s//g; my ( @dropped, @css, @set, $in_css ); while ( <STDIN> ) { my $line = $_; if ( $in_css ) { if ( $line =~ m/"""; }/ ) { $in_css = 0; next; } push( @css, $line ); } elsif ( $line =~ m/function Page::print_theme_stylesheet/ ) { $in_css = 1; } elsif ( /^\.$/ ) { break; } else { next unless $line; if ( $line =~ m/^layerinfo / ) { push( @dropped, $line ); next; } push( @set, $line ); } } # process @set lines my ( @unknown, @presentation, @page, @entries, @modules, @fonts ); foreach ( @set ) { if ( /userlite_interaction_links = / || /_management_links = / || /module.*order/ || /module.*show/ ) { push( @dropped, $_ ); } elsif ( /font/ ) { push( @fonts, $_ ); } elsif ( /module/ ) { push( @modules, $_ ); } elsif ( /entry/ ) { push( @entries, $_ ); } elsif ( /comment/ ) { push( @entries, $_ ); } elsif ( /links/ ) { push( @presentation, $_ ); } elsif ( /color/ ) { push( @page, $_ ); } else { push( @unknown ); } } my $filename = "$ENV{LJHOME}/temp/$layout_name-$theme_name.s2"; open TMP_FILE, "> $filename"; print TMP_FILE <<"EOT"; #NEWLAYER: $layout_name/$theme_name layerinfo "type" = "theme"; layerinfo "name" = "$theme_human"; layerinfo "redist_uniq" = "$layout_name/$theme_name"; layerinfo "author_name" = "$author_name"; set layout_authors = [ { "name" => "$author_name", "type" => "user" } ]; EOT # print @set lines sub print_section { my ( $name, @lines ) = @_; if (@lines) { print TMP_FILE<<"EOT"; ##=============================== ## $name ##=============================== EOT foreach ( @lines ) { print TMP_FILE $_; } } } print_section( "Presentation", @presentation ); print_section( "Page", @page ); print_section( "Entry", @entries ); print_section( "Module", @module ); print_section( "Fonts", @fonts ); if ( @css ) { print TMP_FILE "\n"; print TMP_FILE 'function Page::print_theme_stylesheet() { """' . "\n"; foreach ( @css ) { print TMP_FILE " " . $_; } print TMP_FILE '"""; }' . "\n"; } print_section( "Unknown - DELETE THIS SECTION after reclassifying lines", @unknown ); print_section( "Dropped - DELETE THIS SECTION after verifying none of it is needed", @dropped ); print TMP_FILE "\n"; close TMP_FILE; print "Parsed theme now saved in file: $filename\n"; print "This new text needs to be put into the existing file named:\n"; print "$ENV{LJHOME}/bin/upgrading/s2layers/$theme_name/theme.s2\n\n"; print "Theme also needs a preview screenshot. Resize to 150x114px and put in:\n"; print "$ENV{LJHOME}/htdocs/img/customize/previews/$theme_name/$layout_name.png\n\n";

Feedback, cases that break it, improvements, etc. would all be great.

r

Edit: Now with super bonus functioning HTML tags!