From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tim FitzGeorge To: development@lists.ipfire.org Subject: [PATCH 03/12] statusmail: WUI Date: Fri, 05 Apr 2019 18:29:31 +0100 Message-ID: <20190405172940.13168-4-ipfr@tfitzgeorge.me.uk> In-Reply-To: <20190405172940.13168-1-ipfr@tfitzgeorge.me.uk> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============8605525281175496149==" List-Id: --===============8605525281175496149== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable CGI script for statusmail WUI and icon for 'Execute now'. Signed-off-by: Tim FitzGeorge --- html/cgi-bin/statusmail.cgi | 1687 +++++++++++++++++++++++++++++++++++++++++= ++ html/html/images/play.png | Bin 0 -> 182 bytes 2 files changed, 1687 insertions(+) create mode 100755 html/cgi-bin/statusmail.cgi create mode 100644 html/html/images/play.png diff --git a/html/cgi-bin/statusmail.cgi b/html/cgi-bin/statusmail.cgi new file mode 100755 index 000000000..52b72d0ac --- /dev/null +++ b/html/cgi-bin/statusmail.cgi @@ -0,0 +1,1687 @@ +#!/usr/bin/perl + +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# = # +# This program is free software: you can redistribute it and/or modify = # +# it under the terms of the GNU General Public License as published by = # +# the Free Software Foundation, either version 3 of the License, or = # +# (at your option) any later version. = # +# = # +# This program is distributed in the hope that it will be useful, = # +# but WITHOUT ANY WARRANTY; without even the implied warranty of = # +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the = # +# GNU General Public License for more details. = # +# = # +# You should have received a copy of the GNU General Public License = # +# along with this program. If not, see . = # +# = # +# Copyright (C) 2019 = # +# = # +############################################################################= ### + +# Enable the following only for debugging +use strict; +use warnings; +use CGI qw/:standard/; +use CGI::Carp 'fatalsToBrowser'; + +use IPC::Open3; +use Data::Dumper; + +require '/var/ipfire/general-functions.pl'; +require "${General::swroot}/lang.pl"; +require "${General::swroot}/header.pl"; + +############################################################################= ### +# Function prototypes +############################################################################= ### + +# Used by plugins + +sub add_mail_item( % ); +sub get_period_start(); +sub get_period_end(); +sub get_weeks_covered(); +sub cache( $;$ ); + +# Local functions + +sub show_encryption_keys(); +sub show_contacts(); +sub show_schedules(); +sub show_signing_key(); +sub check_key( $ ); +sub get_keys(); +sub check_schedule( % ); +sub toggle_on_off( $ ); +sub export_signing_key(); + +############################################################################= ### +# Configuration variables +############################################################################= ### + +my $contactsettings =3D "${General::swroot}/statusmail/contact_settings= "; +my $schedulesettings =3D "${General::swroot}/statusmail/schedule_setting= s"; +my $generate_signature =3D "/usr/lib/statusmail/generate_signature.sh"; +my $mailsettings =3D "${General::swroot}/dma/mail.conf"; +my $mainsettings =3D "${General::swroot}/main/settings"; +my $plugin_dir =3D '/usr/lib/statusmail/plugins'; +my $gpg =3D "/usr/bin/gpg --homedir ${General::swroot}/stat= usmail/keys"; +my $execute =3D '/usr/local/bin/statusmail.pl'; +my $tmpdir =3D '/var/tmp'; +my $statusmailctrl =3D '/usr/local/bin/statusmailctrl'; + +############################################################################= ### +# Initialize variables and hashes +############################################################################= ### + +my %mainsettings =3D (); +my %cgiparams =3D (); +my $errormessage =3D ''; +my $current_contact =3D ''; +my $current_key =3D ''; +my $current_schedule =3D ''; +my $save_contacts =3D 0; +my $save_schedules =3D 0; +my %items; +my %colour; +my $contacts; +my $schedules; +my %keys; +my %mailsettings; +my $sign_key; +my $signing_fingerprint =3D ''; +my $signing_keyid =3D ''; +my $encryption_key =3D ''; +my $show_signing_key =3D 0; +my $show_encryption_keys =3D 0; +my $show_contacts =3D 0; +my @debug; + +############################################################################= ### +# Main code +############################################################################= ### + +# Read CGI parameters +my $a =3D new CGI; + +Header::getcgihash( \%cgiparams ); + +# Read settings + +General::readhash( $mainsettings, \%mainsettings ); +General::readhash( $mailsettings, \%mailsettings ) if (-e $mailsettings); +General::readhash( "/srv/web/ipfire/html/themes/" . $mainsettings{'THEME'} .= "/include/colors.txt", \%colour ); + +if (-r $contactsettings) +{ + eval qx|/bin/cat $contactsettings|; +} +else +{ + # No settings file - set up defaults + + $contacts =3D {}; +} + +if (-r $schedulesettings) +{ + eval qx|/bin/cat $schedulesettings|; +} +else +{ + # No settings file - set up defaults + + $schedules =3D {}; +} + +# Get key information + +get_keys(); + +# Get the email signing key + +$sign_key =3D `$gpg --armour --export IPFire`; + +$sign_key =3D~ s/^\s+//; +$sign_key =3D~ s/\s+$//; + +$errormessage .=3D "

$Lang::tr{'statusmail no signing key'}

" if ($sign= _key =3D~ m/nothing exported/ or not $sign_key); + +# Scan for plugins + +opendir DIR, $plugin_dir or die "Can't open Plug-in directory $plugin_dir: $= !"; + +foreach my $file (readdir DIR) +{ + next unless ($file =3D~ m/\.pm$/); + + require "$plugin_dir/$file"; +} + +############################################################################= ### +# ACTIONS +############################################################################= ### + +# ACTIONS for Installed PGP Keys + +$show_signing_key =3D $cgiparams{'show signing key'} || 0; +$show_encryption_keys =3D $cgiparams{'show encryption keys'} || 0; +$show_contacts =3D $cgiparams{'show contacts'} || 0; + +$show_signing_key =3D 1 if (exists $cgiparams{'SIGN_ACTION'}); +$show_encryption_keys =3D 1 if (exists $cgiparams{'KEY_ACTION'}); +$show_contacts =3D 1 if (exists $cgiparams{'CONTACT_ACTION'}); +$show_signing_key =3D 1 if ($sign_key =3D~ m/nothing exported/ or not $s= ign_key); + +if ($cgiparams{'KEY_ACTION'} eq $Lang::tr{'statusmail import'}) +{ + my $upload =3D $a->param("UPLOAD"); + $encryption_key =3D ''; + + binmode $upload; + + foreach my $line ( <$upload> ) + { + $encryption_key .=3D $line; + } + + check_key( $encryption_key ); + get_keys(); + + $show_contacts =3D 1; +} +elsif ($cgiparams{'KEY_ACTION'} eq $Lang::tr{'add'}) +{ + check_key( $cgiparams{'key'} ); + + get_keys(); +} +elsif ($cgiparams{'KEY_ACTION'} eq 'remove key') +{ + my $key =3D $cgiparams{'KEY'}; + $key =3D~ s/\s+//g; + + my @output =3D `$gpg --batch --yes --delete-key $key 2>&1`; + + if ($?) + { + $errormessage .=3D join '
', "

$Lang::tr{'statusmail key remove fai= led'} $?", @output; + $errormessage .=3D "

\n"; + } + + get_keys(); +} +elsif ($cgiparams{'KEY_ACTION'} eq $Lang::tr{'statusmail show'}) +{ + $show_encryption_keys =3D 1; +} +elsif ($cgiparams{'KEY_ACTION'} eq $Lang::tr{'statusmail hide'}) +{ + $show_encryption_keys =3D 0; +} + +# ACTIONS for Signing Certificate + +elsif ($cgiparams{'SIGN_ACTION'} eq $Lang::tr{'statusmail generate'}) +{ + system( "$generate_signature &>$tmpdir/statusmail_log &" ); +} +elsif ($cgiparams{'SIGN_ACTION'} eq $Lang::tr{'export'}) +{ + export_signing_key(); +} +elsif ($cgiparams{'SIGN_ACTION'} eq $Lang::tr{'statusmail show'}) +{ + $show_signing_key =3D 1; +} +elsif ($cgiparams{'SIGN_ACTION'} eq $Lang::tr{'statusmail hide'}) +{ + $show_signing_key =3D 0; +} + +# ACTIONS for Contacts + +elsif ($cgiparams{'CONTACT_ACTION'} eq $Lang::tr{'add'} or $cgiparams{'CONTA= CT_ACTION'} eq $Lang::tr{'update'}) +{ + if (not $cgiparams{'name'}) + { + $errormessage .=3D "

$Lang::tr{'statusmail no contact name'}

"; + } + + if (not General::validemail( $cgiparams{'address'} )) + { + $errormessage .=3D "

$Lang::tr{'statusmail email invalid'}

"; + } + + if (not $errormessage) + { + my $enable =3D $$contacts{$cgiparams{'name'}}{'enable'}; + + $$contacts{$cgiparams{'name'}} =3D { 'email' =3D> $cgiparams{'addr= ess'}, + 'keyid' =3D> '', + 'fingerprint' =3D> '', + 'enable' =3D> $enable }; + $save_contacts =3D 1; + } +} +elsif ($cgiparams{'CONTACT_ACTION'} eq 'edit contact') +{ + $current_contact =3D $cgiparams{'KEY'}; +} +elsif ($cgiparams{'CONTACT_ACTION'} eq 'remove contact') +{ + my $key =3D $cgiparams{'KEY'}; + + delete $$contacts{$key}; + $save_contacts =3D 1; +} +elsif ($cgiparams{'CONTACT_ACTION'} eq 'toggle contact') +{ + my $key =3D $cgiparams{'KEY'}; + + toggle_on_off( $$contacts{$key}{'enable'} ); + $save_contacts =3D 1; +} +elsif ($cgiparams{'CONTACT_ACTION'} eq $Lang::tr{'statusmail show'}) +{ + $show_contacts =3D 1; +} +elsif ($cgiparams{'CONTACT_ACTION'} eq $Lang::tr{'statusmail hide'}) +{ + $show_contacts =3D 0; +} + +# ACTIONS for Schedules + +elsif ($cgiparams{'SCHEDULE_ACTION'} eq $Lang::tr{'add'} or $cgiparams{'SCHE= DULE_ACTION'} eq $Lang::tr{'update'}) +{ + check_schedule( %cgiparams ); +} +elsif ($cgiparams{'SCHEDULE_ACTION'} eq 'edit schedule') +{ + $current_schedule =3D $cgiparams{'KEY'}; +} +elsif ($cgiparams{'SCHEDULE_ACTION'} eq 'execute schedule') +{ + system( "$execute '$cgiparams{'KEY'}' &" ); +} +elsif ($cgiparams{'SCHEDULE_ACTION'} eq 'remove schedule') +{ + my $key =3D $cgiparams{'KEY'}; + + delete $$schedules{$key}; + $save_schedules =3D 1; +} +elsif ($cgiparams{'SCHEDULE_ACTION'} eq 'toggle schedule') +{ + my $key =3D $cgiparams{'KEY'}; + + toggle_on_off( $$schedules{$key}{'enable'} ); + + # Check to see if the service needs to be enabled or disabled + + if ($$schedules{$key}{'enable'} eq 'on' and not -e '/etc/fcron.hourly/stat= usmail') + { + system( "$statusmailctrl enable >/dev/null" ); + } + elsif (-e '/etc/fcron.hourly/statusmail') + { + my $do_disable =3D 1; + + foreach my $name (keys %$schedules ) + { + if ($$schedules{$name}{'enable'} eq 'on') + { + $do_disable =3D 0; + last; + } + } + + if ($do_disable) + { + system( "$statusmailctrl disable >/dev/null" ); + } + } + + $save_schedules =3D 1; +} + +############################################################################= ### +# Start of HTTP/HTML output +############################################################################= ### + +# Show Headers +Header::showhttpheaders(); + +############################################################################= ### +# Page contents +############################################################################= ### + +Header::openpage($Lang::tr{'statusmail status emails'}, 1, ''); + +# Display error if email is not enabled + +if ($mailsettings{'USEMAIL'} ne 'on') +{ + $errormessage =3D "

$Lang::tr{'statusmail email not enabled'}

"; +} + +if ($errormessage) +{ + Header::openbox( '100%', 'left', $Lang::tr{'error messages'} ); + print "$errormessage\n"; + Header::closebox(); +} + +# Check for key generation in progress + +my $return =3D `pidof generate_signature.sh -x`; + +chomp($return); + +if ($return) +{ + Header::openbox( 'Working', 1, "$Lang::tr{'statusmail working'}" ); + + print < + + + 3D'$Lang::tr{'aktiv'}'&nbs= p; + + + + +
+ +
+ + + 
+END
+;
+  my @output =3D `tail -20 $tmpdir/statusmail_log`;
+  foreach (@output)
+  {
+    print "$_";
+  }
+  print <
+    
+END
+;
+
+  unlink "$tmpdir/statusmail_log";
+
+  Header::closebox();
+  Header::closebigbox();
+  Header::closepage();
+  exit;
+}
+
+# Show main bulk of page
+
+if ($mailsettings{'USEMAIL'} eq 'on')
+{
+  show_signing_key();
+
+  unless ($sign_key =3D~ m/nothing exported/ or not $sign_key)
+  {
+    show_encryption_keys();
+    show_contacts();
+    show_schedules();
+  }
+}
+
+foreach my $line (@debug)
+{
+  print "$line
\n";
+}
+
+# End of page
+
+Header::closebigbox();
+Header::closepage();
+
+# Save settings if necessary
+
+if ($save_contacts)
+{
+  open OUT, '>', $contactsettings or die "Can't open contact settings file $=
contactsettings: $!";
+  print OUT Data::Dumper->Dump( [$contacts], ['contacts'] );
+  close OUT;
+}
+
+if ($save_schedules)
+{
+  open OUT, '>', $schedulesettings or die "Can't open schedule settings file=
 $schedulesettings: $!";
+  print OUT Data::Dumper->Dump( [$schedules], ['schedules'] );
+  close OUT;
+}
+
+############################################################################=
###
+# Subroutines
+############################################################################=
###
+
+#---------------------------------------------------------------------------=
---
+# sub show_signing_key()
+#
+# Outputs the 'Signing Key' section of the page.
+#
+# A new signing key can be generated and exported.
+#---------------------------------------------------------------------------=
---
+
+sub show_signing_key()
+{
+  Header::openbox('100%', 'left', $Lang::tr{'statusmail signing key'});
+
+  # Javascript to copy key to clipboard
+
+  print <
+  function copy_clipboard() {
+    /* Get the text field */
+    var copyText =3D document.getElementById( "key_out" );
+
+    /* Select the text field */
+    copyText.select();
+
+    /* Copy the text inside the text field */
+    document.execCommand( "copy" );
+
+    /* Alert the copied text */
+    alert( "$Lang::tr{'statusmail copied to clipboard'}" );
+  }
+
+END
+;
+
+  # Hide/Show button
+
+  my $button =3D $show_signing_key ? $Lang::tr{"statusmail hide"} : $Lang::t=
r{"statusmail show"};
+
+  print <
+  
+    
+      
+    
+  

+        
+        
+        
+        
+      

+
+END
+;
+
+  # Key information and export/generate buttons
+
+  if ($show_signing_key)
+  {
+    my $disabled =3D '';
+    $disabled =3D ' disabled' if ($sign_key =3D~ m/nothing exported/ or not =
$sign_key);
+ =20
+    print <
+
+  
+    
+    
+  
+  
+    
+    
+  
+  
+    
+    
+  
+
$Lang::tr{'statusmail signing key'}
+      
+    
$Lang::tr{'statusmail fingerprint'}$signing_fingerprint
$Lang::tr{'statusmail keyid'}$signing_keyid

+

+

+
+  
+    
+  
+

+      
+      
+      
+    

+

+END
+;
+  }
+
+  Header::closebox();
+}
+
+#---------------------------------------------------------------------------=
---
+# sub show_encryption_keys()
+#
+# Outputs the 'Installed PGP Keys' section of the page.
+#
+# User keys can be imported or deleted.
+#---------------------------------------------------------------------------=
---
+
+sub show_encryption_keys()
+{
+  Header::openbox('100%', 'left', $Lang::tr{'statusmail keys'});
+
+  # Hide/show button
+
+  my $button =3D $show_encryption_keys ? $Lang::tr{"statusmail hide"} : $Lan=
g::tr{"statusmail show"};
+
+  print <
+  
+    
+      
+    
+  

+        
+        
+        
+        
+      

+
+END
+;
+
+  if ($show_encryption_keys)
+  {
+    # Selected key details and Import/Add buttons
+
+    print <
+  function enable_file_import() {
+    /* Get the text field */
+    var importButton =3D document.getElementById( "file-import" );
+
+    /* Select the text field */
+    importButton.removeAttribute( 'disabled' );
+  }
+  
+  

+    
+      
+        
+        
+      
+    
$Lang::tr{'statusmail key'}
+            
+        

+    

+    
+      
+        
+      
+    

+            
+            
+            
+            
+        

+  

+  

+  
+  
+    
+    
+    
+    
+    
+    
+  
+END
+;
+
+  # List installed keys
+
+    my $row =3D 0;
+    foreach my $fingerprint (sort keys %keys)
+    {
+      my $show_fingerprint =3D $fingerprint;
+      $show_fingerprint =3D~ s/((?:\w{4}\s){4}(?:\w{4}))\s(.+)/$1
$2/;
+
+      if ($row % 2)
+      {
+        print "";
+      }
+      else
+      {
+        print "";
+      }
+
+      my $name  =3D Header::escape( $keys{$fingerprint}{'userid'} );
+      my $email =3D Header::escape( $keys{$fingerprint}{'email'} );
+
+    print <$name
+  
+  
+  
+  
+  
+  
+END
+;
+    $row++;
+  }
+
+  print <
+END
+;
+  }
+  Header::closebox();
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub show_contacts()
+#
+# Outputs the 'Contacts' part of the page.
+#
+# New contacts can be added and existing ones enabled/disabled or deleted.
+#---------------------------------------------------------------------------=
---
+
+sub show_contacts()
+{
+  my $button          =3D $Lang::tr{'add'};
+  my $current_address =3D '';
+  my $name            =3D '';
+  my $keyid           =3D '';
+  my $enable          =3D 0;
+
+  Header::openbox('100%', 'left', $Lang::tr{'statusmail contacts'});
+
+  # Hide/Show button
+
+  my $button =3D $show_contacts ? $Lang::tr{"statusmail hide"} : $Lang::tr{"=
statusmail show"};
+
+  print <
+  
$Lang::tr{'statusmail contact name'}$Lang::tr{'statusmail email'}$Lang::tr{'statusmail keyid'}$Lang::tr{'statusmail fingerprint'}$Lang::tr{'statusmail key expires'}$Lang::tr{'statusmail action'}
$email$keys{$fingerprint}{'keyid'}$show_fingerprint$keys{$fingerprint}{'expires'}
+  

+  
+  
+  
+  

+  

+    
+      
+    
+  

+        
+        
+        
+        
+      

+
+END
+;
+
+  if ($show_contacts)
+  {
+    # Selected contact details and Import/Add buttons
+
+    if ($current_contact)
+    {
+      $button          =3D $Lang::tr{'update'};
+
+      if (exists $$contacts{$current_contact})
+      {
+        $name            =3D Header::escape( $current_contact );
+        $current_address =3D Header::escape( $$contacts{$current_contact}{'e=
mail'} );
+        $keyid           =3D $$contacts{$current_contact}{'keyid'};
+      }
+    }
+
+    print <
+    
+      
+        
+        
+        
+        
+      
+      
+        
+        
+      
+    
$Lang::tr{'statusmail contact name'}
+          
+        $Lang::tr{'statusmail email'}
+          
+        
$Lang::tr{'statusmail keyid'}
+          

+    

+    
+      
+        
+      
+    

+  
+  

+  
+  
+    
+    
+    
+    
+  
+END
+;
+
+    # List contacts
+
+    my $row =3D 0;
+    foreach my $contact (sort keys %$contacts)
+    {
+      my $col =3D '';
+      my $gif;
+      my $gdesc;
+
+      if ($current_contact eq $contact)
+      {
+        print "";
+      }
+      elsif ($row % 2)
+      {
+        print "";
+      }
+      else
+      {
+        print "";
+      }
+
+      if ($$contacts{$contact}{'enable'} eq 'on')
+      {
+        $gif =3D 'on.gif';
+        $gdesc =3D $Lang::tr{'click to disable'};
+      }
+      else
+      {
+        $gif =3D 'off.gif';
+        $gdesc =3D $Lang::tr{'click to enable'};
+      }
+
+    $name       =3D Header::escape( $contact );
+    my $address =3D Header::escape( $$contacts{$contact}{'email'} );
+
+      print <$name
+  
+  
+
+  
+
+  
+
+  
+  
+END
+;
+      $row++;
+    }
+
+    print <
+END
+;
+  }
+
+  Header::closebox();
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub show_schedules()
+#
+# Outputs the 'Schedules' part of the page.
+#---------------------------------------------------------------------------=
---
+
+sub show_schedules()
+{
+  my $button          =3D $Lang::tr{'add'};
+  my $enable          =3D 0;
+  my %schedule        =3D ( 'subject' =3D> '',
+                          'email'   =3D> '',
+                          'format'  =3D> 'HTML',
+                          'mday'    =3D> 0,
+                          'wday'    =3D> 0,
+                          'hours'   =3D> 0,
+                          'enable'  =3D> 0 );
+
+  Header::openbox('100%', 'left', $Lang::tr{'statusmail schedules'});
+
+  if ($current_schedule)
+  {
+    $button =3D $Lang::tr{'update'};
+
+    foreach my $field ( keys %{ $$schedules{$current_schedule} } )
+    {
+      $schedule{$field} =3D $$schedules{$current_schedule}{$field};
+    }
+  }
+
+  my $name    =3D Header::escape( $current_schedule );
+  my $subject =3D Header::escape( $schedule{'subject'} );
+
+  # Selected schedule - email information
+
+  print <
+  
$Lang::tr{'statusmail contact name'}$Lang::tr{'statusmail email'}$Lang::tr{'statusmail key'}$Lang::tr{'statusmail action'}
$address$$contacts{$contact}{'keyid'}
+  

+  
+  
+  
+  

+  		
+  

+  
+  
+  
+  

+  		
+  

+  
+  
+  
+  

+  

+    
+      
+      
+    
+    
+      
+      
+    
+    
+      
+      
+        
+        
+      
+      
+      
+        
+        
+        
+        
+      
+    
$Lang::tr{'statusmail schedule name'}
+        
+      
$Lang::tr{'statusmail email subject'}
+        
+      
$Lang::tr{'statusmail email to'}
+          $Lang::tr{'statusmail email format'}
+          
+        
$Lang::tr{'statusmail period covered'}:
+          
+          
+        $Lang::tr{'statusmail lines per item'}
+          
+        

+    

+    
+      
+        
+      
+      
+END
+;
+
+  # Selected schedule - frequency information
+
+  foreach my $day (1..31)
+  {
+    print "\n";
+  }
+
+  print "\n";
+
+  foreach my $day (1..31)
+  {
+    my $checked =3D ($schedule{'mday'} & (1 << $day)) ? ' checked' : '';
+    print "\n";
+  }
+
+  print <
+      
+      
+        
+      
+      
+END
+;
+
+ foreach my $day ('sunday', 'monday', 'tuesday', 'wednesday', 'thursday', 'f=
riday', 'saturday')
+  {
+    my $wday =3D "statusmail $day";
+    print "\n";
+  }
+
+  print "\n";
+
+  foreach my $day (0..6)
+  {
+    my $checked =3D ($schedule{'wday'} & (1 << $day)) ? ' checked' : '';
+    print "\n";
+  }
+
+  print <
+      
+      
+        
+      
+END
+;
+
+  foreach my $hour (0..23)
+  {
+    print "\n";
+  }
+
+  print "\n";
+
+  foreach my $hour (0..23)
+  {
+    my $checked =3D ($schedule{'hours'} & (1 << $hour)) ? ' checked' : '';
+    print "\n";
+  }
+
+  # Javascript to show/hide HTML only items
+
+  print <
+    
$Lang::tr{'statusmail day of month'}:
$day
 
$Lang::tr{'statusmail day of week'}:
$Lang::tr{$wday}
 
$Lang::tr{'statusmail hour of day'}:
$hour

+    

+
+    
+
+    
+END
+;
+
+  # List items
+
+  foreach my $section (sort keys %items)
+  {
+    print "=
\n";
+
+    foreach my $subsection (sort keys %{ $items{$section} } )
+    {
+      print "\n";
+
+      foreach my $item (sort keys %{ $items{$section}{$subsection} } )
+      {
+        my $name    =3D $items{$section}{$subsection}{$item}{'ident'};
+        my $class   =3D $items{$section}{$subsection}{$item}{'format'};
+        my $hidden  =3D '';
+        my $checked =3D '';
+
+        if (($class eq 'html' and $schedule{'format'} eq 'text') or
+            ($class eq 'text' and $schedule{'format'} eq 'html'))
+        {
+          $hidden =3D ' hidden';
+        }
+
+        $checked =3D ' checked' if ($schedule{"enable_${name}"} eq 'on');
+
+        print "\n";
+        print "\n";
+
+        if (exists $items{$section}{$subsection}{$item}{'option'})
+        {
+          my $key =3D "value_$name";
+
+          print "\n";
+          }
+          else
+          {
+            print "\n";
+          }
+        }
+        else
+        {
+          print "\n";
+          print "\n";
+        }
+        print "\n";
+      }
+    }
+  }
+
+  # Add/Update button
+
+  print <
+    

+    
$section
$subsection
$item=
$items{$section}{$subsection}{$item}{'option'}{'name'}<=
/td>\n";
+
+          if ($items{$section}{$subsection}{$item}{'option'}{'type'} eq 'int=
eger')
+          {
+            my $min   =3D $items{$section}{$subsection}{$item}{'option'}{'mi=
n'};
+            my $max   =3D $items{$section}{$subsection}{$item}{'option'}{'ma=
x'};
+            my $value =3D $min;
+
+            $value =3D $schedule{"value_$name"} if (exists $schedule{"value_=
$name"});
+
+            print "  

+      
+        
+      
+    

+  
+  

+  
+  
+    
+    
+  
+END
+;
+
+  # List schedules
+
+  my $row =3D 0;
+  foreach my $schedule (sort keys %$schedules)
+  {
+    my $col   =3D '';
+    my $gif;
+    my $gdesc;
+    $name     =3D Header::escape( $schedule );
+
+    if ($current_contact eq $schedule)
+    {
+      print "";
+    }
+    elsif ($row % 2)
+    {
+      print "";
+    }
+    else
+    {
+      print "";
+    }
+
+    if ($$schedules{$schedule}{'enable'} eq 'on')
+    {
+      $gif =3D 'on.gif';
+      $gdesc =3D $Lang::tr{'click to disable'};
+    }
+    else
+    {
+      $gif =3D 'off.gif';
+      $gdesc =3D $Lang::tr{'click to enable'};
+    }
+
+    print <$name
+
+  
+
+  
+
+  
+
+  
+  
+END
+;
+    $row++;
+  }
+
+  print <
+END
+;
+  Header::closebox();
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub check_key( key )
+#
+# Checks an imported PGP key to see if it looks correct and then tries
+# to import it into the the keyring.
+#---------------------------------------------------------------------------=
---
+
+sub check_key( $ )
+{
+  my ($key) =3D @_;
+
+  # Remove leading and trailing whitespace
+
+  $key =3D~ s/^\s+//g;
+  $key =3D~ s/\s+$//g;
+
+  # Check it looks like a key
+
+  if ($key !~ m/^-----BEGIN PGP PUBLIC KEY BLOCK-----[A-Za-z\d \/=3D|\+\n\r-=
]+-----END PGP PUBLIC KEY BLOCK-----$/)
+  {
+    $errormessage .=3D "
$Lang::tr{'statusmail invalid key'}
";
+
+    return;
+  }
+
+  # Looks OK - try to import it
+
+  my ($in, $out, $err);
+
+  my $childpid =3D open3( $in, $out, $err, "$gpg --import" );
+
+  print $in $key;
+
+  close $in;
+
+  waitpid( $childpid, 0);
+
+  if ($?)
+  {
+    $errormessage .=3D join '
', "
$Lang::tr{'statusmail import key fai=
led'}", <$out>, "
\n";
+  }
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub get_keys()
+#
+# Reads the PGP keyring and extracts information on suitable email encryption
+# keys.  If a key is found that corresponds to a user not in the contacts li=
st
+# the user is added to the contacts. If a key is found for a user in the list
+# that does not have a referenced key, the key is added to the contact.
+#---------------------------------------------------------------------------=
---
+
+sub get_keys()
+{
+  %keys =3D ();
+
+  my @keys =3D `$gpg --fingerprint --fingerprint --with-colons`;
+
+  my $keyid       =3D '';
+  my $userid      =3D '';
+  my $email       =3D '';
+  my $expires     =3D 0;
+  my $fingerprint =3D '';
+  my $use         =3D '';
+
+  # Iterate through the list of keys
+
+  foreach my $line (@keys)
+  {
+    my @fields =3D split /:/, $line;
+
+    if ($fields[0] eq 'pub')
+    {
+      $keyid       =3D '';
+      $userid      =3D '';
+      $email       =3D '';
+      $expires     =3D 0;
+      $fingerprint =3D '';
+      $use         =3D '';
+    }
+
+    #    0         1       2          3      4              5            6  =
 7      8       9         10
+    # type, validity, length, algorithm, keyid, creation date, expiry date, =
??, trust, userid, sig class,
+    #           11      12    13      14              15     16          17 =
      18      19
+    # capabilities, issuer, flag, serial, hash algorithm, curve, compliance,=
 updated, origin
+
+    if (($fields[0] eq 'pub' or $fields[0] eq 'sub'))
+    {
+      # Key that can be used for encryption
+
+      $userid  =3D $fields[9] if ($fields[9]);
+      $expires =3D $fields[6];
+      $keyid   =3D $fields[4];
+      $use     =3D $fields[11];
+    }
+    elsif ($fields[0] eq 'uid')
+    {
+      # User id
+
+      $userid =3D $fields[9];
+    }
+    elsif ($fields[0] eq 'fpr')
+    {
+      # Fingerprint
+
+      $fingerprint =3D $fields[9];
+      $fingerprint =3D~ s/\w{4}\K(?=3D.)/ /sg; # Adds a space after every fo=
urth character
+    }
+
+    if ($keyid and $userid and $expires and $fingerprint and $use =3D~ m/e/)
+    {
+      # We've got all the information for one key
+
+      if ($userid =3D~ m/\@/)
+      {
+        ($userid, $email) =3D $userid =3D~ m/^(.*?)\s+\<(.*)\>/;
+      }
+
+      $keys{$fingerprint} =3D { 'keyid'       =3D> $keyid,
+                              'userid'      =3D> $userid,
+                              'email'       =3D> $email,
+                              'expires'     =3D> $expires,
+                              'fingerprint' =3D> $fingerprint };
+
+      if (exists $$contacts{$userid} and ($$contacts{$userid}{'email'} eq $e=
mail or not $$contacts{$userid}{'email'}))
+      {
+        # Update existing contact
+
+        $$contacts{$userid}{'email'}       =3D $email;
+        $$contacts{$userid}{'keyid'}       =3D $keyid;
+        $$contacts{$userid}{'fingerprint'} =3D $fingerprint;
+
+        $save_contacts =3D 1;
+      }
+      elsif (not exists $$contacts{$userid})
+      {
+        # New contact
+
+        $$contacts{$userid}{'email'}       =3D $email;
+        $$contacts{$userid}{'keyid'}       =3D $keyid;
+        $$contacts{$userid}{'fingerprint'} =3D $fingerprint;
+        $$contacts{$userid}{'enable'}      =3D 0;
+
+        $save_contacts =3D 1;
+      }
+
+      $fingerprint   =3D '';
+      $keyid         =3D '';
+    }
+    elsif ($keyid and $userid =3D~ m/IPFire/ and $fingerprint and $use =3D~ =
m/s/)
+    {
+      # The signing key
+
+      $signing_fingerprint =3D $fingerprint;
+      $signing_keyid       =3D $keyid;
+
+      $fingerprint   =3D '';
+      $keyid         =3D '';
+    }
+  }
+
+  # Check for contacts which no longer have a key defined
+
+  foreach my $contact (keys %$contacts)
+  {
+    if ($$contacts{$contact}{'fingerprint'} and not exists $keys{$$contacts{=
$contact}{'fingerprint'}})
+    {
+      $$contacts{$contact}{'fingerprint'} =3D '';
+      $$contacts{$contact}{'keyid'}       =3D '';
+
+      $save_contacts =3D 1;
+    }
+  }
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub check_schedule( params )
+#
+# Checks a schedule is valid
+#---------------------------------------------------------------------------=
---
+
+sub check_schedule( % )
+{
+  my %params =3D @_;
+
+  my $mdays  =3D 0;
+  my $wdays  =3D 0;
+  my $hours  =3D 0;
+  my $enable =3D $$schedules{$params{'name'}}{'enable'};
+
+  # Check required fields are set
+
+  $errormessage .=3D "
$Lang::tr{'statusmail no schedule name'}
"   if =
(not $params{'name'});
+  $errormessage .=3D "
$Lang::tr{'statusmail no email subject'}
"   if =
(not $params{'subject'});
+  $errormessage .=3D "
$Lang::tr{'statusmail no email addresses'}
" if =
(not $params{'emails'});
+  $errormessage .=3D "
$Lang::tr{'statusmail no period covered'}
"  if =
(not $params{'period-value'});
+  $errormessage .=3D "
$Lang::tr{'statusmail no lines per item'}
"  if =
(not $params{'lines'});
+
+  # Convert time/date buttons to bitmap
+
+  foreach my $mday (1..31)
+  {
+    $mdays |=3D 1 << $mday if (exists $params{"mday_$mday"});
+  }
+
+  foreach my $wday (0..6)
+  {
+    $wdays |=3D 1 << $wday if (exists $params{"wday_$wday"});
+  }
+
+  foreach my $hour (0..24)
+  {
+    $hours |=3D 1 << $hour if (exists $params{"hour_$hour"});
+  }
+
+  # Check schedule is OK
+
+  $errormessage .=3D "
$Lang::tr{'statusmail no schedule date'}" if (not (=
$mdays+$wdays));
+  $errormessage .=3D "
$Lang::tr{'statusmail no schedule time'}" if (not $=
hours);
+  $errormessage .=3D "
$Lang::tr{'statusmail excessive period'}" if (($par=
ams{'period-unit'} eq 'hours'  and $params{'period-value'} > (365 * 24)) or
+                                                                     ($param=
s{'period-unit'} eq 'days'   and $params{'period-value'} > 365)        or
+                                                                     ($param=
s{'period-unit'} eq 'weeks'  and $params{'period-value'} > 52)         or
+                                                                     ($param=
s{'period-unit'} eq 'months' and $params{'period-value'} > 12));
+
+  $$schedules{$params{'name'}} =3D { 'subject'      =3D> $params{'subject'},
+                                   'email'        =3D> $params{'emails'},
+                                   'format'       =3D> $params{'format'},
+                                   'period-value' =3D> $params{'period-value=
'},
+                                   'period-unit'  =3D> $params{'period-unit'=
},
+                                   'lines'        =3D> $params{'lines'},
+                                   'mday'         =3D> $mdays,
+                                   'wday'         =3D> $wdays,
+                                   'hours'        =3D> $hours,
+                                   'enable'       =3D> $enable };
+
+  # Check individual items
+
+  foreach my $section (sort keys %items)
+  {
+    foreach my $subsection (sort keys %{ $items{$section} } )
+    {
+      foreach my $item (sort keys %{ $items{$section}{$subsection} } )
+      {
+        my $name   =3D $items{$section}{$subsection}{$item}{'ident'};
+        my $format =3D $items{$section}{$subsection}{$item}{'format'};
+
+        if (($format eq 'html' and $params{'format'} eq 'text') or
+            ($format eq 'text' and $params{'format'} eq 'html'))
+        {
+          $$schedules{$params{'name'}}{"enable_${name}"} =3D 'off';
+        }
+        else
+        {
+          my $state =3D 'off';
+
+          $state =3D 'on' if (exists($params{"enable_${name}"}));
+          $$schedules{$params{'name'}}{"enable_${name}"} =3D $state;
+        }
+
+        if ($items{$section}{$subsection}{$item}{'option'})
+        {
+          $$schedules{$params{'name'}}{"value_${name}"} =3D $params{"value_$=
{name}"};
+        }
+      }
+    }
+  }
+
+  $save_schedules =3D 1 unless ($errormessage);
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub add_mail_item( params )
+#
+# Adds a possible status item to the section and subsection specified.   This
+# is called by plugins during the BEGIN phase.
+#
+# In the event of an error in specifying the parameters the item will be
+# ignored with no error being raised.
+#
+# Parameters:
+#   params  hash containing details of the item to be added:
+#     section     name of the section containing this item
+#     subsection  name of the subsection containing this item
+#     item        name of the item
+#     function    function called to add item to message
+#     format      available formats for the item 'html', 'text' or 'both'
+#     option      hash specifying option parameter (optional)
+#
+# option can specify either a selection or an integer.  For a selection it
+# contains:
+#   type          must be 'option'
+#   values        array of strings representing the possible options
+#
+# For an integer option contains:
+#   type          must be 'integer'
+#   min           minimum valid value of parameter
+#   max           maximum valid value of parameter
+#
+# The function is sanity checked but otherwise ignored by this script.
+#---------------------------------------------------------------------------=
---
+
+sub add_mail_item( %)
+{
+  my %params =3D @_;
+
+  # Check we've got all the expected parameters
+
+  return unless (exists $params{'section'}    and
+                 exists $params{'subsection'} and
+                 exists $params{'item'}       and
+                 exists $params{'function'});
+
+  if ($params{'format'})
+  {
+    $params{'format'} =3D lc $params{'format'};
+
+    return unless ($params{'format'} eq 'html' or
+                   $params{'format'} eq 'text' or
+                   $params{'format'} eq 'both');
+  }
+  else
+  {
+    $params{'format'} =3D 'both';
+  }
+
+  $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}} =3D { '=
format' =3D> $params{'format'},
+                                                                         'id=
ent'  =3D> $params{'ident'} };
+
+  # Check the option parameter, if it exists
+
+  if ($params{'option'})
+  {
+    return unless (ref $params{'option'} eq 'HASH');
+    return unless ($params{'option'}{'name'});
+
+    if ($params{'option'}{'type'} eq 'select')
+    {
+      return unless (ref $params{'option'}{'values'} eq 'ARRAY' and @{ $para=
ms{'option'}{'values'} } > 1);
+
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'type'}   =3D $params{'option'}{'type'};
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'values'} =3D $params{'option'}{'values'};
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'name'}   =3D $params{'option'}{'name'};
+    }
+    elsif ($params{'option'}{'type'} eq 'integer')
+    {
+      return unless (exists $params{'option'}{'min'} and exists $params{'opt=
ion'}{'max'} and $params{'option'}{'min'} < $params{'option'}{'max'});
+
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'type'} =3D $params{'option'}{'type'};
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'min'}  =3D $params{'option'}{'min'};
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'max'}  =3D $params{'option'}{'max'};
+      $items{$params{'section'}}{$params{'subsection'}}{$params{'item'}}{'op=
tion'}{'name'} =3D $params{'option'}{'name'};
+    }
+  }
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub toggle_on_off( string )
+#
+# Toggles between 'on' and 'off'.
+#---------------------------------------------------------------------------=
---
+
+sub toggle_on_off( $ )
+{
+  $_[0] =3D $_[0] eq 'on' ? 'off' : 'on';
+}
+
+
+#---------------------------------------------------------------------------=
---
+# sub export_signing_key()
+#
+# Exports the signing key to a file on the WUI client computer
+#---------------------------------------------------------------------------=
---
+
+sub export_signing_key()
+{
+  # Print headers
+	print "Content-Disposition: attachment; filename=3D$mainsettings{HOSTNAME}.=
asc\n";
+	print "Content-Type: application/octet-stream\n";
+	print "Content-Length: " . length( $sign_key ) . "\n";
+	print "\n";
+
+	# Deliver content
+	print $sign_key;
+
+	exit( 0 );
+}
+
+
+#---------------------------------------------------------------------------=
---
+# These functions are referenced by plugins but will not actually be called.
+#
+# The script to send mail messages makes use of theses functions.
+#---------------------------------------------------------------------------=
---
+
+
+sub get_period_start()
+{
+}
+
+sub get_period_end()
+{
+}
+
+sub get_weeks_covered()
+{
+}
+
+sub cache( $;$ )
+{
+}
diff --git a/html/html/images/play.png b/html/html/images/play.png
new file mode 100644
index 0000000000000000000000000000000000000000..d5ecf1236d92c50c912353239f6e5=
826b6328cb5
GIT binary patch
literal 182
zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc3?z4jzqJQa5&=3DFTuD%_g|NsAg;J|_Q_V%D4
zkh*Q#wt>{>{9Xp6I7)*2g8%<#0IK=3D_U)=3DSl1W?S?)5S4F;&Sf=3DPc8-p9%cv8S%3Z?
z?+RM7&8cXP^Ykr&OKK;G9qPU2d`3`o(uxm74$s;7)m1`Uws2hf_|rG6bxq|?tBpT7
Y??
$Lang::tr{'statusmail schedule name'}$Lang::tr{'statusmail action'}

+  

+  
+  
+  
+  

+  		
+  

+  
+  
+  
+  

+  		
+  

+  
+  
+  
+  

+  		
+  

+  
+  
+  
+  

+