first commit

entsorgung.pl

@@ -0,0 +1,58 @@
+use Mojo::UserAgent;
+use Data::Printer;
+use Getopt::Long;
+use File::Slurp;
+
+my $rest = 1; # Restmülltonne
+my $gelb = 1; # 14-täglich Gelber Sack
+my $papier = 1; # 14-täglich Papiertonne (EGVG mbH)
+my $schadstoff = ''; # Schadstoffsammlung
+my $baum = ''; # Weihnachtsbaumabholung
+my $kreis = 'U';
+my $monat = (1 + (localtime)[4]);
+my $tag = ((localtime)[3]);
+my $ort = 191;
+my $year = (1900 + (localtime)[5]);
+my $gesendet = 'Termine+herunterladen';
+
+GetOptions(
+    'rest=s' => \$rest,
+    'gelb=s' => \$gelb,
+    'papier=s' => \$papier,
+    'schadstoff=s' => \$schadstoff,
+    'baum=s' => \$baum,
+    'kreis=s' => \$kreis,
+    'monat=i' => \$monat,
+    'ort=i' => \$ort,
+    'year=i' => \$year,
+) or die "Usage: $0 --debug  --from NAME\n";
+
+if ( $monat == 12 and $tag == 30 ) {
+    $year = $year + 1;
+    $monat = 1;
+}
+
+#p $year;
+
+my $ua = Mojo::UserAgent->new;
+#          https://www.vevg-karlsburg.de/abfallkalender/ical_uhgw_get_utf8.php?ical_1=1    &ical_11=&ical_2=1    &ical_12=&ical_3=1      &ical_4=           &ical_5=1    &ical_6=&gesendet=Termine+herunterladen&ical_ort=191&ical_kreis=H&ical_monat=12&ical_year=2024
+my $url = "https://www.vevg-karlsburg.de/abfallkalender/ical_uhgw_get_utf8.php?ical_1=$rest&ical_11=&ical_2=$gelb&ical_12=&ical_3=$papier&ical_4=$schadstoff&ical_5=$baum&ical_6=&gesendet=$gesendet&ical_ort=$ort&ical_kreis=$kreis&ical_monat=$monat&ical_year=$year";
+my $ics = $ua->get( $url )->result->body;
+
+my $note = q|BEGIN:VALARM
+TRIGGER:-PT11H
+ACTION:DISPLAY
+END:VALARM
+END:VEVENT|;
+
+$ics =~ s/END\:VEVENT/$note/g;
+$ics =~ s/am Straßenrand zur Leerung bereitstellen//g;
+$ics =~ s/ \(EGVG mbH\)//g;
+$ics =~ s/VEVG mbH //g;
+$ics =~ s/SUMMARY:Leerung der /SUMMARY:/g;
+$ics =~ s/tonne//g;
+#$ics =~ s/ \(Entsorgungsbereich Stadt Greifswald\) Holunderweg  \\n//g;
+$ics =~ s/DESCRIPTION:(.*\\n )/DESCRIPTION:/g;
+
+#write_file("/usr/share/hassio/homeassistant/www/entsorgung/holunderweg.ics", $ics);
+write_file("entsorgung-holunderweg.ics", $ics);