| $global{'title'}: Error | ||||
| $error | ||||
| ||||
|; exit; } sub email { my %contact = @_; if ($enablemail == "1") { open(MAIL, "|$global{'sendmail'} -t") || die "Unable to send mail: $!"; print MAIL "To: $contact{'To'}\n"; print MAIL "From: $contact{'From'}\n"; print MAIL "Subject: $contact{'Subject'}\n\n"; print MAIL "$contact{'Body'}\n"; close(MAIL); } } sub pdcode { # Format the code used in the desk my $text = "@_"; $text =~ s/\[b\]//gi; $text =~ s/\[\/b\]/<\/b>/gi; $text =~ s/\[i\]//gi; $text =~ s/\[\/i\]/<\/i>/gi; return $text; } sub script_error { my $error = "@_"; print "Content-type: text/html\n\n"; print qq~
| PerlDesk: Script Error | ||
| Perldesk was unable to launch due to the following errors: | ||
$error [ Support Board | PerlDesk Site ] | ||
~; exit; } sub notify_techs { my %details = @_; $statement = 'SELECT * FROM `calls` WHERE id = ?'; $sth = $dbh->prepare($statement) or die print "Couldn't prepare statement: $DBI::errstr; stopped"; $sth->execute( $details{'tid'} ) or die print "Couldn't execute statement: $DBI::errstr; stopped"; $number=0; while(my $ref = $sth->fetchrow_hashref()) { $category = $ref->{'category'}; } $statement = qq|SELECT * FROM staff WHERE access LIKE "%$category::%" OR access LIKE "%GLOB::%" OR access="admin"|; $sth = $dbh->prepare($statement)or die print "Couldn't prepare statement: $DBI::errstr; stopped"; $sth->execute() or die print "Couldn't execute statement: $DBI::errstr; stopped"; while(my $ref = $sth->fetchrow_hashref()) { if ($ref->{'notify'}) { if ($enablemail) { open(MAIL, "|$global{'sendmail'} -t") || print "Unable to send mail: $!"; print MAIL "To: $ref->{'email'}\n"; print MAIL "From: $global{'adminemail'}\n"; print MAIL "Subject: Help Desk User Response\n\n"; print MAIL "There is a new help desk response made by '$details{'name'}' in request $details{'tid'}\n"; print MAIL "\nCall Details\n"; print MAIL "---------------------------------------\n"; print MAIL "\tResponse by......: $details{'name'} \n"; print MAIL "\tTime.............: $details{'time'} \n"; print MAIL "\t$details{'note'} \n"; print MAIL "---------------------------------------\n"; print MAIL "\n\nThank You."; close(MAIL); } } } $sth->finish; } $cdomain = ""; # This will set the domain for the cookies, please leave # the period (.) at the start of your domain. Excluding # any sub-domains or 'www' pre-fixes. @languages = ("en", "sw", "no", "es", "fr", "gm"); # en -> English # sw -> Swedish # es -> Spanish # no -> Norweigan %langdetails = ( en => "English", sw => "Swedish", no => "Norwegian", es => "Spanish", fr => "French", gm => "German" ); # You can leave the above as it is, unless you need to # remove or add any languages - in which case you must # edit both @languages and %langdetails $enablelang = 1; # Enable multi-languages/translation, ############################################################### # GLOBAL DATE AND TIME sub get_time { $global{'timeoffset'} = "0" if !$global{'timeoffset'}; my $timeoffset = $global{'timeoffset'}; my @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); my @months = ('January','February','March','April','May','June','July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset)); $hour = "0$hour" if ($hour < 10); $min = "0$min" if ($min < 10); $sec = "0$sec" if ($sec < 10); if ($hour >= 12) { $variable = "P.M."; } else { $variable = "A.M."; } if ($hour == 0) { $hour = 12; } if ($hour > 12) { $hour -= 12; } $year = 1900 + $year; if ($mday eq "1") { $hy = "st"; } elsif ($mday eq "21") { $hy = "st"; } elsif ($mday eq "31") { $hy = "st"; } elsif ($mday eq "2") { $hy = "nd"; } elsif ($mday eq "22") { $hy = "nd"; } elsif ($mday eq "3") { $hy = "rd"; } elsif ($mday eq "23") { $hy = "rd"; } else { $hy = "th"; } $day = $days[$wday]; $month = $months[$mon]; $month_no = ++$mon; $date = "$mday$hy"; $date_no = $mday; $time = "$hour:$min:$sec $variable"; $time_sv = "$hour:$min $variable"; $time_var = "$hour:$min:$sec"; $time_sec = "$hour:$min"; # TIME FORMAT IN PERLDESK $hdtime = "$date_no-$month_no-$year-$time_sec"; $timenow = "$time ($date_no/$month_no/$year)"; } 1;