From e5f633819f7671ea3022c725f529b31bc401eb88 Mon Sep 17 00:00:00 2001 From: Kilian Saffran Date: Fri, 8 Mar 2019 17:32:35 +0100 Subject: [PATCH] auto commit on 2019-03-08 17:32 --- bin/{createpdf.pl => createpdfA4invoice.pl} | 0 bin/createpdfcashbox.pl | 268 ++++++++++++++++++++ bin/githelper.pl | 46 ++++ bin/pdfcashbox.pdf | Bin 0 -> 7730 bytes 4 files changed, 314 insertions(+) rename bin/{createpdf.pl => createpdfA4invoice.pl} (100%) create mode 100644 bin/createpdfcashbox.pl create mode 100644 bin/githelper.pl create mode 100644 bin/pdfcashbox.pdf diff --git a/bin/createpdf.pl b/bin/createpdfA4invoice.pl similarity index 100% rename from bin/createpdf.pl rename to bin/createpdfA4invoice.pl diff --git a/bin/createpdfcashbox.pl b/bin/createpdfcashbox.pl new file mode 100644 index 0000000..cbd53a0 --- /dev/null +++ b/bin/createpdfcashbox.pl @@ -0,0 +1,268 @@ +#!/usr/bin/env perl + +use strict; +use PDF::API2; +use PDF::Table; +#use Image::Size; +use utf8; +use Encode; +use Data::Dumper; +my $pdf = PDF::API2->new(); +# +# use constant mm => 25.4 / 72; +# use constant in => 1 / 72; +# use constant pt => 1; + +$pdf->preferences({-fitwindow => 1}); +my $fntbold = $pdf->corefont('Helvetica-Bold'); +my $fnt = $pdf->corefont('Helvetica'); +# +my $page = $pdf->page(); +my $x=220; +my $y=500; +$page->mediabox($x,$y); +# $page->mediabox(220,284); +#height: 284 +#width: 220 +#header +my $paperhead = $page->text(); +$y=$y-10; +$paperhead->translate(110, $y); +$paperhead->font($fntbold,10); +$paperhead->text_center('Hand and Hand fir Afrika'); +$y=$y-12; +$paperhead->translate(110, $y); +$paperhead->text_center('Beetebuerg'); +$y=$y-12; +$paperhead->translate(110, $y); +$paperhead->text_center('Divers Day Hellange 2019'); +$paperhead->font($fnt,10); +$y=$y-14; +$paperhead->translate(20, $y); +$paperhead->text("Commande:\t0001"); +$y=$y-12; +$paperhead->translate(20, $y); +$paperhead->text("Table:\t14"); +$y=$y-12; +$paperhead->translate(20, $y); +$paperhead->text("10 Bières 2,80 €"); +$y = $y-12; +$paperhead->translate(20, $y); +$paperhead->text("9 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("8 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("7 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("6 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("5Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("4 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("3 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("2 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("1 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("0 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("8 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("7 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("6 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("5Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("4 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("3 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("2 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("1 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("0 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("8 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("7 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("6 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("5Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("4 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("3 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("2 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("1 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("0 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("8 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("7 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("6 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("5Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("4 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("3 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("2 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("1 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("0 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("8 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("7 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("6 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("5Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("4 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("3 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("2 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("1 Bières 2,80 €"); +$y= $y-12; +$paperhead->translate(20, $y); +$paperhead->text("0 Bières 2,80 €"); +$pdf->saveas('pdfcashbox.pdf'); +$pdf->end; + +# $gfx->translate(-$x,-$y); +# my $red_line = $page->gfx(); +# $red_line->strokecolor('black'); +# $red_line->linewidth(1); +# $red_line->move( 50, 753 ); +# $red_line->line( 285, 753 ); +# $red_line->stroke; +# my $dkstext = $page->text(); +# $dkstext->translate(200, 743); +# $dkstext->font($fnt,9); +# $dkstext->text_center('Database Knowledge Solutions - Simplify IT!'); + + +# my $adr_line = $page->gfx(); +# $adr_line->strokecolor('black'); +# $adr_line->linewidth(1); +# $adr_line->move( 52, 662 ); +# $adr_line->line( 280, 662 ); +# $adr_line->stroke; +# $x=550; +# $y = 820; +# my $fz=11; +# my $txt = $page->text(); +# $txt->font($fntbold,$fz); +# $txt->translate($x, $y); +# $txt->text_right('DKS s.à r.l.'); +# $txt->font($fnt,$fz); +# $y = $y -$fz-3; +# $txt->translate($x, $y); +# $txt->text_right("8b, rue du Moulin"); +# $y = $y -$fz-3; +# $txt->translate($x, $y); +# $txt->text_right("6914 Roodt/Syre"); +# $y = $y - (2*($fz+3)); +# $txt->translate($x, $y); +# $txt->text_right("Tel: +352 691 504574"); +# $y = $y -$fz-3; +# $txt->translate($x, $y); +# $txt->text_right("info\@dks.lu / www.dks.lu"); +# # +# $y = $y - (4*($fz+3)); +# $txt->translate($x, $y); +# $txt->font($fntbold,30); +# $txt->text_right("Rechnung"); + +# my $pdftbladdress = new PDF::Table; +# my $inv_data3 = [ ["An:"], ["Kilian Saffran"], ["4, rue Principale"], ["L-3770 Tétange"] ]; + +# my $tbl_props3 = { x => 50, w => 230, font => $fnt, font_size => $fz, start_y => 680, start_h => 620, next_y => 750, next_h => 500, padding => 2, padding_bottom => 3, padding_top => 3, padding_right => 5, column_props => [{ min_w => 200, max_w => 200, justify => 'left' }], header_props => [{ font_size => $fz, font => $fntbold, bg_color => 'white', font_color => 'black', repeat => 1, justify => 'left' }], border => 0 }; +# my ($lastpage, $tblpages, $final_y) = $pdftbladdress->table($pdf,$page,$inv_data3,%{$tbl_props3}); + +# print $lastpage." - ".$tblpages." - ".$final_y."\n"; + +# my $pdftblinvdata = new PDF::Table; + +# my $inv_data = [ ["Rechnungs-Nr.","00000000-0000"], ["Datum","00.00.0000"], ["Fälligkeit","00.00.0000"], ["Kunden-Nr.","00000000"], ["Ust-Id","LU 0000 0000"] ]; + +# my $tbl_props2 = {x => 390, w => 175, font => $fnt, font_size => $fz, start_y => 680, start_h => 620, next_y => 750, next_h => 500, padding => 2, padding_bottom => 3, padding_top => 3, padding_right => 5, column_props => [ { min_w => 70, max_w => 70, justify => 'left' }, { min_w => 90, max_w => 90, justify => 'left', font => $fntbold } ], border => 0}; +# ($lastpage, $tblpages, $final_y) = $pdftblinvdata->table( $pdf, $page, $inv_data, %{$tbl_props2} ); +# print $lastpage." - ".$tblpages." - ".$final_y."\n"; +# #print Dumper($tbl_props2); +# my $pdftable = new PDF::Table; + +# my $some_data =[ ["Product / Dienstleistung", "Anzahl","EinzelPreis","Netto-Preis"], ["Computer Installation Donec super long text goes here to provoke a text block Donec super long text goes here to provoke a text block Donec super long text goes here to provoke a text block", "1 Stunde","55,00 €","55,00 €"], ["Computer Installation", "1 Stunde","55,00 €","55,00 €"], ["Computer Installation", "1 Stunde","55,00 €","55,00 €"] ]; +# my $tbl_propsm = {x => 50, w => 500, font => $fnt, font_size => $fz, start_y => 570, start_h => 300, next_y => 750, next_h => 500, padding => 2, padding_left => 5, padding_bottom => 10, padding_top => 5, padding_right => 5, header_props => { font_size => $fz, font => $fntbold, bg_color => '#e6e6e6', font_color => 'black', repeat => 1, justify => 'center' }, column_props => [ { }, { min_w => 40, max_w => 40, justify => 'right' }, { min_w => 20, max_w => 20, justify => 'right' }, { min_w => 50, max_w => 50, justify => 'right', font => $fnt } ], border => 0.5}; + +# ($lastpage, $tblpages, $final_y) = $pdftable->table( $pdf, $page, $some_data, %{$tbl_propsm} ); +# print $lastpage." - ".$tblpages." - ".$final_y."\n"; + +# my $pdftotalsum = new PDF::Table; +# my $total_data = [ ["Gesamt Netto :","165,00 €"], ["MwSt. (17%) :","28,05 €"], ["Gesamt Brutto :","193,05 €"] ]; +# my $tbl_props4 = {x => 349.5, w => 201, font => $fnt, font_size => $fz, start_y => $final_y, start_h => 150, next_y => 750, next_h => 500, padding => 2, padding_left => 5, padding_bottom => 10, padding_top => 5, padding_right => 5, column_props => [ { justify => 'right' }, { min_w => 70, max_w => 70, justify => 'right', font => $fntbold } ], border => 0.5}; + +# ($lastpage, $tblpages, $final_y) = $pdftotalsum->table( $pdf, $page, $total_data, %{$tbl_props4} ); +# print $lastpage." - ".$tblpages." - ".$final_y."\n"; + + + + diff --git a/bin/githelper.pl b/bin/githelper.pl new file mode 100644 index 0000000..c76c650 --- /dev/null +++ b/bin/githelper.pl @@ -0,0 +1,46 @@ +#!C:\Strawberry\perl\bin\perl.exe + +use strict; +use File::Basename; +use File::Find::Rule; +use Data::Dumper; +use POSIX qw (strftime); +my $wksp = $ENV{HOME}.'/Workspace'; +if ($^O eq "MSWin32"){ + $wksp = $ENV{USERPROFILE}.'/Workspace'; + $wksp =~ s/\\/\//g; +} +#print $wksp."\n"; +#print ."\n"; + +my $ff = File::Find::Rule->new(); +$ff->name(".git"); +$ff->directory; +my @rep = $ff->in($wksp); +foreach my $r (@rep){ + chdir(dirname($r)); + my $ret = `git status`; + if ($ret =~ /nothing to commit, working tree clean/){ + print "repository ".basename(dirname($r))." OK!\n"; + next; + } elsif (($ret =~ /Changes not staged for commit/) || ($ret =~ /Untracked files/)){ + print "repository ".basename(dirname($r))." changes to add,commit and push!\n"; + my $add = `git add -A`; + print "Data Added:".$add."\n"; + my $msg = "auto commit on ".strftime("%Y-%m-%d %H:%M",localtime()); + my $commit = `git commit -m "$msg"`; + print "Data Commited:".$commit."\n"; + my $push = `git push`; + if ($push =~ /\!\s\[rejected\]/){ + my $pull = `git pull`; + print "Data pulled:".$pull."\n"; + $push = `git push`; + print "Data pushed:".$push."\n"; + } + $ret = `git status`; + print $ret."\n---\n"; + } + + #print $ret."\n---\n"; +} +print Dumper(@rep); \ No newline at end of file diff --git a/bin/pdfcashbox.pdf b/bin/pdfcashbox.pdf new file mode 100644 index 0000000000000000000000000000000000000000..aedc815e29834c05689ef66a8a227fe7b40213b1 GIT binary patch literal 7730 zcmeHM3yf7q8D46w<(kwjk!oVqArS)_nESrFh?ISn?e4Od-7e44_S|!4?;be!p38ac z?uDqB+C*cT*6^^VHCk;eg=(T$ih#u^vWiws0b5EFn?@5`V?+UKno#}zIWza3fg8*@7S;yx%EeH0+7xPDOz{mISXs##dTmT)25xj0jg$OyNo9KdzvQiS% z;6>k>SKf8ZA>o6N!wWE2Ou)9DGMKlkzC-mrY<)zb^i(Frz!WZ<2Of(SwdH$~EV(eA zO0jkQL#wPxD!G1sgftT&4ISL=zy>}P6nyD#0>Ywp!xQ1mGGUJi-!hE_?T%e!ysKh5 zMfg9mMs<)RYkWa`Tg9^)fKF?qz6$H0313)o{Gu3{9$di*Uez!W&|<>0jWXk#0>>A{ zg3Wj(C>Mn5S)~f&MaQ-cm+`7V$kAdNWeh!|g4L1~o=g`Y7{~xyi~vOrU8^)o=$KtHU$QZD!IadDx|gWe2Y*G=+}mDM6xm7iRfb- znQ}Yh%a9q2-+|m?ypQpI#+NfbfJ|b11riVujfBFUfDM50RgAA@d=2Ak885hoxl#C` z8wwaJyA-_c6VtLx%QXYIJ*X7nPt$Q>LdiAAMEIuwd*FO%54$k|k1=jBzJYPL66Sys z7QjVSSj0H&f~l}4V0?`6amL}L8XOwxB(z4rBVFKiwK~wmw`|(s3fQu+Veqbi)swwyK^56^cfwL|zVi8BU?4BesA_SZ{yS3BvdpG7Xp3p%hrQ z45LuXfv$%5wF*V6qkAbnM3+NlkJc(O0~OSyrp3-HgH4pfUfJ)vMp2Xv7yk7wR!nhl zB5vBOaMlzp?ETXADG60{#$j5RGn4~1ZEM^NT>3+Sm8nqx7hGqfs1zu{JYj}W+2Ch7 z)tZ*<7Do`+VWgA4Y*BVpoZ&ARc2FC;T_dktQL;#?KnRr$Q@Xh*kOQ!Q5)rH@8#L2a zP)@os8$mW|*a&ecU4fyQ&eG70Z7MU`lu~Wcm}*lC*w*k|8)6jRZtFs7*EQ@?Ou7`4 zt|*hP262zV>rr?;QM{f8UY8GlELXw@6w!bp8i*1NXru;lIk0`JY9kN^)E+UcI1DQe z!%+^y4azlY{?1XyrQ{KA8M|@8hSO+~i5sHb3 zGQn!=XtxxerSQ~_7UsFtz!T)AiW2T9B1aK9QRa?DY7iH#F^e`QM>#1_^ns!eqVz$7 zuBPU(*^rZJ^%;58;oX+&`5mLkyHpZeJpM?@k7Oo;6*bBbxJ%IhDB9330 zkQ9*svZDS$BqWAx1>X@!N>gQKJU3JLn|52TFY?)Q3TRSR`UPOB0-wyw>-_4T@Z*&&s-?N!-v$(-hkK3aCrql|uW312+IccTuxd*F(U?h0CfG6*8xkGm72-I)L^j(^Ey z7-*Qu)781J-;^5fJM>T`-$`h2nF|SeZyBVSOEwKEhX(0ohF|?VP~$y`RM*yZTQ=R- z;W??>#yxtcz(b87v-(7(gd3hT0veQ_k8AdFY~s-eb`JC&i8ufB@UdGz{{F9irT>K! zr^jaB^6M=_@0q=~chf(Yu6iebZSuVNaPY|11M!ae?|p00&$k>tGjHj^CiWx$=H@vs z-C%t8v%jd><9o;6YWvj+7JKyWZ{>RTzvF$2J2HRSH&EUGnGfx}&~*F{zqxI^bf)Qx zr+=6FQ}yB6yYBkLp=$n_#B)a`Uu=1L`BOi1=xGC&8OHo!x);`03&6 zyEhzlj<0;t*}Lz;;ggGZ9M4ZqK6cW6_SEAaoZPdeZ_k_;zP8}jBe&fC*KcgO>%%*W z1Am-2H~hr;m*3v_`7N)W-Fl|h-uulxyKjDC^mgl^$G3g-^zJU}XHOoQcmC9uw{2f| z@O!W2A6ehu`T9o=7FHZPHTw&Lzx+<;>Q^Qf%(!V~@79gKoptYncU))Rx3g*B(9Wj4 zCuiMTSTLje#H_D3fB*Vje_wmu@4vmXX~&Nrx-oCP`%4%!&&gGWBb15 zvs}zMde5=;zQg|gtCv2#VMW!MO-!|+!?&ap}zmdN7SkbWYtWEx?95iAvNy%d&3oK3|`WwLn7oC?e4GMC86 zw&oD&8V?uvmMz>EWlK+G#9{Q5iToIJa5GMizZef$n+0n{q{ciSH_+1F9Io+VbLVyq HbjSV$*7Q52 literal 0 HcmV?d00001 -- 2.39.5